Fra <form> til database

Hej eksperter

Jeg er løbet ind i problemer i mit arbejde med at lave et simpelt bruger-logind system.
Jeg har en form på opret.asp som ser sådan ud:

<form method="post" action="control.asp" onsubmit="return valider( this )">
<B>Ønsket brugernavn:</b> (obligatorisk)<BR>
<input type="text" name="bruger" size="13" style="width:200px;"><br><BR>
<B>E-mailadresse:</B> (obligatorisk)<BR>
<input type="text" name="email" size="13" style="width:200px;"><br><BR>
<B>Ønsket kode:</b> (obligatorisk)<BR>
<input type="text" name="kode1" size="13" style="width:200px;"><br><BR>
<B>Gentag kode:</b> (obligatorisk)<BR>
<input type="text" name="kode2" size="13" style="width:200px;"><br><BR>
<input type="submit" value="OPRET BRUGER" NAME="action" CLASS="submitknap">
</form>

Jeg vil så have brugeren oprettet i en acces databese, hvis vel og mærket brugernavnet ikke er taget, det gør jeg med control.asp:

<%
function strCorrect(strInput)
strCorrect = Replace(strInput, "'", "''")
end function
If Request.Form("kode1") <> Request.Form("kode2") then
response.write "kode1 forskellig fra kode2"
else
if (Request.Form("bruger") <> "" AND Request.Form("email") <> "" AND Request.Form("kode1") <> "") then
Set objConn = Server.CreateObject("ADODB.Connection")
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
%><!--#INCLUDE FILE="../include/db.inc" --><%
objConn.Open conStr
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from brugere where bruger = " & Request.form("bruger") & ""
rs.Open sql, objConn, 1, 3 &#8216;******TIL EKSPERTERNE HER ER LINIE 15******
if rs.eof or rs.BOF then
strSQL = "Insert into brugere ("
strSQL = strSQL & "bruger, "
strSQL = strSQL & "email, "
strSQL = strSQL & "kode, "
strSQL = strSQL & "dato) "
strSQL = strSQL & "values( "
strSQL = strSQL & "'" & strCorrect(Request.form("bruger")) & "', "
strSQL = strSQL & "'" & strCorrect(Request.form("email")) & "', "
strSQL = strSQL & "'" & strCorrect(Request.form("kode1")) & "', "
strSQL = strSQL & "'" & now() & "')"
objConn.Execute(strSQL)
end if
objConn.close
set objConn = nothing
end if
end if
%>

Men jeg får en fejlmeddelelse:

Microsoft JET Database Engine fejl '80040e10'
Der er ikke angivet nogen værdi for en eller flere krævede parametre.
/bruger/control.asp, linje 15

Jeg kan ikke finde nogen fejl selv, Hjælp.

Morten / morten@12tri.dk