Missing operator in query expression 'id ='

[wegawhite]

Cosa c'è di sbagliato in questo code:

Username = session("username")
response.write username &"
"
id = session("id")
response.write id &"
"

Dim Conn, SQL, Rec
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/Whole.mdb")

SQL = "SELECT * FROM users where id = " &id
response.write sql &"
"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

perchè restituisce:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.

[X_Gold*]

forse la session è scaduta o comunque vuota ?

[X_Gold*]

aspetta un attimo...

come lo apri quel recordset ????


Set rec = Server.CreateObject("ADODB.Recordset")
Rec.open sql , conn

[wegawhite]

Originariamente inviato da X_Gold*
forse la session è scaduta o comunque vuota ?

non credo, questa è la pagina di login:

sSql = "Select id,Username,Password,Email,Firstname,Lastname,Joindate,Logintimes FROM Users Where Username = '" & Username & "'"
Set oRS = oConn.Execute(sSql)
If oRS.eof then

usererror = "2"
Else

If Lcase(oRS("Password")) = Lcase(Password) Then

Session("Username") = oRS("Username")
Session("Password") = oRS("Password")
Session("Email") = oRS("Email")
Session("Firstname") = oRS("Firstname")
Session("Lastname") = oRS("Lastname")
Session("Joindate") = oRS("Joindate")
Logintimes = oRS("LoginTimes") + 1

Session("utente") = Request("Username") 
if InStr(1, Application("Utente"), Session("utente") & "#^#" & oRS("id") &"|" ) = 0 then 
Application.Lock 
Application("Utente") = Application("Utente") & Session("utente") & "#^#" & oRS("id") & "|" 
Application.UnLock 
end if 	 

Set oRS = nothing
sSQL = "Update Users SET Logintimes='" & LoginTimes & "' where Username='" & Session("Username") & "'"
Set oRS = oConn.Execute(sSQL)
     oConn.Close
     Set oRS = Nothing
     Set oConn = Nothing

questa è la pagina con cui recupero la lista utenti:

Nome = session("utente")
response.write nome &"
"
id = session("id")
response.write id &"
"

Dim Conn, SQL, Rec
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/Whole.mdb")

SQL = "SELECT * FROM users where id = "& id
response.write sql &"
"
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

Dim arrUtenti, i 
Response.Write "<font color=blue size=1 font face=verdana>In Linea: </font>"
arrUtenti = Split(Application("Utente"),"|") 
dim utenti 
for i = 0 to UBound(arrUtenti)-1
if i <> UBound(arrUtenti)-1 then
response.write ("<font color=red size=1 font face=verdana>"&replace(arrUtenti(i), "#^#", " ")&", </font>")
else 
response.write ("<font color=red size=1 font face=verdana>"& replace(arrUtenti(i), "#^#", " ")&"</font>")
end if 
Next

[X_Gold*]

non vedo dove valoizzi session("id"), poi quel codice (il primo) potrebbe essere fonte di bugs, perche tu chiami tutti gli username, e se ci dovessero essere dei doppioni ? ti darebbe solo il primo della lista.


per sicurezza io farei cosi' :

"Select id,Username,Password,Email,Firstname,Las
tname,Joindate,Logintimes FROM Users Where Username = '" & Username & "' and password ='" & password & "'"

[wegawhite]

Grazie adesso è ok...

ma perchè quando scade la sessione la query va in errore????
dovrebbe dire semplicemente "nessun utente connesso"...

[rixx]

si anche secondo me!!! kakkio non capisco non fa nemmeno il caffè..ste macchine non sono piu come una volta...

[X_Gold*]

Originariamente inviato da wegawhite
Grazie adesso è ok...

ma perchè quando scade la sessione la query va in errore????
dovrebbe dire semplicemente "nessun utente connesso"...

credo sia perche dovrebbe essere NULL e non ''

[wegawhite]

scusa non capisco...

[X_Gold*]

Originariamente inviato da rixx
si anche secondo me!!! kakkio non capisco non fa nemmeno il caffè..ste macchine non sono piu come una volta...

il mio db mi prepara anche la colazione e me la porta a letto