För att använda denna funktion så måste du behörighet att använda global.asa (gratis webbhotell tillåter oftast inte detta).
Denna kod ska finnas i global.asa
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666">
<script language=VBScript runat=Server>
Sub Application_OnStart
Application("antal") = 0
End Sub
Sub Session_OnEnd
IF session("userID") <> "" THEN
Application.Lock
Application("antal") = cint(Application("antal")) -1
Application.Unlock
End if
End Sub
</script>
När användaren loggar in och får en session så ska du lägga till denna application("antal"). Ska ge ett exempel.
Ett utdrag ur login.asp
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666">
session("userID") = userID
Application.Lock
Application("antal") = cint(Application("antal")) +1
Application.Unlock
Response.Redirect "medlem.asp"
Eventuella diskussioner kring scriptet kan göras i denna tråd:
http://cgi.webforum.nu/wf/Forum11/HTML/006675.html
------------------
Alltid lär man sig något nytt varje dag...
[Redigerat av Lukaspojken den 08 okt 2001]