Give your business an edge with our high profile banners |
You are visitor No.:
<%Dim fsoObj,tsObj,filObj,lngVisitorNo
Set fsoObj=Server.CreateObject("Scripting.FileSystemObject")
Set filObj=fsoObj.GetFile(Server.MapPath("HitCount.txt"))
Set tsObj=filObj.OpenAsTextStream
lngVisitorNo=CLng(tsObj.ReadAll)
lngVisitorNo=lngVisitorNo+1
Set tsObj=fsoObj.CreateTextFile(Server.MapPath("HitCount.txt"))
tsObj.Write CStr(lngVisitorNo)
Set fsoObj=Nothing
Set tsObj=Nothing
Set filObj=Nothing
Response.Write(lngVisitorNo)%>
|