<%
'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) = "
