vil ikke redirect !! ??

okay, jeg fatter det bare ikke, har lavet det her logon validering, men den vil redirecte selv...fatter det ikke
undskyld det lave antal points, men er tæt på at løbe tør for dem

håber  at der noget som vil hjælpe aflgievel :)

kode .:
<%
response.expires = 0
response.buffer = true

If Session("bruger") <> "" then
Session("bruger") = ""
end if

If Session("admin") <> "" then
Session("admin") = ""
end if

If request.form <> "" then

strlogin = request.form("login")
strkodeord = request.form("kodeord")

Set ObjConn = Server.createobject("ADODB.Connection")
ObjConn.open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.mappath("database.mdb")
Set ObjRS = Server.createObject("ADODB.Recordset")
LogonSQL = "select ID,Email,Adgangskode,Confirm from tblbruger where Confirm >0"
ObjRS.open LogonSQL,Objconn

Set ObjRS2 = Server.createObject("ADODB.Recordset")
AdminSQL = "Select * from tblAdmin where ID>0 "
ObjRS2.open AdminSQL,Objconn
       

   
        Do Until ObjRS.EOF
       
        If Strlogin = ObjRS("Email") And Strkodeord = ObjRS("Adgangskode") then
        BrugerID = ObjRS("ID")
        Session("Bruger") = BrugerID
       
        elseif not Strlogin = ObjRS("Email") And not Strkodeord = ObjRS("Adgangskode") then
        Session("Bruger") = ""
               
        end if
        ObjRS.Movenext   
       
       
        if not session("Bruger") <> BrugerID then
        response.redirect "user.asp"
        end if

        Loop
        response.write brugerid
       
   
   


        Do Until ObjRS2.EOF
        If Strlogin = ObjRS2("Admin") And Strkodeord = ObjRS2("Kodeord") then
        Adminok = "ok"
        Session("Admin") = adminok
       
        elseif not Strlogin = ObjRS2("Kodeord") And not Strkodeord = ObjRS2("Admin") then
        Session("Admin") = ""
        end if
               
        ObjRS2.Movenext
       
        if not Session("Admin") <> "ok" then
        response.redirect "admin.asp"
        end if   

        Loop
       
       
       
    response.write "<br />" & Adminok
   
ObjRS.close
Set ObjRS = Nothing

ObjRS2.close
Set ObjRS2 = Nothing

ObjConn.close
Set ObjConn = Nothing
end if

%>