% CounterFile = "d:\soapimpressions\data\usercount.cnt" Set fs = CreateObject("Scripting.FileSystemObject") On Error Resume Next Set a = fs.OpenTextFile(CounterFile, 1, 0, 0) usercnt = a.Readline Set fs = Nothing usercnt = FormatNumber(usercnt + 1,0) Set fs = CreateObject("Scripting.FileSystemObject") Set b = fs.CreateTextFile (CounterFile, 1, 0) b.WriteLine usercnt Set b = Nothing %>
![]() | ||||||||||||||||||||
|
||||||||||||||||||||
|
Home | Products | FAQ | How to Order | Tips & Hints | Contact | Order Form Custom-Made Stamps | Ready Made Stamps | Alphabet Sets | pH Strips |
||||||||||||||||||||
|
Copyright Soap Impressions, 2000. |