<% 'Checking name of folder Dim strVRoot, objFS, objRootFolder, folderName, fileName, i, j Session.LCID = 1033 strVRoot = Server.MapPath("./") Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objRootFolder = objFS.GetFolder(strVRoot) fileName = objFS.GetFileName(Request.ServerVariables("SCRIPT_NAME")) folderName = LCase(objRootFolder.Name) Set objFS = Nothing : Set objRootFolder = Nothing 'Initialize Sub Menu Dim subMenu(5,7) 'i=0: Has string to build sub Menu 'i=1: Has sub Menu name for Delivery 'i=2: Has sub Menu name for Store 'j: Represents columns subMenu(1,1) = "index.asp" subMenu(1,2) = "signup1.asp" subMenu(1,3) = "pricelist.asp" subMenu(1,4) = "testimonial.asp" subMenu(2,1) = "services.asp" subMenu(2,2) = "locations.asp" subMenu(2,3) = "fundraising.asp" subMenu(2,4) = "coupon.asp" subMenu(3,1) = "How it works" subMenu(3,2) = "Sign Up" subMenu(3,3) = "Price List" subMenu(3,4) = "Testimonials" subMenu(4,1) = "Services" subMenu(4,2) = "Locations" subMenu(4,3) = "Fundraising" subMenu(4,4) = "Coupon" subMenu(0,0) = "" subMenu(0,6) = " " If folderName = "delivery" Then i = 1 Else i= 2 End If For j=1 to 4 If subMenu(i,j) = fileName Then 'Do not allow sub menu behavior subMenu(0,j) = "" & subMenu(i+2, j) & "" Else 'Allow sub menu behavior subMenu(0,j) = "" & subMenu(i+2, j) & "" End If Next %>
     
<% If folderName = "Swan_Web-Beta" Then %> Home <% Else %> Home <% End If %> <% If folderName = "delivery" Then %> Delivery <% Else %> Delivery <% End If %> <% If folderName = "delivery" Then %> Store <% Else %> Store <% End If %>  
<% For i=0 to 6 Response.Write subMenu(0,i) Next %>
 
  What sets us apart from other cleaners?

No cutting corners!  We take extra measures to bring
the best quality service to you!

  1. All garments go through 3-point inspections
    • First inspection:  before & after cleaning
    • Second inspection:  at pressing station
    • Final inspection:  at packaging station
       
  2. We purify our cleaning solvent after each load, which
    means your garments are odor-free and soft.
     
  3. We replace missing or broken buttons (standard size)
    for FREE!
     
  4. All garments are READY-to-WEAR (minor detailing
    are done for FREE!)
     
  5. You can bring back your garments should you are dissatisfied.  We'll try it again.
     
  6. We press all garments to perfection.
  Professional Dry Cleaning
  • We do not over use our cleaning solvent... Your garments
    are ODOR-FREE & SOFT.
  • All items go through detailed inspections to meet
    our quality standard-- SPOTLESS and WRINKLE-FREE. 

 
  Laundry

  • We pre-spot collar and cuffs for all shirts
  • We replace missing or broken buttons (standard size)
    for FREE!
  • We clean comforters, blankets, and table linens.  They
    are odor-less and soft.
  • We offer Wash-N-Fold valet service:  We'll pick up wash, dry, fold, package and deliver to your door.
  Expert Tailoring
  • Quality and professional work:  Our tailor has 16 years
    of professional experience.
  • Fast turnaround:  Tailor-on-site.  We can accommodate same-day alteration requests (restrictions apply).
    Alterations usually take 2-3 days.
  Suede/Leather & Fur & Rug Cleaning
  • For your convenience, we have made these services
    available to you. 

 
  Wedding gown cleaning & preservation
  • LIFE TIME GUARANTEED!

 
   

 

© Swan Cleaners & Services, Inc.  All rights reserved.