<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Create a new visitor counter text file over writing the previous one Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) 'Write the new visitor number to the text file tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'Display the hit count as text 'Response.Write(lngVisitorNumber) %>
 
 


* This site is best viewed with display settings set at 1024 x 768 and no less than 800 x 600

© Longshot's Rendezvous ( Est. 1993 )
Originally "Longshot's Rendezvous Hompage"
Longshot's Rendezvous and it's contents are wholly owned by Longshot.
It’s contents should not be copied or reused without the express permission of Longshot.
( However Longshot is pretty easy, so just ask.)
Longshot's Rendezvous - Version 2.01

Last Updates:
Links:  
01/31/07
Missouri Dates:   
03/07/07
Illinois Dates:  
03/07/07
Mo. & Il. Traders:  
01/26/07
Photo Album:  
01/31/10