Er jeg dum ?

Det HER VIL IKKE VIRKE
Det er menigen at et per. logger ind og saa kommer han et bestemt sted hen og hvis det er en en anden saa et andet sted.. men det virker NADA ; (((((((((

<%
    strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("adgangskontrol.mdb")

    Set objRS = Server.CreateObject("ADODB.RecordSet")
   
'Den slår ens brugernavn og adgangskode op i databasen
    strQ = "SELECT * FROM Adgangskoder WHERE (Password='" & Request.Form("pw") & "')" & _
            " AND (Username = '" & Request.Form("login") & "');"
   
        objRS.Open strQ, strConn
   
'Kan den ikke finde en bliver man sendt tilbage med en fejlmeddelelse
    If objRS.EOF Then
   
    Response.Redirect("login.asp?valg=fejl")

'Kan den godt finde en bliver session("Adgang") sat til Godkendt så man kan komme ind til godkendt.asp
Else   

    Session("Adgang") = "Godkendt"

    Response.Cookies("oplysninger")("Username")=objRS("Username")
    Response.Cookies("oplysninger")("Password")=objRS("Password")
    Response.Cookies("oplysninger")("RealName")=objRS("RealName")

UserName = Request.Form("login")
IF UserName = "bush" THEN Response.Redirect("http://www.bush-site.dk")
ELSEIF Username = "reagan"
THEN
    Response.Redirect("http://www.reagan-site.dk") 
End If
   

    objRS.Close
    Set objRS = Nothing
    END IF
%>


plz help det eneste den gør er at åbne kontrol.asp det er det eneste og det ER FORKERT