visualizar 800x600
Gracias por ser el visitante N°
<%
Dim objFSO, objTStream,texto,usuario
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTStream = objFSO.OpenTextFile("c:\Paginas\Marcelo\Counter\Counter.txt", ForReading)
Texto = objTStream.ReadLine
response.write Texto
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTStream = objFSO.OpenTextFile("c:\Paginas\Marcelo\Counter\Counter.txt", ForWriting)
objTStream.Write texto + 1
objTStream.Close
Set objTStream = Nothing
Set objFSO = Nothing
Session("Usuario")=""
%>