Screenshot der Website fotorevier.net

einfache bildsuche

Suche

<% dim stadtsuche dim objektsuche dim bildschirmausgabe dim bildid dim fundort stadtsuche=Request.Form("stadt") objektsuche=Request.Form("objekt") if stadtsuche ="" then objektsuche="Motive" stadtsuche="Orte" end if if stadtsuche ="" then objektsuche="Objekte" stadtsuche="Orte" end if if stadtsuche ="Orte" then Response.Write("



") else Response.Write("

gefundene bilder

") end if Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject") Set MyFiles=MyDirectory.GetFolder(Server.MapPath("bilder")) For each filefound in MyFiles.files if (MyDirectory.GetExtensionName(filefound.Name)) = "jpg" then if InStr((MyDirectory.GetBaseName(filefound.Name)),objektsuche) then erster_unterstrich=(InStr((MyDirectory.GetBaseName(filefound.Name)),"_")) fundort=left((MyDirectory.GetBaseName(filefound.Name)),erster_unterstrich) if InStr(fundort,stadtsuche) then Response.Write("
") & vbCrLf End if End if End if Next %>


Hier geht's zur Volltextsuche.