Pseudonimo utenti registrati

[Enrique_Rojas]

Dunque sono quasi allo "sclero" ... ho sviluppato, grazie alla ricerca su questo forum, un'applicazione nella quale con global.asa visualizzo gli pseudonimi degli utenti registrati quando si autenticano all'area riservata.
Ha sempre funzionato bene sino ad ieri sera, da oggi succede questo:
-alla prima autenticazione di più utenti è tutto ok e la visualizzazione è corretta;
-la sessione si chiude con i tempi impostati nella session timeout;
-quando l'utente si riautentica per aprire la sessione, oltre al suo nick, mi ritrovo a video tutti i nick di quegli utenti la cui sessione è scaduta! sarebbe così:
Utenti connessi: gigi, andrea, gaspare, zuzzurro
scade la sessione regolarmente;
Utenti connessi:
Mi autentico come pippo
Utenti connessi: gigiandreagasparezuzzurro, pippo
che può essere successo, sono in hosting su aruba...
Grazie

[Enrique_Rojas]

up

[Enrique_Rojas]

Quelli di aruba naturalmente rispondono che hanno verificato e che non è un loro problema...
intanto un'applicazione che funzionava adesso è ko con gli utenti che rimangono 'appesi' a decine... posto il code del global.asa nella speranza che qualcuno possa 'vedere' il problema:

<script LANGUAGE="VBScript" RUNAT="Server"> 
Sub Application_OnStart 
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("/mdb-database/utenti.mdb") 
application.lock 
Application("Utente") = ""
application("users") = 0 
Application("dbconn") = strConn 
application.unlock 
End Sub 

Sub Application_OnEnd 
End Sub 

Sub Session_OnStart 
Session("start") = Now
session.timeout = 20 

set objconnvisite=Server.createobject("ADODB.Connection") 
Set objrsvisite = Server.CreateObject("ADODB.Recordset") 

objconnvisite.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &Server.mappath("/mdb-database/conteggio.mdb") 
objconnvisite.Open 

oggi=date() 
ipvisit=request.servervariables("remote_addr") 


'SQL quando data=oggi e l'ip è nuovo 
strSQL="SELECT * FROM tbl_sessioni WHERE datepart('d',visitdate)="&datepart("d",oggi)&" AND datepart('m',visitdate)="&datepart("m",oggi)&" AND datepart('yyyy',visitdate)="&datepart("yyyy",oggi)&" AND visitorIP='"&ipvisit&"'"
objrsvisite.Open strSQL, objconnvisite, 3, 3 
if (objrsvisite.EOF OR objrsvisite.BOF) then 
'prima sessione odierna dell'ip ipvisit 
objrsvisite.addnew 
objrsvisite("visitdate")=oggi 
objrsvisite("visitorip")=ipvisit 
end if 
objrsvisite("visitorcount")=objrsvisite("visitorcount")+1 
objrsvisite.update 
objrsvisite.Close 
Set objrsvisite = Nothing 
objconnvisite.Close 
Set objconnvisite = Nothing 

application.lock 
application("users")=cint(application("users"))+1 
Session("login") = False 
application.unlock 
End Sub 

Sub Session_OnEnd 
application.lock 
Application("Utente") = Replace( Application("Utente") , Session("utente") & "|" ,"")
application("users")=cint(application("users"))-1 
Application.UnLock
End Sub 
</script>