Problemer ved loginkode.

Hej.

Jeg har udarbejdet et login som egentligt virker ganske udemærket.
Dog er der det problem, at man bliver logget ud i tide og utide? Nogle gange selv efter 10 sekunder når man skifter side?

Bruger MSSQL database til at opbevare brugernavne og deres koder, og sessions til at holde styr på om man er logget ind.


Jeg bruger et par variabler:

' prefix of the session names
sessionPrefix = "obk"

' content of the login session
sessionLogin = "obkerloggetind"


Jeg bruger følgende kode til at logge ind:

if action = "login" then
  username = request.form("username")
  password = request.form("password")
 
  sql = "select * from " & userTable & " where username = '" & username & "'"
  set rs = conn.execute(sql)
 
  if rs.eof then
    response.redirect("?error=username")
  else
    if rs("logintries") >= loginTries then
      response.redirect("?error=blocked")
    else
      if password = rs("password") then
        session(sessionPrefix & "login") = sessionLogin
        session(sessionPrefix & "username") = rs("username")
       
        sql = "update " & userTable & " set logintries = 0 where username = '" & username & "'"
        conn.execute(sql)
       
        response.redirect(docName)
      else
        tries = rs("logintries") + 1
       
        sql = "update " & userTable & " set logintries = " & tries & " where username = '" & username & "'"
        conn.execute(sql)
       
        response.redirect("?error=password&n=" & loginTries - tries)
      end if
    end if
  end if
end if


Og følgende kode til at logge ud:

if action = "logout" then
  session(sessionPrefix & "login") = ""
  session(sessionPrefix & "username") = ""
  response.redirect(docName)
end if


Samt sidste kode til at tjekke på hver side, om man er logget ind:

if session(sessionPrefix & "login") <> sessionLogin then
  response.redirect("default.asp")
end if


Nogen der kan fortælle hvad der går galt, eller om det kunne laves langt smartere?
Det er meningen at det skal kunne bruges som flere-bruger-loginsystem.