Check brugernavn

flere points!!!

VIRKER HVIST
<%
    strBrugernavn = Request.Form(\"brugernavn\")
    Set Conn1 = Server.CreateObject(\"ADODB.Connection\")

DSN1 = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN1 = DSN1 & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn1.Open DSN1
strsql2 = \"Select * from data where brugernavn = \'\" & strBrugernavn & \"\'\"
Set rs = Conn1.Execute(strsql2)
If Not rs.EOF Then
Response.Write (\"brugernavn er registeret!!!\")
Else
Set Conn = Server.CreateObject(\"ADODB.Connection\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn.Open DSN


Set Conn2 = Server.CreateObject(\"ADODB.Connection\")
DSN3 = \"DRIVER={Microsoft Access Driver (*.mdb)};\"
DSN3 = DSN3 & \"DBQ=\" & Server.MapPath (\"databaser/bruger.mdb\")
Conn2.Open DSN3
sql = \"INSERT INTO data (brugernavn) values (\"
sql = sql & \"\'\" & strBrugernavn & \"\')\"
Set rs3 = Conn2.ExeCute(sql)
Response.write \"færdig!!\"
Conn1.Close
Set Conn1 = Nothing                                     
Conn.Close
Set Conn = Nothing
Conn2.Close
Set Conn2 = Nothing
End if
%>

Ikke noget jeg kunnne bruge :(

Set RsBrugernavn = Conn.Execute(\"SELECT BrugerId FROM Bruger WHERE Brugernavn=\'\" & strBrugernavn & \"\'\")
If RsBrugernavn.BOF Then