Sessions

Bifoga gärna kod.
Kontrollera att din webläsare tillåter cookies.

Koden man kommer till när man har tryckt på logga in:

<!-- #include file="adovbs.inc" -->
<% Session.LCID = 1053

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/users.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'----- Rensar bort sånna som inte loggat ut korrekt.. -------

Do Until RecSet.EOF

If RecSet("status") = "online" AND DateDiff("n", RecSet("datum"), Now) \> 60 Then
	RecSet("status") = "offline"
	RecSet.Update
End If

RecSet.MoveNext
Loop

RecSet.Close

'---------------- SLUT PÅ UTRENSNINGEN ------------------

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

if lCase(RecSet("username")) = lCase(Request.Form("username")) AND lCase(RecSet("losen")) = lCase(Request.Form("losen")) Then

	If cDate(RecSet("lastpoang")) \< Date() then
	RecSet("poang") = RecSet("poang") + 1
	RecSet("lastPoang") = Now
	End If
	
	RecSet("inloggningar") = RecSet("inloggningar") + 1
	RecSet("datum") = Now
	RecSet("status") = "online"		
	RecSet.Update
	
	Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
	Session("fnamn") = RecSet("fnamn")
	Session("enamn") = RecSet("enamn")
	Session("username") = RecSet("username")
	Session("login") = "ok"
	Session("id") = RecSet("id")
	Session("status") = "online"
	Session("epost") = RecSet("epost")
	Session("poang") = RecSet("poang")
	Session("pressbild") = RecSet("pressbild")
	Session("inloggningar") = RecSet("inloggningar")

	Session.TimeOut = 60 '\<-- Kontrollera

	Response.Cookies("plasstic")("username") = recset("username")
	Response.Cookies("plasstic").Expires = "December 10, 2010"	
		
	if RecSet("admin") = "1" then
	session("admin") = "1"
	else
	session("admin") = "0"	
	end if	
			
	
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
	
	Response.Redirect "inloggad.asp"

End If

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Fel användarnamn eller lösenord!"
Response.Redirect "default.asp"
%>

Koden i inloggad.asp:

<!-- #include file="adovbs.inc" -->
<% Session.LCID = 1053
if Session("login") <> "ok" then
response.redirect("default.asp")
Session("meddelande") = "Du är inte inloggad!"
End if
%>
Här är innehållet som ska visas när man är inloggad!

1. Du har för många sessions enligt min mening(tänk över din struktur)
2. Om du använder [kod]-taggarna så blir din kod tydligare här i forumet.

Ja men varför funkar det inte?!?!??!?!?!

testa att övergå till php :P

Det var inte så konstruktivt :)

Philosofik, till att börja med kan vi rensa lite i koden, så att den blir mer effektiv, och inte så IDGs Web Studio-aktig.. ;)

<!-- #include file="adovbs.inc" -->
<% Session.LCID = 1053

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/users.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")

'----- Rensar bort sånna som inte loggat ut korrekt.. -------

Addera = "UPDATE members SET status='offline' WHERE status='online' and datediff("n",datum,now())>60"

Connect.Execute Addera,,adExecuteNoRecords 

'---------------- SLUT PÅ UTRENSNINGEN ------------------

Addera="SELECT * FROM members WHERE username='" & replace(Request.Form("username"),"'","''") & "' AND losen='" & replace(Request.Form("losen"),"'","''") & "'"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

if not RecSet.EOF

'----En massa sessions-kod som du får lägga tillbaka (tog så mycket plats)

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "inloggad.asp"

else

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Fel användarnamn eller lösenord!"
Response.Redirect "default.asp"

end if

%>

Börja med det, så letar vi vidare om det inte fungerar