MyConn.ExeCute("UPDATE users SET status=0,sessionid="""",tidstampel=tidstampel WHERE status=1 AND tidstampel < DateAdd(""n"",15, NOW )")
Denna kod bör sätta status=0,sessionid="" och tidstampel=tidstampel vars status=1 och tidstampel < (datum och tid plus 15 minuter).
Men när jag använder denna sats så kan man inte ens logga sig in... men vänder jag på < till ett > så funkar det... men det är ju inte så det ska se ut....
Är inte users ett reseverat ord?
Kan man verkligen ha """"?
Nope... den klagar inte på att users är ett reserverat ord som den annars gör om ordet är reserverat... jo man skall kunna ha "" "", det är istället för ' '..
Tack LarsG... nu blir det ialla fall inget felmeddelande... men står fortfarande inför ett problem som inte fanns när jag körde emot MySQL...
Nåja bifogar hela dokumentetskod...
<!--#include virtual="/library/errcodes.asp"-->
<!--#include virtual="/library/forum-funktioner.asp"-->
<%
Session.Timeout = 900
' Logga ut alla användare som varit inaktiva förlänge!
MyConn.ExeCute("UPDATE users SET status=0,sessionid='',tidstampel=tidstampel WHERE status=1 AND tidstampel < DateAdd('n',15,now())")
Function if_loggad(usrid)
' Om usrid saknar ett värde, logga ut.
if(len(usrid) = 0) Then
ErrorMsg("msgcode1")
End if
' Om usrid ej har värdet 0.
if(len(usrid) <> 0) Then
Set rs = MyConn.ExeCute("SELECT COUNT(*) as n FROM users WHERE UserID=" & usrid & " AND sessionid='" & session.sessionid & "' AND status=1")
Set rs2 = MyConn.ExeCute("SELECT * FROM users WHERE UserID=" & usrid & " AND sessionid='" & session.sessionid & "' AND status=1")
' Uppdatera användaren om hans sessionsid är okay och usrid finns där status=1.
if(rs("n") > 0) Then
' Uppdatera användaren sätt tidstampel = NU vars usrid finns och sessionsid är okay.
MyConn.Execute("UPDATE users SET tidstampel='" & now & "' WHERE UserID=" & usrid & " AND sessionid='" & session.sessionid & "'")
Session("ID") = rs2("UserID")
Else
' Visa felmeddelandet.
ErrorMsg("msgcode3")
End if
rs.Close
rs2.Close
Else
' Visa felmeddelandet.
ErrorMsg("msgcode3")
End if
End function
Function online_list(usrid)
' Beta version av onlinelista... finns tillsvidare.
Set rs = MyConn.ExeCute("SELECT * from users WHERE status=1 ORDER by nickname DESC")
Response.Write("<strong>Online lista</strong><br />")
Do until rs.eof
If(rs("sessionid") = Session.SessionID) Then
nick = "<b>" & rs("nickname") & "</b>"
Else
nick = "" & rs("nickname") & ""
End if
Response.Write("• " & nick & "<br />")
rs.MoveNext
Loop
End function
if_loggad(Session("ID"))
%>