Kan ikke finde fejlen
Er der nogen der kan fortælle mig hvorfor jeg får denne fejl:ADODB.Recordset error \'800a0e7d\'
Programmet har anmodet om en handling på et objekt, som har en henvisning til et lukket eller ugyldigt forbindelsesobjekt.
/intravisen/stillingsgruppen/soeg2.asp, line 31
- ved brug af dette:
<%@ LANGUAGE=\"VBSCRIPT\" %>
<% hvilket = Request.Form(\"hvilken\") %>
<html>
<head>
<LINK REL=\"STYLESHEET\" TYPE=\"text/css\" HREF=\"../text.css\">
<title>Søg efter en kontaktperson</title>
</head>
<body bgcolor=\"#C0C0C0\" link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#008080\">
<% if hvilket = \"\" then %>
<b>Søg efter en kontaktperson:</b>
<form action=\"soeg2.asp\" method=\"post\">
<input type=\"Text\" name=\"hvilken\"><br>
<input type=\"Submit\" value=\"SØG\">
</form><br><br>
<% else %>
<b>Personoplysninger:</b>
<%
Dim objRec
Set objRec = Server.CreateObject(\"ADODB.recordset\")
objRec.open \"SELECT * FROM kontaktpersoner WHERE fornavn LIKE \'%\"&hvilket&\"%\' OR efternavn LIKE \'%\"&hvilket&\"%\'\"
strConnect=\"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"fpdb/kontaktpersoner.mdb\")
Do while not objRec.eof
antal = antal +1
opjRec.movenext
Loop
if antal > 0 then
Response.write \"<b>Der var \" & antal & \" fundne personer</b><p>\"
ObjRec.movefirst
Do while Not objRec.eof
Response.write \"<b>\" & objRec(\"fornavn\") & \" \" & objRec(\"efternavn\")
Response.write \"</b><br>Adresse: <b>\" & objRec(\"adresse\")
Response.write \"</b><br>Telefon: <b>\" & objRec(\"telefon\")
Response.write \"</b><br>Arbejde: <b>\" & objRec(\"telefonarbejde\")
Response.write \"</b><br>E-post: <b>\" & objRec(\"epost\")
Response.write \"</b><br>Hjemmeside: <b>\" & objRec(\"hjemmeside\") & \"</b>\"
Response.write \"<hr width=\'250\' Height=\'1\'align=\'left\'>\"
objRec.MoveNext
Loop
Else
Response.write \"Desværre, navnet du søgte findes ikke i databasen!<p>\"
end if
objRec.Close
Set objRec = Nothing %>
<% end if %>
</body>
</html>
