Counter :
<%
fp=Server.MapPath("Counter.txt")
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.OpenTextFile(fp)
ct=Clng(a.ReadLine)
if Session("ct")="" then
Session("ct")=ct
end if
ct=ct+1
a.Close
Set a=fs.CreateTextFile(fp,True)
a.WriteLine(ct)
a.Close
Response.Write (ct)
%>
Best View in 800 x 600 resolution Internet Explorer