<%
'Actualizar contador de visitas
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
ArchivoContador = server.mappath("/contador.txt")
Set OutStream = FileObject.OpenTextFile(ArchivoContador,1,FALSE,FALSE)
Contador = OutStream.ReadLine
IF Contador <> "" THEN
Contador = Int(Contador) + 1
ELSE
Contador = 1
END IF
Session("Counter") = Contador
Set OutStream = Nothing
Set OutStream = FileObject.OpenTextFile(ArchivoContador,2,FALSE,FALSE)
OutStream.WriteLine CStr(Contador)
Set OutStream = Nothing
%>
Sergio Baldassarre