Login system fejl.

Hejsa! Jeg har et login system som ikke virker den første side er bare ren html formular!
Men fejlen ligger i den anden side som man kommer til nårh man submitter formen!
Min side ser således ud:

<html>
<head>
<title>HH-Spray´s Commmunity</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("system.mdb")
Conn.Open DSN
Dim strBrugernavn, strAdgangskode
strbrugernavn = Trim(Replace(request.form("brugernavn"),"'","''" ))
strkode = Trim(Replacerequest.form("kode"),"'","''" ))
SQL = "SELECT * FROM brugere where brugernavn = '" & strbrugernavn & "' AND kode = '" & strkode & "'"
Set rs = Conn.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
Session("ID") = rs("ID")
Session("Brugeradgang") = True
Response.redirect "log2.asp"

Else

Response.redirect "Login.asp"
End If


Conn.Close
Set Conn = Nothing
%>
</body>
</html>