<%
' Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
' nombFichero = Server.MapPath ("contador") & "\contador.txt"
'Set Entrada= FileObj.OpenTextFile (nombFichero, 1, false )
' Cadena = TRIM(Entrada.ReadLine)
'cortar = SPLIT (Cadena, "=")
' Nuevo = cortar(1) + 1
'cortar(0) = "x"
'cortar(1) = Nuevo
'texto = JOIN(cortar, "=")
' Set Salida= FileObj.CreateTextFile (nombFichero, True)
'Salida.WriteLine(texto)
%>