<%@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
 
 
 
 
  
Welcome....


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
Rogersrugs@aol.com