søgning fejler
Jeg har en søgeside, som fejler selv om jeg ved at et ord eksisterer i ét af de to felter søgeordet skal findes..:<% hvilket = Request.Form(\"hvilken\") %>
<html>
<head>
<title>tidligere indlæg</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"../scripts/prepress.css\">
</head>
<body>
<%
if hvilket = \"\" then %>
<h2>Søg efter tidligere indlæg:</h2>
<form action=\"soeg2.asp\" method=\"post\">
<input type=\"Text\" name=\"hvilken\" size=\"20\"><br>
<input type=\"Submit\" value=\"SØG\">
</form><br><br>
<% else %>
<h3>Emner:</h3>
<%
Dim objRec, antal
antal = 0
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Set objRec = Server.CreateObject(\"ADODB.recordset\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"info.mdb\")
objRec.Open \"SELECT * FROM info WHERE emne = \'\" & hvilket & \"\' OR info =\'\" & hvilket & \"\'\",conn,1,3
antal = objRec.recordcount
if antal > 0 then
Response.write \"<b>Der var \" & antal & \" fundne emner</b><p>\"
While Not objRec.EOF
Response.write \"<b>\" & objRec(\"emne\") & \" \" & objRec(\"uge\")
Response.write \"</b><br>skrevet af: \" & objRec(\"Init\")
Response.write objRec(\"info\")
objRec.MoveNext
Response.write \"<hr width=\'250\' align=\'left\'>\"
Wend
objRec.Close
Set objRec = Nothing
Conn.Close
Set conn = Nothing
else
Response.write \"Desværre, emnet du søgte findes ikke i databasen!<p>\"
end if
end if
%>
</body>
</html>
Når jeg søger efter et ord, får jeg at vide at der ikke findes noget emne i databasen.. Nogen der kan hjælpe ?
