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

Our Equipment...
 
 

 

We are very proud of our new equipment.

 

 See below a list of features that set us apart from the rest!

 

    

    

 

  •  "State of the Art Equipment"  
  • Large Vacuum Blower for Fast Dry Time - Average Dry time is 4-6 hours
  • Use an extra Heat Exchanger to "Super Heat" water to 230 degrees F.
  • Use real Steam not hot water for cleaning
  • Out unit is totally Self Contained  we do not use Customer resources
  • We have our own water supply and recovery system
  • Dual wand capability
  • Over 500' of hose