Sessioni, global.asa e due dbase access

[viki1967]

Buonasera e bentrovati a tutti...

Ho necessità di aver chiarito la questione delle sessioni... dunque con un unico file global.asa vorrei gestire l'autenticazione ad un'area riservata ed a una chat.

Nei due casi recupero a video la lista degli utenti connessi, che sono registrati in due dbase differenti.

Succede però che se, ad esempio, nessuno si collega alla chat ma qualcuno si collega all'area riservata, mi ritrovo il nick dell'utente anche nella lista utenti della chat.

Naturalmente aprendo la lista dei connessi alla chat e cliccando sul nick dell'utente (che in realtà è entrato all'area riservata) per inviare un msg privado (passo l'id in querystring) mi viene recuperato l'id relativo al dbase degli utenti della chat, che non corrisponde naturalmente a quello del dbase degli utenti area registrata.

Come posso risolvere?

Grazie

[Nunkij]

L'elenco degli utenti della chat è salvato in una variabile. Quello degli utenti dell'area amministrativa è nella stessa? Se sì dovrebbe bastare cambiare variabile e fare un controllo che ti dice se accedono a tutte e due le cose aggiornare entrambe le variabili!

[viki1967]

Originariamente inviato da Nunkij
L'elenco degli utenti della chat è salvato in una variabile. Quello degli utenti dell'area amministrativa è nella stessa? Se sì dovrebbe bastare cambiare variabile e fare un controllo che ti dice se accedono a tutte e due le cose aggiornare entrambe le variabili!

Grazie per la risposta; questa è la lista degli utenti connessi alla chat:

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

if id = "" then 
Response.Write("Utenti: nessuno")
else

sSQL = "SELECT * FROM chat where id = "& id
Set oRec = Server.CreateObject("ADODB.Recordset")
Set oRec = oConn.Execute(sSQL)

Dim arrUtenti, i 
Response.Write("Lista 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 
end if

questa invece la lista degli utenti all'area riservata:

<% 
Option Explicit
response.buffer = True
dim id, nome, cognome, email, permesso

If NOT session("login") then
	response.redirect "login.asp"
else
	id = Request.QueryString("id")
	nome = Request.QueryString("nome")
	cognome = Request.QueryString("cognome")
	email = Request.QueryString("email")

	Nome = session("username")
	id = session("id")
	
sSQL = "SELECT * FROM area_riservata where id = " &id
Set oRec = Server.CreateObject("ADODB.Recordset")
Set oRec=oConn.Execute(sSQL)

Dim arrUtenti, i 
Response.Write("Utenti area riservata:")
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 
%>

Cosa dici di fare?

[viki1967]

up