Global.asa e cookie bloccati

[FreeSoul]

Ho un problema con il global.asa

Quando accede un utente con i cookie SBLOCCATI funziona regolarmente e la variabile mi segna un utente on-line in più.

Il problema nasce quando entra un utente con i cookie BLOCCATI. La variabile che conta gli utenti on-line si incrementa di continuo per tutta la durata della visita di questo utente.
Sembra come se non riuscisse a passare il global.asa e fa di continuo dei tentativi.

Ho provato anche io bloccando i cookie. Infatti, pur navigando regolarmente il sito, il contatore si incrementa in continuazione.

Come posso fare per eliminare questo difetto?
Non vi passo qui il mio global perchè è il solito standard.

Grazie

[willybit]

tu sfrutti le session che sono possibili solo con i cookie abilitati.
Dovresti fare un test per verificare se il visitatore ha i cookie abilitati e in caso contrario reindirizzarlo ad una pagina dove lo inviti ad abilitarli per poter navigare il sito.

[FreeSoul]

Tu dici giusto ma ... guarda il mio Global.asa

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub IsOkLog
if request.Cookies("UsrAlias")<>"" then
user=request.Cookies("UsrAlias")
password=request.Cookies("UsrPassword")
Dim mConn10
Set mConn10 = Server.CreateObject("ADODB.Connection")
mConn10.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/mydb.mdb"))

sSQL10 = "SELECT * From mailinglist where alias='"&user&"' and password='"&password&"'"
Set Dati10 = Server.CreateObject ("ADODB.Recordset")
Dati10.Open sSQL10,mConn10,3,3
if Dati10.Eof then
Response.Cookies("UsrAlias")=""
Response.Cookies("UsrPassword")=""
Response.Cookies("UsrNome")=""
Response.Cookies("UsrCognome")=""
Response.Cookies("UsrLivello")=""
Response.Cookies("UsrEmail")=""
Response.Cookies("UsrCur")=""
end if
Dati10.Close
mConn10.Close
Set Dati10 = Nothing
Set mConn10 = Nothing
end if
end sub

Sub Application_OnStart
Application("ActiveNumber") = 0
Application("ActiveAlias") = ""
End Sub

Sub Session_OnStart
' setta il timeout di default 10
Session.Timeout = 3

IsOkLog()

if request.Cookies("UsrAlias")<>"" then
Response.Cookies("AliveAlias") = request.Cookies("UsrAlias")
else
Response.Cookies("AliveAlias") = "Guest"&Replace(time(),".","")
end if

Application.Lock
Application("ActiveNumber") = Application("ActiveNumber") + 1
Application.UnLock

if request.Cookies("UsrAlias")<>"" then
Application.Lock
Application("ActiveAlias") = Application("ActiveAlias") & request.Cookies("UsrAlias") & "|"
Application.UnLock
end if

' contatore visite
Dim jConn
Set jConn = Server.CreateObject("ADODB.Connection")
jConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/mydb.mdb"))
osSQL = "SELECT * From contatore"
Set oooDati = Server.CreateObject ("ADODB.Recordset")
oooDati.Open osSQL,jConn,3,3
num_vi=oooDati("visite").value+1
aggiorna="Update contatore Set visite="&num_vi
jConn.Execute aggiorna
oooDati.Close
Set oooDati = Nothing
jConn.Close
Set jConn = Nothing
End Sub

Sub Session_OnEnd
Application.Lock
Application("ActiveNumber") = Application("ActiveNumber") - 1
Application.UnLock
End Sub
</SCRIPT>

Come vedi, all'inizio verifico se è presente un cookie. Questo per non far riloggare l'utente (come in questo forum).
Se ha i cookie bloccati scavalca la IF e va oltre.

Io poi non uso Session ma Application (così come si deve fare).
Dammi una mano che è molto che ho questo problema e non riesco a risolverlo.