Contador

[jpalbox]

'primero indicamos el path virtual donde se localiza el archivo
fp = Server.MapPath("(noombredirectorio)/contador.txt")
'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo
Set fs = CreateObject("Scripting.FileSystemObject")
'Abrimos el archivo
Set a = fs.OpenTextFile(fp)
'Leemos el archivo
ct = Clng(a.ReadLine)
'Checamos si existe la variable de sesion "ct" si no existe la crea. Le aumenta el valor a la variable
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
'Escribimos y guardamos el archivo el archivo
'Cerramos el archivo
a.close
'Abrimos el archivo para grabarlo
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if
'Cerramos el archivo
a.Close
'Mostramos el contador
Response.Write ct
%>

primero debemos crear el archivo txt en un directorio con permisos de escritura