webForumDet fria alternativet

hjälp snälla :-(

ASP

7 svar · 205 visningar · startad av hacktheplanet

Medlem sedan nov. 2001263 inlägg
Frågan#1
<%
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'.

Medlem sedan mars 20002 836 inlägg
#2

testa detta:

where not ("& tid2 &" + "& tid3 &") = "& tid &"

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

Medlem sedan nov. 2001263 inlägg
#3

nope funkar inte :(

Medlem sedan dec. 200012 464 inlägg
#4

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

Medlem sedan nov. 2001263 inlägg
#5

session("username") har jag inte när jag startar default.asp

Medlem sedan nov. 2001263 inlägg
#6

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 :(

Medlem sedan nov. 2001263 inlägg
#7

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"
%>
Medlem sedan nov. 2001263 inlägg
#8

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" 
%>
262 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
128 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)