<%@LANGUAGE="VBSCRIPT"%> <% ' 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 %> Roger's Rugs Complete Janitorial service Western Mass

          Expert Residential & Commercial Carpet

        Cleaning and Complete Janitorial Services


                    Contact us at RogersRugs@aol.com

line decor

      <% =CounterHits %>

line decor


Roger's Rug Cleaning, Inc., is an owner-operated business based in Ware, Massachusetts servicing all of Western Massachusetts. My wife Anna and I will work tirelessly with the Rogers Rug's cleaning team of competent professionals assuring you receive the best service available, we stand behind our work!

We take pride in our work. Our mission is to earn your business and build long term relationships with each of our our valued customers. 


 Owner Roger Driscoll