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

  Joliet Location
      2358 Glenwood Ave.  Joliet, IL  60435
      (815) 730-1819
      Contact us online

 


View Larger Map

3 blocks west of Provena Hospital. 
In Glenwood Plaza,
next door to Maurie's Table Pizzeria

 

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