Har problem med session timeout.. Har den på 120 min men det stämmer inte. Vad är det jag gjort för fel?
<%
Function secure(txt)
txt = Replace(txt, "'", "''")
secure = txt
End Function
Session.TimeOut=120
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\min.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
anvNamn = secure(Request.Form("anvnamn"))
losenord = secure(Request.Form("losenord"))
SQL = "SELECT niva FROM min WHERE anvnamn='" & anvnamn & "' AND losenord='" & losenord &"'"
RecSet.Open SQL, Connect, 3, 3
If not RecSet.EOF Then
Session("niva") = RecSet("niva")
If RecSet("niva")="3" Then
strPage="1.asp"
elseIf RecSet("niva")="4" Then
strPage="2.asp"
End If
SQL = "INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','OK',#"& now() &"#)"
Connect.execute(SQL)
Response.Redirect strPage
else
query="INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','Fail',#"& now() &"#)"
Connect.Execute(query)
end if
RecSet.Close : set recset = nothing
Connect.Close : set connect = nothing
Session("session") = "fel användarnamn eller lösenord"
Response.Redirect "index.asp"
%>