Io ho fatto così, ma nn funzia niente:
codice:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
'Inserire qui il codice da eseguire all'avvio dell'applicazione
Application("n") = 0
End Sub
Sub Application_OnEnd()
'Inserire qui il codice da eseguire all'arresto dell'applicazione
End Sub
Sub Session_OnStart()
'Inserire qui il codice da eseguire all'avvio di ogni sessione utente
'Conto quanti Utenti hanno visitato il sito
dim miosito,lun,referer,testo
referer=request.servervariables("HTTP_REFERER")
Set Fil=CreateObject("Scripting.FileSystemObject")
Set inf=Fil.OpenTextFile(Server.MapPath("contatore.txt"),1,true)
testo=inf.ReadLine()
inf.Close
Set inf=Nothing
testo=testo+1
Application("n") = testo
Set out=Fil.CreateTextFile(Server.MapPath("contatore.txt"),true)
out.WriteLine(testo)
out.Close
Set out=Nothing
Set Fil=Nothing
End Sub
Sub Session_OnEnd()
'Inserire qui il codice da eseguire al termine di ogni sessione utente
End Sub
</SCRIPT>
Ovviamente nella pagina asp principale stampo Application("n") con:
codice:
<% = Application("n") %>