questo è il mio script
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveNumber") = 0
Application("ActiveAlias") = ""
End Sub
Sub Session_OnStart
' setta il timeout di default 10
Session.Timeout = 1
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("ActiveAlias") = Application("ActiveAlias") & request.Cookies("AliveAlias") & "|"
Application.UnLock
' contatore visite
Dim jConn
Set jConn = Server.CreateObject("ADODB.Connection")
jConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/fraweb.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("ActiveAlias") = Replace(Application("ActiveAlias"), request.Cookies("AliveAlias") & "|","")
Application.UnLock
End Sub
</SCRIPT>
tutto quello che è dentro Session_On_End non viene processato.
sto facendo le prove chiudendo la pagina dalla X
Ho abbassato anche il TimeOut per provare
cosa e dove sbaglio?

Rispondi quotando