<%
dim fileObj, Entrada, Actual, Nuevo
set fileObj = createobject("Scripting.FileSystemObject")
nombFichero = "C:\Inetpub\wwwroot\ALMARCHA_MORENO\pruebas\contador.txt"
set Entrada = fileObj.opentextfile(nombFichero, 1, false )
Actual = Trim(Entrada.ReadLine)
Nuevo = Actual + 1
Set Salida= FileObj.CreateTextFile (nombFichero, True)
Salida.WriteLine(Nuevo)
%>
Promociones Almarcha Moreno
|
|