Object required: 'Connect'

Varför får jag:

Microsoft VBScript runtime error '800a01a8'

Object required: 'Connect'

/lankar.asp, line 184

på denna kod

<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#663300"><%
If Request.Form("sokord") <> "" Then
Response.Write "Din sökning på <b>" & Request.Form("sokord") & "</b> gav följande träffar.<br><br>" & vbCrLf

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "DBQ=" & Server.MapPath("xxx.mdb") & ";Driver={Microsoft Access Driver (\*.mdb)};" 

SQL = "Select \* from lankar Where Namn Like '%" & Request.Form("sokord") & "%' "
SET RS = Con.Execute(SQL)
While Not RS.EOF
	Response.Write "\<b\>\<a href=http://"& RS("lank") &" target=\_blank\>"& RS("lank") &"\</a\> \<br\> \<br\> " & vbCrLf
RS.MoveNext
Wend
RS.Close
Set RS = Nothing

End If
%>
<%
Connect.close
%></font>

SET RS = Con.Execute(SQL)
Byts mot:
SET RS = Connect.Execute(SQL) :)

Kontrollera att du använt samma namn på connectionobjektet i hela koden.

I det kodstycket du postat använder du två olika.

såg det nu... men även när jag fått det rätt så får jag samma fel

hur ser det ut nu ?

Är rad 184 verkligen med i kodstycket du postade?

Det känns som att koden är längre och att du omväxlande använder connection-objekten Connect och Con.

ja satte Connect.close direkt under
Set RS = Nothing
då funakde det

så här ser det ut nu

If Request.Form("sokord") <> "" Then
Response.Write "Din sökning på <b>" & Request.Form("sokord") & "</b> gav följande träffar.<br><br>" & vbCrLf

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.open "xxxxx"

SQL = "Select \* from lankar Where Namn Like '%" & Request.Form("sokord") & "%' "
SET RS = Connect.Execute(SQL)
While Not RS.EOF
	Response.Write "\<b\>\<a href=hits.asp?id="& RS("lank") &" target=\_blank\>"& RS("lank") &"\</a\>\<br\>" & vbCrLf
RS.MoveNext
Wend
RS.Close
Set RS = Nothing
Connect.close 

End If
%>