Autologin virker ikke

Hej Eksperter

Jeg har forsøgt mig med et autologin, men jeg kan ikke rigtig få det til at virke :o(

Kan I se hvad jeg gør galt?

Login:
-----------------------------------------------------------------
<% if session("user_id") <> "" then %>
Min Profil (<%=Request.Cookies("login_filmpol")("user_name")%>)
<% Else %>
<% If Request.Cookies("login_filmpol")("user_name") <> "" then response.redirect "brugerlogin.asp?username=" & Request.Cookies("login_filmpol")("user_name") %>
<form method="POST" action="bruger_login.asp" name="login">
<input name="username" size="20"><br>
<input name="password" size="20" type="password"><br>
Auto Login <input type="checkbox" name="autologin" value="ON">
<input type="button" value="Login" name="ok">
</form>
<% End If %>
<script language=vbscript>
Sub ok_OnClick()
' Undersøger om det indtastede overholder de krav der er til det
    If Len(login.username.value) = 0 Then
        Alert "Du skal indtaste et brugernavn"
        login.brugernavn.focus
    ElseIf Len(login.password.value) = 0 Then
        Alert "Du skal indtaste et password"
        login.password.focus
    Else
        ' Hvis alt er i orden
        Call login.submit()
    End If
End Sub
</script>
-----------------------------------------------------------------

Filen der tjekker brugerens login:
-----------------------------------------------------------------
<%
If request("username") <> "" then
Set rs_login = Server.CreateObject("ADODB.RecordSet")
rs_login.open "Select * From [brugere] WHERE username = '" & request("username") & "'", Conn

session("user_id")    = rs_login("id")
response.redirect session("retur")
End If

If request.form("autologin") = true then
' Informationer lagres i cookien
Response.Cookies("login_filmpol")("user_name") = request.form("username")

' Hvor længe cookien skal vare - i dette tilfælde 1000 dage
Response.Cookies("afstemning_filmpol").Expires = Date+1000
End If

Set rs_login = Server.CreateObject("ADODB.RecordSet")
rs_login.open "Select * From [brugere] WHERE username = '" & request.form("username") & "'", Conn

If rs_login.bof or rs_login.eof Then
response.redirect session("retur")&"fejl=brugernavn"

Else

Set rs_password = Server.CreateObject("ADODB.RecordSet")
rs_password.open "Select * From [brugere] WHERE id = " & rs_login("id") & "AND password = '" & request.form("password") & "'" , Conn
If rs_password.bof or rs_password.eof Then
response.redirect session("retur")&"fejl=password"
Else
session("user_id")    = rs_login("id")
response.redirect session("retur")

End If
End If
%>
-----------------------------------------------------------------

Håber I kan hjælpe :o)

//Z