<%@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: Home
 

          Expert Residential & Commercial Carpet

        Cleaning and Complete Janitorial Services

 

                    Contact us at RogersRugs@aol.com

  
line decor
  
line decor
 
 
 
 
 
About Us
 

Roger's Rug Cleaning & Complete Janitorial Services is a full service carpet, upholstery and janitorial service. We have grown from a one man cleaning service that now employs 7 employees and do a variety of cleaning from new construction, office cleaning, floor maintenance, move in and out cleanings and a variety of other cleanings. We pride ourselves on having the best employees in the industry. They all possess knowledge, honesty and integrity which is what keeps our customers coming back.

  • Quality is our top priority

  • Serving Western Massachusetts

  • Residential and Commercial Insured

We have convenient appointments to fit any busy schedule, including Saturdays and Sundays.