Conn?

JEg har en kode der ser sådan ud:

<% @LANGUAGE=VBScript %>
<% if request(\"mode\") = \"NEXT\" Then



SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"DB.mdb\")

Response.redirect(\"?mode=check\")

If Request(\"mode\") = \"Check\" then

Sql = \"Select Count(*) as Found from users where (username = \'\" & Request(\"username\") & \"\') and (password =\'\" & Request(\"password\") & \"\')\"
Set Login = Rs.Execute(Sql)
if Login(\"Found\") = 0 then
Session(\"login\") = 0
error = \"Enten dit password, dit kodeord eller beggedele, er ikke accepteret.<br>Prøv venligst igen, eller opret en ny bruger.\"
else
Session(\"Login\") = 1
Session(\"password-session\") = Request(\"username\")
Response.Redirect \"bruger.asp\"


    rs.Close
    Set rs = Nothing

End If



Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\") & \";UID=admin;PWD=;\"
strSQL = \"SELECT * FROM users WHERE (username LIKE \'%\" & request.form(\"username\") & \"%\')\"
Set rs = Conn.Execute(strSQL)
if not (rs.BOF Or rs.EOF) Then

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From users\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"Username\") = Request.form(\"bnavn\")
      rs(\"Password\") = Request.form(\"pas\")
      rs(\"RigtigNavn\") = Request.form(\"rnavn\")
      rs(\"Email\") = Request.form(\"email\")
      rs.Update

    rs.Close
    Set rs = Nothing

Reponse.redirect(\"?mode=NEXT\")

Else
%>
<html>

<head>
</head>

<BODY bgcolor=\"\" text=\"#FFFF00\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\" topmargin=\"10\" leftmargin=\"0\"
rightmargin=\"0\">
<center><FONT FACE=\"Arial\" SIZE=\"+2\"></FONT></center>
<% Response.Redirect (\"opret.asp?mode=optaget\")  %>
</body>
</html>
<%
End If
End If
  End If

Conn.Close
Set Conn = Nothing
Set RS = Nothing
%>

Men når jeg kører det siger den:


Der opstod en Microsoft VBScript-kørselsfejl error \'800a01a8\'

Et objekt er obligatorisk: \'Conn\'

/rasmus/opret_data.asp, line 74


Hvorfor det?