Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Suchseite + Anwortseite
Frage
Ich habe fpglnden Code in der antwotseite
Suche = Trim(Request("suchstring"))
Branche = Trim(request("Branche"))
Ort = Trim(request("Ort"))
Stadtteil = Trim(request("Stadtteil"))
PLZ = Trim(request("PLZ"))
If Suche = "" And Branche = "" And Ort = "" And Stadtteil = "" And _
PLZ = "" Then
Response.Redirect "suchen.asp"
End if
WhereClause = "WHERE "
If Name1 <> "" Then
WhereClause = WhereClause & "InStr(Suche,"&Suche&")>0 And "
End if
If Name2 <> "" Then
WhereClause = WhereClause & "InStr(Suche,"&Suche&")>0 And "
End If
If Name3 <> "" Then
WhereClause = WhereClause & "InStr(Suche,"&Suche&")>0 And "
end if
If Branche <> "" Then
WhereClause = WhereClause & "InStr(Branche,"&Branche&")>0 And "
end if
If Ort <> "" Then
WhereClause = WhereClause & "InStr(Ort,"&Ort&")>0 And "
End If
If Stadtteil <> "" Then
WhereClause = WhereClause & "InStr(Stadtteil,"&Stadtteil&")>0 And "
end if
If PLZ <> "" Then
WhereClause = WhereClause & "InStr(PLZ,"&PLZ&")>0 And "
End if
If Right(WhereClause,2) = "And " Then
WhereClause = Left(WhereClause, Len(WhereClause) -2)
end if
Query="SELECT * FROM Hannover " & WhereClause
Set Classifieds = Connect.Execute(Query) %>
Nun bekomm ich imma den fehler
Syntaxfehler (fehlender Operator) in Abfrageausdruck InStr(Ort,laa)>0 And.
wer kann helfen
Antwort 1 von Batmaus
Ich hab meinen fehler selbst gefunden
so müßte es ausehn
WhereClause = "WHERE "
If Suche <> "" Then
WhereClause = WhereClause & " Name1 Like " & Suche & "% Or "
End if
If Suche <> "" Then
WhereClause = WhereClause & " Name2 Like " & Suche & "% Or "
End if
If Suche <> "" Then
WhereClause = WhereClause & " Name3 Like " & Suche & "% AND "
End if
If Branche <> "" Then
WhereClause = WhereClause & " Branche Like " & Branche & "% AND "
End if
If Ort <> "" Then
WhereClause = WhereClause & " Ort Like " & Ort & "% AND "
End if
If Stadtteil <> "" Then
WhereClause = WhereClause & " Stadtteil Like " & Stadtteil & "% AND "
End if
If Plz <> "" Then
WhereClause = WhereClause & " PLZ Like " & PLZ & "% AND "
End if
so müßte es ausehn
WhereClause = "WHERE "
If Suche <> "" Then
WhereClause = WhereClause & " Name1 Like " & Suche & "% Or "
End if
If Suche <> "" Then
WhereClause = WhereClause & " Name2 Like " & Suche & "% Or "
End if
If Suche <> "" Then
WhereClause = WhereClause & " Name3 Like " & Suche & "% AND "
End if
If Branche <> "" Then
WhereClause = WhereClause & " Branche Like " & Branche & "% AND "
End if
If Ort <> "" Then
WhereClause = WhereClause & " Ort Like " & Ort & "% AND "
End if
If Stadtteil <> "" Then
WhereClause = WhereClause & " Stadtteil Like " & Stadtteil & "% AND "
End if
If Plz <> "" Then
WhereClause = WhereClause & " PLZ Like " & PLZ & "% AND "
End if

