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


Everyone needs their clothes cleaned!
 

Be Creative!
Stop selling useless items and unhealthy candy bars!
Turn one of everyday expenses into funds for your school or organization!


It's Simple!
Choose two consecutive weeks and we'll keep track of all invoices paid by your organization supporters. At the end of two weeks, we'll donate 15% of net proceeds to your organization.


We'll Do All the Work!
Just inform your organization supporters about this wonderful program. Try to get as many participants as possible. Larger number of participants means more donation!

 

Call (815) 730-1819 to begin your fundraising
event right away!

 

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