Jag har problem med min global.asa. Jag håller på med ett community och det jag vill att den ska göra är att om medlemmen har varit inaktiv i 20 min så ska den medlemmen sättas till offline. Men det gör den inte, den fortsätter att vara online efter 20 minuters inaktivitet. Så här ser min global.asa ut:

<code>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("visitors") = 0
Application("intActive_users") = 0
End Sub


Sub Session_OnStart
Application("intActive_users") = Application("intActive_users") + 1

Application("visitors") = Application("visitors")+1
End Sub


Sub Session_OnEnd

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("C:\Intetpub\wwwroot\80\community.mdb")&";Jet OLEDB:Database Password=berten"

Connect.Execute ("UPDATE members SET status='offline' Where sessionID=" & Session.SessionID & "")
Connect.Close

End Sub

Sub Application_OnEnd

End Sub
</SCRIPT>
</code>

Något som kan se något fel i den koden?

Hur ska man lösa detta på något annat sätt då?

När du anropar Application skall du alltid låsa densamma, utföra dina saker och sedan öppna Application igen. Detta gör man för att två användare aldrig skall kunna anropa applikationern samtidigt.

<code>
<%

Sub Session_OnStart
'--- låser
Applocation.Lock
Application("intActive_users") = Application("intActive_users") + 1

Application("visitors") = Application("visitors")+1
'--- öppnar
Application.Unlock
End Sub

%>
</code>