kan ikke logge ud - efter autologin

Hej Eksperter

Jeg har fået lavet et loginscript inkl autologin - men nu går det helt i kage, efter at have virket fint.

Det startede med at jeg ikke kunne logge ud, den reloadede bare siden, og så var jeg logget ind igen.

Så slettede jeg manuelt cookien, men så kunne den slet ikke vise siden. Jeg tror ikke at det er meget der skal rettes - kan bare ikke se hvad det er!

Håber I kan hjælpe!

Login menu:
-----------------------------------------------------------------
<% if session("user_id") <> "" then %>
a href="profil.asp">Min Profil</a><br>
<a href="konkurrencer.asp">Konkurrencer</a><br>
<a href="logout.asp">Log ud</a>
<% Else %>
<% If Request.Cookies("login_filmpol")("user_name") <> "xxx" OR Request.Cookies("login_filmpol")("user_name") <> "" then %>
<% response.redirect "bruger_login.asp?username=" & Request.Cookies("login_filmpol")("user_name") %>
<% else %>
<form method="POST" action="bruger_login.asp" name="login">
<% if request.Querystring("fejl") = "brugernavn" then %>
<input name="username" value="Eksisterer ikke!!!" size="20"><br>
<% Else %>
<input name="username" size="20"><br>
<% End If %>
<% if request.Querystring("fejl") = "password" then %>
<input name="password" value="Forkert password!" size="20"><br>
<% Else %>
<input name="password" size="20" type="password"><br>
<% End If %>                       
<a href="opret_bruger.asp">Ny Bruger?</a>
<input name="autologin" value="ON">
<input type="submit" value="Login">
</form><% End If %><% End If %>
-----------------------------------------------------------------

Login-script:
-----------------------------------------------------------------
<!-- #include file="inc/databaseopkald.inc" -->
<%
If request.Querystring("username") <> "" then
Set rs_login = Server.CreateObject("ADODB.RecordSet")
rs_login.open "Select * From [brugere] WHERE username = '" & request.Querystring("username") & "'", Conn

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

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

' Hvor længe cookien skal vare - i dette tilfælde 1000 dage
Response.Cookies("login_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
%>
-----------------------------------------------------------------

Log-out scriptet:
-----------------------------------------------------------------
<%
session.abandon
Response.Cookies("login_filmpol")("user_name") = "xxx"
Response.Cookies("login_filmpol").Expires = Date() - 1
response.redirect "default.asp"
%>
-----------------------------------------------------------------

Puhaa - Håber I kan hjælpe :o)

//Z