Bagaimana kalau dicoba begini:
Sub Session_OnEnd
Response.write "Session OnEnd"
a = cInt(Application("online")) - 1
Application.lock
Application("online") = a
Application.unlock
End Sub
----- Original Message -----
From: Hadi, Sofyan (IDN) <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, September 06, 2000 9:55 AM
Subject: RE: [webauthor] GLOBAL.ASA
> Thanks atas tanggapanya,
> Isi dari Global.asa saya adalah sebagai berikut :
> Tetapi saat dijalankan variable Applicatopn("Online") selalu bertambah
bila
> ada user yang mengakses, tetapi tidak berkurang bila user menutup
> browsernya....
>
> Ada yang salah dimana ya..???
>
>
> Sub Session_OnStart
> Application.lock
> Application("online") = Application("online") + 1
> Application.unlock
>
> Application.lock
> Application("Counter") = Application("Counter") + 1
> Application.unlock
> Session.Timeout = 60
> Session("intDataCount") = 1
>
> sPath = Request.ServerVariables("PATH_TRANSLATED")
> sPath = left(sPath, InStrRev(sPath, "\"))
> dbName2 = sPath & "Questioner.mdb"
> dbName = sPath & "Portal.mdb"
> dbName = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbName
>
> Session("dbDriver") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
> dbName2
> Session("dbName") = dbName
> if request.cookies("NPK")="" then
> response.redirect "login.html"
> end if
> End Sub
>
> Sub Session_OnEnd
> Response.write "Session OnEnd"
> Application.lock
> Application("online") = Application("online") - 1
> Application.unlock
> End Sub
>
>
>
> Sofyan Hadi
>
>
>
> --
> Pusing milih POP3 atau web mail? http://mail.telkom.net solusinya
> Berhenti langganan kirim email ke [EMAIL PROTECTED]
> Arsip di http://www.mail-archive.com/[email protected]/
>
>
--
Pusing milih POP3 atau web mail? http://mail.telkom.net solusinya
Berhenti langganan kirim email ke [EMAIL PROTECTED]
Arsip di http://www.mail-archive.com/[email protected]/
