|
| MITTS Home |
Programs and Activities |
Memo |
Calendar of Events This is an archived Project. These project pages may not contain current information. No updates are made to archived projects. |
|
<% '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 'HTML output to display the visitor number Response.Write(" Visitor Number")
'Display the hit count as text
Response.Write(" " & lngVisitorNumber & "   ")
'Loop to display graphical digits
'For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
'Display the graphical hit count
'Response.Write("The Disability Link Barn Person-centered Services Supporting People
with Developmental Disabilities Methodist Healthcare - Healthwise Inc.'s
Knowledgebase
Home | Welcome
from the Director | Who We Are |
What We Do | Contact Us
Links| Support Us | Calendar of Events | Consumer & Family News | USM
Director: Jane.Siders@usm.edu
Webmaster: Richard.Baker@usm.edu
Last Modified: December 1, 2005 1:05 PM Page URL:http://www.usm.edu/ids/mitts/links.asp AA/EOE/ADAI |