<% 'Creamos la conexión al archivo Set Fso = CreateObject("Scripting.FileSystemObject") contadortxt = Server.MapPath("contador.txt") Set FileRead = Fso.OpenTextFile(contadortxt,1,False) 'Leemos el archivo, y guardamos en la variable contador el valor que contiene el archivo contador = FileRead.ReadLine Set FileWrite = Fso.OpenTextFile(contadortxt,2,false) 'Aumentamos el contador y escribimos el nuevo resultado en el archivo contador = contador + 1 FileWrite.WriteLine (contador) 'Cerramos los objetos y conexión FileWrite.Close FileRead.Close Set FileWrite = Nothing Set FileRead = Nothing Set Fso = Nothing %>