testa detta:
where not ("& tid2 &" + "& tid3 &") = "& tid &"
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
7 svar · 205 visningar · startad av hacktheplanet
<%
Set Connect6 = Server.CreateObject("ADODB.Connection")
Connect6.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
Set RecSet6 = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet6.Open Addera, Connect6, adOpenStatic, adLockOptimistic
tid = now()
tid2 = recset6("minonline")
tid3 = recset6("datum")
Set connection6 = server.createObject("adodb.connection")
connection6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") & ""
connection6.execute "update members set status = 'offline' where not "& tid2 &" + "& tid3 &" = "& tid &" and username"
sql = "select count(*) as members from members"
%>
får:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'not 0 + 2002-02-02 22:06:15 = 2002-02-02 22:20:18 and username'.
testa detta:
where not ("& tid2 &" + "& tid3 &") = "& tid &"
cya,
PatrikB
------------------
-=* IF there is a wrong way to do something, then someone will do it *=-
nope funkar inte :(
Det behövs ett villkor på username också förmodar jag. Du får ändra så att det passar.
<%
Set connect6 = server.createObject("adodb.connection")
connect6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")
connect6.execute "update members set status = 'offline' where dateadd('n',minonline,datum) < now() and username = '" & session("username") & "'"
sql = "select count(*) as members from members"
%>
------------------
essentitia preter non sans multiplicandum
session("username") har jag inte när jag startar default.asp
nope funkar inte vill att min online ska plussas med senaste inloggade
vi säger att jag e online i 5 min så står det 5 min fältet och så vill jag gemföra det med senaste inloggade om det inte stämmer så blir man offline i databasen!!! snälla kan nån hjälpa :(
nu ser koden ut såhär
men det blir fel på sekunderna och så blir man utloggad :(
<%
Set connect6 = server.createObject("adodb.connection")
connect6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")
connect6.execute "update members set status = 'offline' where not dateadd('n',minonline,datum) < now()"
sql = "select count(*) as members from members"
%>
kan nån hjälpa mig nu ser koden ut såhär!
får
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Drivrutin för ODBC Microsoft Access] Syntaxfel (operator saknas) i frågeuttrycket 'not datum + 2002-02-03 01:41:23 <> 2002-02-03 and username'.
/Default.asp, line 45
<%
Set Connect6 = Server.CreateObject("ADODB.Connection")
Connect6.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
Set RecSet6 = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet6.Open Addera, Connect6, adOpenStatic, adLockOptimistic
tid = date()
gem = dateadd("n",recset6("minonline"),cdate(recset6("datum")))
Set connection6 = server.createObject("adodb.connection")
connection6.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") & ""
connection6.execute "update members set status = 'offline' where not "& gem &" <> "& tid &" and username"
sql = "select count(*) as members from members"
%>