Sub Contador()
'Creación del objeto de acceso a ficheros y del nombre del fichero 
'a acceder -contador.txt- del directorio contador
Dim oSFile, oTextArch, cArchi, nNuevo, nActual
Set oSFile = Server.CreateObject("Scripting.FileSystemObject")
cArchi = Server.MapPath ("/Contador") & "\Contador.txt"
'Lectura del fichero contador.txt e incremento del número de visitas
Set oTextArch = oSFile.OpenTextFile (cArchi, 1, false )
nActual = Trim(oTextArch.ReadLine)
'Modificación para controlar la sesión
If Session("NewSesion") = "" Then
Session("NewSesion") = 1
nNuevo = nActual + 1
Else 
nNuevo = nActual
End If

oTextArch.Close: Set oTextArch = Nothing 'Cerrar archivo y liberar

'Creación del fichero contador.txt y escritura del número de visitas
Set oTextArch= oSFile.CreateTextFile (cArchi, True)
oTextArch.WriteLine(nNuevo)

Set oSFile = Nothing
oTextArch.Close: Set oTextArch = Nothing
End sub