<% dim numero_actual set FSO = Server.CreateObject("Scripting.FileSystemObject") set Fich = FSO.OpenTextFile(Server.MapPath("contador/contador.txt"), 1) numero_actual=cint(Fich.ReadLine) Fich.Close set Fich = nothing set Fich = FSO.OpenTextFile(Server.MapPath("contador/contador.txt"),2) numero_actual=numero_actual + 1 Fich.writeline(numero_actual) Fich.close set Fich = nothing %>