mira aqui tienes uno
<%
Dim fp, Fs,a,ct
fp = Server.MapPath("aspcount.txt")
Set fs = CreateObject("Scripting.FileSystemObject" ;)
Set a = fs.OpenTextFile(fp)
ct = Clng(a.ReadLine)
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
a.close
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if
a.Close
%><TABLE width="100%">
<TR>
<TD align="Center"><center>
<b> a esta pagina se ha accedido <%=ct%> veces</b>
</center>
</TD>
</TR>
</TABLE>
%>
nada mas tiene que crear un archivo de texto y colcarle 1
saludos
<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>