Buonasera Forum,
ho un global asa con:

(per contare gli utenti on line)
<script language="JScript" runat="Server">
function Application_OnStart() {
// Imposta a zero il contatore quando non ci sono utenti connessi
Application("users") = 1;
}
function Session_OnStart() {
// Incrementa di un'unità il contatore per ogni utente connesso
Application("users") += 1;
}
function Session_OnEnd() {
// Decrementa di un'unità il contatore ad ogni disconnessione
Application("users") -= 1;
}
</script>



e seppur grossolano, funziona.
Ma se cerco di aggiungere al global.asa il seguente codice per contare il numero di visite totali e scrivelo in un file.txt....non funziona più nulla.




Sub Application_OnStart
Set FO = Server.CreateObject("Scripting.FileSystemObject")
file = "c:\inetpub\wwwroot\upload\conta.txt"

'se non esiste lo crea
if NOT FO.FileExists(file) then
Set LOG=FO.CreateTextFile(file,true)
LOG.writeLine("0") 'imposta a 0
LOG.Close
set LOG=nothing
end if

'apre in lettura
Set file2 = FO.OpenTextFile(file, 1 , FALSE , FALSE )
Application("CONTATORE") = Clng(file2.ReadLine)
Set file2 = nothing
Set FO = nothing
End Sub

Sub Application_OnEnd
Set FO = Server.CreateObject("Scripting.FileSystemObject")
file = "c:\inetpub\wwwroot\upload\conta.txt"
Set file2 = FO.CreateTextFile(file,TRUE)
file2.WriteLine Application("Accessi")
Set file2 = nothing
Set FO = nothing
End Sub

Sub Session_OnStart
Application.Lock
Application("CONTATORE") = Application("CONTATORE") + 1
Application.Unlock
End Sub

Sub Session_OnEnd 'per S precisi ci metto pure questa.
End Sub


Penso che è sicuramente un problema su come unire i due codici: sapete come fare (fa ridere la domanda?)?