Hmmm - søgescript
<% hvilket = Request.Form(\"hvilken\") %><html>
<head>
<title>tidligere indlæg</title>
<link rel=\"stylesheet\" type=\"text/css\" href=\"http://intranet.avisen.dk/prepress/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>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"info.mdb\")
objRec.Open \"SELECT * FROM info WHERE emne = \'\" & hvilket & \"\' OR info =\'\" & hvilket & \"\'\"
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: <b>\" & objRec(\"init\")
Response.write \"\" & objRec(\"info\") & \"</b>\"
objRec.MoveNext
Response.write \"<hr width=\'250\' align=\'left\'>\"
Wend
objRec.Close
Set objRec = Nothing
else
Response.write \"Desværre, emnet du søgte findes ikke i databasen!<p>\"
end if
end if
%>
</body>
</html>
----
Fejlmeddelelse:
Der opstod en Microsoft VBScript-kørselsfejl error \'800a01a8\'
Et objekt er obligatorisk: \'\'
/prepress/info/soeg2.asp, line 24
-----
Hjælp (?)
