Supportnet Computer
Planet of Tech

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



Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: