Sidan som felar
Kan någon fixa den här koden i loginet i communityn så att det funkar reko? När man loggar in så loggas ALLA medlemmar in, och likadant när man loggar ut. Kan någon fixa det? Det funkar inte med sessions men försök ändra så att det funkar på något annat vis.
<%
username = Session("username")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver=MySQL;server=localhost;uid=Spelportalen;pwd=jultomten;database=users"
Set RecSet = Connect.Execute("Select * from users")
Do Until RecSet.EOF
If RecSet("username") = Request.Form("username") AND RecSet("losen") = Request.Form("losen") Then
Session("points") = RecSet("points")
Session("datum") = Now()
Session("status") = "Online"
Session("fnamn") = RecSet("fnamn")
Session("enamn") = RecSet("enamn")
Session("username") = RecSet("username")
Session("login") = "Online"
Session("epost") = RecSet("epost")
Session("signatur") = RecSet("signatur")
Session("bild") = RecSet("bild")
Session("inloggningar") = RecSet("inloggningar")+1
Session.TimeOut = 40
Connect.Execute("UPDATE users SET points = "& points &", datum = '"& datum &"', status = '"& status &"', fnamn = '"& fnamn &"', enamn = '"& enamn &"', username = '"& username &"', epost = '"& epost &"', signatur = '"& signatur &"', bild = '"& bild &"', inloggningar = '"& inloggningar &"' WHERE username = '" & username & "'")
if RecSet("inloggningar") = "1" then
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver=MySQL;server=localhost;uid=Spelportalen;pwd=jultomten;database=mail"
Set RecSet2 = Connect.Execute("Select * from mail")
fromuser = "Jonatan"
username = RecSet("username")
rubrik = "Välkommen"
meddelande = "Välkommen till Spelportalen!<br>Vi hoppas att du kommer att trivas framöver.<br><br>MVH - Sp Crew"
datum = now()
Connect2.Execute("INSERT INTO mail (fromuser,username,rubrik,meddelande,datum) VALUES('"& fromuser &"','"& username &"','"& rubrik &"','"& meddelande &"','"& datum &"')")
Connect2.Close
Set RecSet2 = nothing
Set Connect = nothing
end if
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "/sp/default.asp"
end if
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "/tsp/avdelning.asp?sektion=Fel"
%>
Tacksam för svar.