% Dim objFile, objStream Const ForReading=1, ForWriting=2 ' Make sure you change the following to your servers virtual path ' Lets open the file and read the information before we write and change it Set objFile = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFile.OpenTextFile(Server.MapPath("/") & "\counters\digital\counter1.txt", ForReading, True) strUsrCount = objStream.ReadLine strLastTime = objStream.ReadLine ' Now we have the old count, lets get the new data and ready it for writing strCurCount = strUsrCount + 1 strCurVisit = Now() TotalDigits = Len(strCurCount) ' Now lets take the new data and open the file and write it Set objStream = objFile.OpenTextFile(Server.MapPath("/") & "\counters\digital\counter1.txt", ForWriting, True) objStream.WriteLine strCurCount objStream.WriteLine strCurVisit ' Close the file and tidy up a bit objStream.Close Set objStream = Nothing Set objFile = Nothing %>
![]()
HOSPITALITY
DESIGN GROUP
INCORPORATED
ARCHITECTURE
INTERIOR
DESIGN
FOODSERVICE
DESIGN
4035 Naco Perrin Blvd, Suite 200E
San Antonio, TX 78217-2530
TEL: (210) 831-3580
info@
hospitalitydesigngroup.com
<%for I = 1 to TotalDigits Step 1%>![]()
Webmaster
�2009 Hospitality Design Group, Inc.