Salve, ho cercato di inserire questo contatore asp pubblicato su freeasp

codice:
Response.Expires = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("conta.txt")
Set a = fs.OpenTextFile(path)
conta = a.ReadLine
If Session("conta") = "" then
  Session("conta") = conta
  conta = conta + 1
 a.close
Set a = fs.CreateTextFile(path, True)
  a.WriteLine(conta)
End If
a.Close
Ma non funziona, la pagina non viene caricata (sembra che stia per essere visualizzata ma va in timeout) e da quel momento in poi il server non funziona più, neanche se fermo e riavvio. Sono costretto a riavviare Windows 2000 per far rifunzionare il tutto. Secondo voi perchè il server si comporta cosi?