%
'creamos el nombre del archivo
archivo= request.serverVariables("APPL_PHYSICAL_PATH") & "contador/encurs.txt"
'conectamos con el FSO
set confile = createObject("scripting.filesystemobject")
'abrir el fichero para lectura
set fich = confile.OpenTextFile(archivo)
'leemos el contenido del fichero
texto_fichero = fich.readAll()
'abrir el fichero para escritura
set fich = confile.OpenTextFile(archivo,2)
'escribim
fich.write(texto_fichero+1)
fich.close()
%>