---
title: "loggain.asp = funkar endast för vissa :("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/89831-loggain-asp-funkar-endast-för-vissa"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wickmark"
published: "2003-11-06T15:11:03.000Z"
updated: "2003-11-07T11:36:29.000Z"
replies: 1
views: 171
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/89831-loggain-asp-funkar-endast-för-vissa"
---

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

## #1 — Wickmark, 2003-11-06T15:11Z

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

Permalänk: https://www.webforum.nu/p/89831

## #2 — Fredde Mannen, 2003-11-07T11:36Z

Har haft samma problem, men det hjälpte med att sätta en metatag med refresh till typ 3 sek, då funkande det fin fint...

Permalänk: https://www.webforum.nu/p/1199087

---

Tråden på webben: https://www.webforum.nu/amne/asp/89831-loggain-asp-funkar-endast-för-vissa