session timeout fel?

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"
%>