32 Richard Rd., Ivyland, PA 18974
Telephone:(215) 442-0100 Fax:(215) 442-7575
e-mail:sales@vproelectronics.com

Please, click on picture to continue.

click to enter

Please, click on picture to continue.
<% TotalDigits = 7 CounterFile = Server.MapPath ("/counters")& "\test.cnt" On Error Resume Next Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(CounterFile, 1, 0, 0) CurrentCount = a.ReadLine InStream.Close CurrentCount = CurrentCount + 1 set b = fs.CreateTextFile (CounterFile, 1, 0) b.WriteLine CurrentCount b.Close TotalCount = Right(String(TotalDigits, "0")& CurrentCount, TotalDigits) For i = 1 To TotalDigits DisplayCount = "" Response.Write(DisplayCount) Next %>