Problema con gli utenti collegati

[diegoctn]

Ragazzi non riesco a visualizzare gli utenti connessi e ci sto sbattendo la testa da giorni. Potete darmi un vostro consiglio? Io ho inserito nel global.asa:

'PROVA DEL 30-07-2004
Sub Application_OnStart
  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

Poi (e secondo me è quì il problema) ho inserito nella pagina di login:

<%
utentegal=Request.Form("utentegal")
passp=Request.Form("passp")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("POLO.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
Squery="SELECT * FROM notifica where password='"&passp&"' and user='"&utentegal&"'"
set rs=server.createobject("adodb.recordset")
rs.open Squery,Conn
if not rs.eof then
session("utentegal")=Request.Form("utentegal")
session("mette")=rs("log")
session("associa")=rs("ass")
session("farm")=rs("farm")
session("reparto")=rs("pre")
session("unity")=rs("unity")
Response.Redirect ("guida.asp")
Else
Response.Redirect ("riprova.htm")
End If
Set rs=Nothing
conn.close
set.Conn=Nothing

'PROVA DEL 30/07/2004

Session("utente") = Request("Utentegal")
if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
  'se l'utente non è già presente
  Application.Lock
  'viene aggiunto l'utente appena loggato alla stringa che contiene
  ' l'elenco degli utenti
  Application("Users") = Application("Users") & Session("utente") & "|"
  Application.UnLock
end if 
%>

ed infine dovrei visualizzare nella pagina collegati:

<% 
Dim arrUtenti 
arrUtenti = Split(Application("User"),"|") 
dim utenti 
for i = 0 to UBound(arrUtenti)-1 
if i <> UBound(arrUtenti)-1 then 
utenti = utenti & arrUtenti(i) & " , " 
else 
utenti = utenti & arrUtenti(i) 
end if  
Next 
Response.Write "<font color=red size=1 font face=verdana> " & utenti & "</font>" 
%>

Ebbene mi da la pagina bianca. Perchè??

[Luis33]

Utilizzo lo stesso script prova così e controlla che ti stampi il nome utente proveniente dal request:

Session("user") = Request("user")
response.write "prova1: " & Session("user") 
if InStr(1, Application("Users"), Session("user") & "|" ) = 0 then
response.write "prova2: " & Session("user") 
  'se l'utente non è già presente
  Application.Lock
  'viene aggiunto l'utente appena loggato alla stringa che contiene
  ' l'elenco degli utenti
  Application("Users") = Application("Users") & Session("user") & "|"
  Application.UnLock
end if

attento a cambiare il Request("user") con il tuo.
Fammi sapere e hai il mio post?
http://forum.html.it/forum/showthrea...hreadid=693425

[diegoctn]

Penso che il problema sia proprio sul request. Come vedi, nel codice in alto, io passo la variabile utentegal. Ed ho fatto così. Ma niente....

[Luis33]

Originariamente inviato da diegoctn
Penso che il problema sia proprio sul request. Come vedi, nel codice in alto, io passo la variabile utentegal. Ed ho fatto così. Ma niente....

Scusa credo che l'inserimento del code di visualizzazione nella pagina di login sia errato... prova a spostarlo...ed a provare

[diegoctn]

Ed infatti non mi da nulla a video......mi spieghi che tipo di request è? Request di cosa...?

[diegoctn]

A video , in una pagina nuova, mi da solo prova1: e prova2:.......

[Luis33]

Originariamente inviato da diegoctn
Ed infatti non mi da nulla a video......mi spieghi che tipo di request è? Request di cosa...?

Fai correttamente il request:

Session("utente") = Request("Utentegal")

per verificare se il request passa devi fare i response.write che ti ho postato prima, andiamo per gradi...

[Luis33]

Originariamente inviato da diegoctn
A video , in una pagina nuova, mi da solo prova1: e prova2:.......

quindi non passa correttamente il request, cioè il dato che viene dal form, come si chiama il campo del tuo form?

[diegoctn]

utentegal

[Luis33]

prova così:

<%
utentegal=Request.Form("utentegal")
passp=Request.Form("passp")
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("POLO.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
Squery="SELECT * FROM notifica where password='"&passp&"' and user='"&utentegal&"'"
set rs=server.createobject("adodb.recordset")
rs.open Squery,Conn
if not rs.eof then
session("utentegal")=Request.Form("utentegal")
session("mette")=rs("log")
session("associa")=rs("ass")
session("farm")=rs("farm")
session("reparto")=rs("pre")
session("unity")=rs("unity")

Session("utente") = Request("Utentegal")
if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
Application.Lock
Application("Users") = Application("Users") & Session("utente") & "|"
Application.UnLock
end if 

Response.Redirect ("guida.asp")
Else
Response.Redirect ("riprova.htm")
End If
Set rs=Nothing
conn.close
set.Conn=Nothing
%>