Sessions

Der skal lige rettes en fejl...jeg har ikke prøvet at sætte session.timeout = 0, men jeg vil tro at det er det samme som bare at være det helt.

der er måske en fejl i koden et sted som gør at session løber ud..?

Her er mit login script, som sætter session.timeout

>> autologin.asp (som er indcluderes på alle sider)<<

<%
    If Not Session("AdminPass") = "OK" Then
        If Request.Cookies("autologin_cichlide-net")("AdminPass") = "OK" Then   
            Session("AdminPass")            = "OK"
            Session("AdminUser")            = Request.Cookies("autologin_cichlide-net")("AdminUser")
            Session("AdminAlias")            = Request.Cookies("autologin_cichlide-net")("AdminAlias")
            Session("AdminLevel")            = Request.Cookies("autologin_cichlide-net")("AdminLevel")
            Session("AdminID")              = Request.Cookies("autologin_cichlide-net")("AdminID")
            Session("AdminEmail")            = Request.Cookies("autologin_cichlide-net")("AdminEmail")
            Session("AdminTime")            = Time
            Session("AdminDate")            = Date
                        Session.Timeout = 120
            log(session("AdminUser") & " **LOGGED ON !AUTOLOGIN!**")
            'Call AddOnlineUser()
            Set conntemp = Server.CreateObject("ADoDB.Connection")
            conntemp.open DSN
            SQLSIDSTLOGGETIND = "UPDATE USERS SET U_SIDST_LOGGET_IND = #"& Now() &"# WHERE UID = "& Session("AdminID")
            conntemp.Execute(SQLSIDSTLOGGETIND)
        End If
    End If
%>

>> login.asp (selve login siden)<<

<%
    If request("mode") = "checkpass" Then
        On Error Resume Next
        Set conntemp = Server.CreateObject("ADoDB.Connection")
        conntemp.open DSN
        SQL = "SELECT * FROM USERS WHERE U_BRUGERNAVN = '"& Request("U_BRUGERNAVN") &"'"
        Set rstemp = conntemp.Execute(SQL)

        If Not Request("U_PASSWORD") = rstemp("U_PASSWORD") Then
            log("(" & Request("U_BRUGERNAVN") & ") ** MISSTYPED PASSWORD **")
            Response.Redirect "index.asp"
        Else           
            Session("AdminPass")        = "OK"
            Session("AdminUser")    = rstemp("U_BRUGERNAVN")
            Session("AdminAlias")    = rstemp("U_NAVN")
            Session("AdminLevel")    = rstemp("U_USRLEVEL")
            Session("AdminID")      = rstemp("UID")
            Session("AdminEmail")    = rstemp("U_EMAIL")
            Session("AdminTime")    = Time
            Session("AdminDate")    = Date
            Session.Timeout          = 120
            If Request("autologin") = "OK" Then
              Response.Cookies("autologin_cichlide-net")("Adminpass")    = "OK"
              Response.Cookies("autologin_cichlide-net")("AdminUser")    = rstemp("U_BRUGERNAVN")
              Response.Cookies("autologin_cichlide-net")("AdminAlias")    = rstemp("U_NAVN")
              Response.Cookies("autologin_cichlide-net")("AdminLevel")    = rstemp("U_USRLEVEL")
              Response.Cookies("autologin_cichlide-net")("AdminID")      = rstemp("UID")
              Response.Cookies("autologin_cichlide-net")("AdminEmail")        = rstemp("U_EMAIL")
              Response.Cookies("autologin_cichlide-net").Expires = Now() + 365
            End If   
           
            log(session("AdminUser") & " ** LOGGED ON **")
            'Call AddOnlineUser()
            Set conntemp = Server.CreateObject("ADoDB.Connection")
            conntemp.open DSN
            SQLSIDSTLOGGETIND = "UPDATE USERS SET U_SIDST_LOGGET_IND = #"& Now() &"# WHERE UID = "& Session("AdminID")
            conntemp.Execute(SQLSIDSTLOGGETIND)
            Response.Redirect "index.asp"
            rstemp.close
            Set rstemp = Nothing
        End If

    ElseIf request("mode") = "logoff" Then
        log(session("AdminUser") & " ** LOGGED OFF **")
        Response.Cookies("autologin_cichlide-net").Expires = dateadd("y",-1,now)
        Session("AdminPass")    = "NOTOK"
        Session("AdminAlias")    = ""
        Session("AdminUser")    = ""
        Session("AdminNavn")    = ""
        Session("AdminLevel")    = ""
        Session("AdminID")      = ""
        Session("AdminEmail")    = ""
        Response.redirect "index.asp"
    End If
%>

Session.Timeout = 120 er jo kun lig med 2 minutter...

Det virker fint nok man logger ind, men hvis man har autologin på og lukker browseren og starter siden igen, så har den slettet alle sessions, men ikke alle steder f.eks. ikke her:
SQLMAILBOX = "SELECT * FROM MAILBOX WHERE MAIL_MODTAGER_USRID = "& Session("AdminID") &" "
SQLMAILBOX = SQLMAILBOX & "AND MAIL_SLETTET_AF_MODTAGER = False "
SQLMAILBOX = SQLMAILBOX & SQLORDERBY
Set rsMailBox = conntemp.execute(SQLMAILBOX)

Men det gør den i den anden linje som jeg skrev i mit første indlæg....

Er du sikker på siden ikke bare er cachet i browseren. Prøv
at opdatere - evt. bruge noget andet end IE :)

Det kan godt være at den virker med de nyere versioner af internet explore, men vi skal have den til at virke med at alle versioner af internet explorer...er der en måde hvorpå man kan gøre det ??

Nå nu har jeg fået det hele til at virke. Jeg lavede bare min session om til en variabel og skrev variablen ud, så virkede det.
Men jeg kan da takke for jeres forsøg på at hjælpe...