<% ' Text Hit Counter Example By www.PowerASP.com ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing %> Welcome to Waz-Up.net

 

 

 

 

If you need help with a problem, please contact us. 

Your information will be kept confidential

Email Us:

 

I'm Pregnant 

 

I'm Afraid To Die

I Need To Talk To Someone

Someone's Hurting Me

If Your Heart is Hurting, God Can Heal It

Click on any of these personal audio messages that might be of help to you or a friend.

 

www.oldpathmission.org

Web Hits: <% =CounterHits %>

HTML Hit Counter
HTML Hit Counter