Fejl i søgning
Hvad går galt her? Jeg vil så gerne kunne lave en søgning med 2 (eller flere søgefelter) men det er ikke lykkedes endnu. Nedenstående burde kunne bruges, men det virker ikke. DSN forbindelsen er ok.<% Response.Buffer = True %>
<html><head>
<title>Søgeresultat</title>
</head><body>
<%
' Henter værdien fra search.htm
Bilmaerke = Request.Form("Bilmaerke")
Aargang = Request.Form("Aargang")
If Len(strKeyword) = 0 Then
' Hvis der ikke er skrevet i feltet
Response.Clear
Response.Redirect("search3.htm")
Else
' Hvis der er skrevet i feltet
strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
SQL=con.Execute("SELECT * FROM Bildatabase WHERE Bilmaerke='"+Bilmaerke+"' AND Aargang='"+Aargang+"'")
' Skaber DSN forbindelse til DBen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DSN=riishojwebsoftdkdsn"
' Skaber et recordset udfra SQL strengen
Set rs = myConn.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>Bilmærke</th><th>Årgang</th></tr>"
Do While Not rs.EOF
Response.Write "<tr><td>" & rs("Bilmaerke") & "</td>"
Response.Write "<td>" & rs("Aargang") & "</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
' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>
</body></html>
