<%
dim FileStreamObject
dim TextStream
dim PageHits
Set FileStreamObject = CreateObject("Scripting.FileSystemObject")
Set TextStream = FileStreamObject.OpenTextFile( Server.MapPath ("upload\hits.txt"),1)
PageHits = TextStream.Readline
if session("UserID") = "" then
PageHits = PageHits + 1
Set TextStream = FileStreamObject.OpenTextFile( Server.MapPath ("upload\hits.txt"),2)
TextStream.Writeline(PageHits)
session("UserID") = PageHits
end if
%>
Best Viewable in 800X600
resolution and IE5+. Any Comments and
suggestions - contact Web Specialist / Web Master GPH InfoNet
- A Great Way to Net
Or Visit Us at
