<%on error resume next
' Creamos el objeto
set fso = createobject("scripting.filesystemobject")
' Seteamos el archivo txt
set act = fso.opentextfile(server.mappath("../Data/marina.txt"))
' Leemos el valor del archivo
counter5 = clng(act.readline)
' Sumamos uno a ese valor
counter5 = counter5 + 1
' Cerramos el objeto
act.close
' Creamos un nuevo archivo de texto
Set act = fso.CreateTextFile(server.mappath("../Data/marina.txt"), true)
' Escribimos el nuevo valor del contador
act.WriteLine(counter5)
' Cerramos el objeto
act.Close
%>
