Hjælp til søgning
Hejsa,jeg har stirret mig blind på noget kode.
Jeg har et SQL kald, som jeg ved returnerer x antal tupler (virker fint når response.write(strSQL) køres direkte mod db), men alligevel kommer der ikke noget frem i koden.
if request.form("submitSoeg") <> "" then
if strQuery = "" or len(strQuery) < 3 then
strFejl = "Du skal skrive et søgeord på mindst 3 bogstaver"
end if
if strFejl = "" then
if strFindi = "titel" then
strSQL = "SELECT id, antalsvar, titel, forfatter, oprettet FROM posts WHERE (titel LIKE '*" & strQuery & "*') ORDER BY " & strSort & " DESC"
else
strSQL = "SELECT posts.id, posts.antalsvar, posts.titel, posts.forfatter, posts.oprettet, svar.postid FROM svar INNER JOIN posts ON svar.postid = posts.id WHERE (svar.indhold LIKE '*" & strQuery & "*') ORDER BY " & strSort & ""
end if
response.write(strSQL)
response.end
set rs = conn.execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis der er fundet poster på søgningen
Response.Write "<p>Søgeresultat</p>"
Response.Write "<table border=1>"
Response.Write "<tr><th>id</th><th>antalsvar</th><th>titel</th><th>forfatter</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("id") & "</td>"
Response.Write "<td>" & rs("antalsvar") & "</td>"
Response.Write "<td>" & rs("titel") & "</td>"
Response.Write "<td>" & rs("forfatter") & "</td></tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If
end if
end if
