<%@LANGUAGE="VBSCRIPT"%>
<%
ruta = server.mappath("numselpaso.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile(ruta)
cont = a.ReadAll
cont = CDbl(cont)
conta = (cont + 1)
a.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set wfile = fs.CreateTextFile(ruta, True)
wfile.Write (conta)
wfile.close
Set wfile=nothing
Set fs=nothing
%>
Untitled Document