loggain.asp = funkar endast för vissa :(

Vad är det för något fel med denna kod ?

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_members
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM fmed Where nick = '"& Request.Form("anv") &"' AND losenord = '"& Request.Form("losen") &"'", db, adOpenStatic, adLockOptimistic, adcmdTableDirect

if rs.EOF then
rs.Close : set rs = Nothing
db.close : set db = nothing
Response.Redirect ("loggain.asp?mess=falsk")
else

'*********************************************************************************************************************************
if rs("ban") = "1" Then
'*********************************************************************************************************************************
rs.close : set rs = nothing
db.close : set db = nothing
Response.Redirect("loggain.asp?mess=bannad")
else
'---------------------------------------------------------------------------------------------------------------------------------
if rs("admin") = "1" Then
'---------------------------------------------------------------------------------------------------------------------------------
rs("InternetProtocol") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
session("admin") = "ok"
session("person") = rs("nick")
session("userID") = rs("id")
session.Timeout = 60

rs.Close : set rs = Nothing
db.Close
db.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source="&db_forum

db.Execute ("UPDATE User_LogTime SET offline=true WHERE offline=false AND user_id=" & session("userID"))
db.Execute ("INSERT INTO User_LogTime (user_id, SID, Login_Time) VALUES (" & Session("userID") & "," & Session.SessionID & ",#" & now() & "#)")

db.Close: Set db = Nothing

Response.Redirect("default.asp?page=listaforum")
'---------------------------------------------------------------------------------------------------------------------------------
elseif rs("admin") = "0" then 'if session("admin") = "1" then
'---------------------------------------------------------------------------------------------------------------------------------
rs("InternetProtocol") = Request.ServerVariables("REMOTE_ADDR")
rs.Update

session("admin") = "med"
session("person") = rs("nick")
session("userID") = rs("id")
session.Timeout = 60

rs.Close : set rs = Nothing
db.Close

db.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source="&db_forum
db.Execute ("UPDATE User_LogTime SET offline=true WHERE offline=false AND user_id=" & session("userID"))
db.Execute ("INSERT INTO User_LogTime (user_id, SID, Login_Time) VALUES (" & Session("userID") & "," & Session.SessionID & ",#" & now() & "#)")

db.Close : set db = Nothing

Response.Redirect("default.asp?page=listaforum")
'---------------------------------------------------------------------------------------------------------------------------------
else 'if session("admin") = "1" then
'---------------------------------------------------------------------------------------------------------------------------------
rs.close : set rs = Nothing
db.close : set db = nothing
response.redirect("loggain.asp?mess=UKNWN")
'---------------------------------------------------------------------------------------------------------------------------------
end if ' if session("admin") = "1" then
'*********************************************************************************************************************************
end if 'if rs("ban") = "1" then
'*********************************************************************************************************************************
end if 'if rs.EOF

Jag lyckas inte hitta det :(

Alltså, denna kod funkar för vissa, men inte alla. Den går alltså igenom, men sessionerna skapas ej...

MVH