Codice facile...... ma non va ???

[Riccardo980]

Ciao ragazzi, sto realizzano un super sistema di messaggeria interna tra utenti, con visualizzazione profilo ed utenti connessi, il sogno di tutti diciamo...... ora un problemino con un codice, ed una volta risolto, giuro che la posto HTML nell'area scripts..... di freeasp ora posto il codice che non va.....:

Il file postato in seguito: "Utenti_connessi.asp" visualizza gli utenti connessi al sito, ora il problema che non riesco a risolvere è fa visualizzare vicino al nome dell'utente connesso la sua foto.... sto impazzendo!!
(pathfile è il nome del campo foto)

Utenti_connessi.asp

<META http-equiv="REFRESH" content="5; url=http://www.interlogosrl.com/public/Messaggeria/utenti_connessi.asp">
<%
dim objconn
set objconn=Server.createObject ("ADODB.Connection")
objConn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Db_Messaggeria.mdb")
objconn.open
Dim strsql
strsql = "SELECT pathfile FROM tUtenti WHERE utente_user = '" & Utente & "' "
Dim objrs
set objrs=Server.CreateObject ("ADODB.Recordset")
objrs.open strsql, objconn
dim arrUtenti
Response.Write "Utenti Collegati:
"
arrUtenti = Split(Application("Users"),"/")
for i = 0 to UBound(arrUtenti)
Response.Write "<A href='Profilo.asp?Utente=" & arrUtenti(i) & "'>"
Response.Write "[img]objRS("pathfile") width="57" height="61[/img]"
Response.Write arrUtenti(i) & "
"
Response.Write "</A> "
next
objrs.Close
Set objrs = Nothing
objconn.Close
Set objconn = Nothing

%>

VVoVe:
GAZIE IN ATICIPO.........!!!

[wallrider]

Response.Write "[img]"& objRS("pathfile")&"[/img]"

[Riccardo980]

Ho cambiato come mi ha detto ma..... dice:


Microsoft VBScript compilation error '800a0401'

Expected end of statement

/public/Messaggeria/Utenti_connessi.asp, line 18

width="57" height="61'>"
-----------^


Sto impazendooooooooooooooooooo

[wallrider]

Originariamente inviato da Riccardo980
Ho cambiato come mi ha detto ma..... dice:


Microsoft VBScript compilation error '800a0401'

Expected end of statement

/public/Messaggeria/Utenti_connessi.asp, line 18

width="57" height="61'>"
-----------^


Sto impazendooooooooooooooooooo

Ci credo, non modifichi il codice...

[Riccardo980]

<META http-equiv="REFRESH" content="5; url=http://www.interlogosrl.com/public/Messaggeria/utenti_connessi.asp">
<%
dim objconn
set objconn=Server.createObject ("ADODB.Connection")
objConn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Db_Messaggeria.mdb")
objconn.open
Dim strsql
strsql = "SELECT pathfile FROM tUtenti WHERE utente_user = '" & Utente & "' "
Dim objrs
set objrs=Server.CreateObject ("ADODB.Recordset")
objrs.open strsql, objconn
dim arrUtenti
Response.Write "Utenti Collegati:
"
arrUtenti = Split(Application("Users"),"/")
for i = 0 to UBound(arrUtenti)
Response.Write "<A href='Profilo.asp?Utente=" & arrUtenti(i) & "'>"
Response.Write "[img]"& objRS("pathfile")&"[/img]"

Response.Write arrUtenti(i) & "
"
Response.Write "</A> "
next
objrs.Close
Set objrs = Nothing
objconn.Close
Set objconn = Nothing

%>

E' VERO SCUSA AVEVO COPIATO IL CODICE VEKKIO ORA MI DA QUESTO ERRORE:

Utenti Collegati:
error '80020009'

/public/Messaggeria/utenti_connessi.asp, line 17

[wallrider]

ahi ahi ahi
http://forum.html.it/forum/search.ph...by=&sortorder=

ma la variabile Application("Users") è vuota?

[Riccardo980]

ahi ahi ahi
http://forum.html.it/forum/search.p...&sortorder=

ma la variabile Application("Users") è vuota?

---------------------------------------------------------------------

Cosa intendi ?

Il global.asa l'ho messo....... nella root principale con questo codice:

<SCRIPT language="VBScript" Runat="Server">

Sub Application_OnStart
Session.Timeout = 10

Application("Users") = ""
End Sub

Sub Session_OnEnd

Application.Lock
Application("Users") = Replace( Application("Users") , Session("utente") & "|" ,"")
'quando scade una sessione viene eliminato il nome dell'utente dalla variabile di
'applicazione che contiene l'elenco degli utenti attivi
Application.UnLock

End Sub

</SCRIPT>

MI DA QUESTO ERRORE:

Utenti Collegati:
error '80020009'

/public/Messaggeria/utenti_connessi.asp, line 17

CHE SAREBBE:
Response.Write "[img]"& objRS("pathfile")&"[/img]"

Se levo il riferimento alla foto, il codice funziona correttamente e mi vsualizza la lista degli utenti..... quindi la session la vede..!!

[wallrider]

Originariamente inviato da Riccardo980
...
CHE SAREBBE:
Response.Write "[img]"& objRS("pathfile")&"[/img]"

Ah, avevo fatto male il conto delle righe :rollo:
fai

response.write("<hr>"& objRS.eof &"<hr>")

cosa ti viene fra le righe?

[Riccardo980]

Originariamente inviato da wallrider
Ah, avevo fatto male il conto delle righe :rollo:
fai

response.write("<hr>"& objRS.eof &"<hr>")

cosa ti viene fra le righe?

Cosa intendi dove devo mettere

response.write("<hr>"& objRS.eof &"<hr>")

?

Grazie e scusami!

[wallrider]

Originariamente inviato da Riccardo980
Cosa intendi dove devo mettere

response.write("<hr>"& objRS.eof &"<hr>")

?

Grazie e scusami!

E' proprio quello che ti ho detto :rollo: