contador en asp

[ekia1]

quisiera saber como puedo implementar un contador en mi pagina web, en codigo asp para que me registre los visitantes con un aviso como este:
USTED ES EL VISITANTE NRO:######
MUCHAS GRACIAS

[ashketchum]

Tienes que crear un archivo que se llame counter.txt y ponerlo en la raiz del sitio, despues coloca este codigo en donde quieras que este el contador

<%
Dim fso, tsm, value
Set fso = Server.CreateObject("Scripting.FileSystemObje ct")
Set tsm = fso.OpenTextFile (Server.MapPath("counter.txt"),1,false)
value = Trim(tsm.ReadLine)
tsm.Close
If Not Session("counter") Then
value = value + 1
Session("counter") = true
Set tsm = fso.CreateTextFile (Server.MapPath("counter.txt"),true)
tsm.WriteLine(value)
tsm.Close
End If
Set tsm = Nothing
Set fso = Nothing
Response.Write (value)
%>

saludos y suerte
PD: este codigo se tomo de aspfacil.com puedes checar mas referencias ahi

@sh (Maestro Pokémon trajo esto para tí) :P<br> Fomentando el concepto "INTERNET"

[ekia1]

tengo un problema , estaoy trabajando con el edit plus pero al momento de ver la pagina en el internet explorer me dice que no se puede por:
*error type
input past end of file
luego me dice que el error esta en la fila 14 lo cual corresponde en mi editor a:
value = Trim(tsm.ReadLine)
gracias.

[ekia1]

bueno ya me corrio el contador asi que yo solo queria darte las gracias.
Ashketchum &lt;- :) ¿?