Missing operator in query expression 'id ='

[wegawhite]

Originariamente inviato da rixx
quale delle 25 che hai li?
ma l'application dico non è vuota?

If o3RS("AwayStatus") = "1" Then

SQL = "SELECT * FROM users where id = "& id
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec = oConn.Execute(SQL) 
Dim arrUtenti, i 
Response.Write("Utenti connessi:")
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></font><font face=""Verdana"" size=""1""><font color=""black""> )</font>")
end if 
Next 
else
Response.Write("Nessun utente connesso")
end if

In rosso la parte del code che va in errore quando non ci sono utenti connessi...

[wegawhite]

Originariamente inviato da X_Gold*
ma session("id") dove viene valorizzato ???

login.asp:

session("username")=oRS("username")
session("id") = oRS("id")

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

index.asp

username = session("username")
id = session("id")
........
SQL = "SELECT * FROM users where id = "& id
Set rec = Server.CreateObject("ADODB.Recordset")
Set Rec = oConn.Execute(SQL)

Dim arrUtenti, i 
Response.Write("<p style=""margin-top: -18""><font color=""black""><font face=""Verdana"" size=""1"">(Amigos en Chat: </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></font><font face=""Verdana"" size=""1""><font color=""black"">)</font>")
end if 
Next

[X_Gold*]

se non ci sono utenti significa anche che il session("id") è vuota, infatti il session("id") viene attribuito solo dentro la pagina di login, quindi significa anche che se non c'è nessuno tra gli utenti tu non ci sei passato quindi non hai session("id") e logicamente ti da errore.

risolvilo cosi' (almeno se è vero che il NULL viene digerito bene)


id = session("id")
...
...
...


if id = "" then
id="NULL"
'NULL messo tra parentesi in modo che scriva proprio NULL nella query
end if

[wegawhite]

Non so se ho capito bene, scrivo così e funziona...:

id = session("id")

if id = "" then 
Response.Write("Nessuno in linea:")
else

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

Dim arrUtenti, i 
Response.Write("<p style=""margin-top: -18""><font color=""black""><font face=""Verdana"" size=""1"">(Amigos en Chat: </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></font><font face=""Verdana"" size=""1""><font color=""black"">)</font>")
end if 
Next 
end if

[[trodat]]

sto utilizzando il tuo script ma ho problemi...

[[trodat]]

ho risolto, il tuo script ha una piccola imperfezione guarda qui Spero ti sia utile. Buona giornata.