dim maxCount
dim farr()
dim narr()
dim larr()
dim idarr()
dim parr()
dim isCarr()
dim xcnt
dim lastID
dim xparent
dim subp
dim curFN
dim SLlast1
dim SLlast2

maxCount = 48

Sub RenderMenu(currentFilePath)
dim i, fnarray, maxitem, currentFileName

fnarray = Split(currentFilePath, "/")
maxitem = Ubound(fnarray)
currentFileName = fnarray(maxitem)
'document.write( "File name: " &  currentFileName)
curFN = currentFileName

SetupMenuItems()

document.write("<table width='240px' cellspacing='0' cellpadding='0'>")
document.write("<tr><td>&nbsp;</td></tr><tr><td>&nbsp;</td></tr>")
For i = 1 to UBound(farr)
  if larr(i) < 3 then
	RenderItem i
  end if
Next
document.write("</table>")
End Sub

Sub RenderItem(aIndex)
dim ni,tstr,selStyle
if larr(aIndex) > 1 then
For ni = 1 to larr(aIndex)
	tstr = tstr & "&nbsp; "
Next
end if
selStyle = ""
if isCarr(aIndex) = 1 then
	selStyle = "sel"
else
	selStyle = ""
end if
if farr(aIndex) = "" then
document.write("<tr><td class='nav"& larr(aIndex) & selStyle &"'>" & tstr &  narr(aIndex) & "</td></tr>")
else
document.write("<tr><td class='nav"& larr(aIndex) & selStyle &"'>" & tstr & "<a href='" & farr(aIndex) & "'>" & narr(aIndex) & "</a></td></tr>")
end if
End Sub


Sub WriteSiteLinks(currentFilePath)
dim i, fnarray, maxitem, currentFileName

fnarray = Split(currentFilePath, "/")
maxitem = Ubound(fnarray)
currentFileName = fnarray(maxitem)
'document.write( "File name: " &  currentFileName)
curFN = currentFileName

SetupMenuItems()

document.write("BKBH Site Links")
For i = 1 to UBound(farr)
	WriteSiteLink i
Next
document.write("END of Site Links")
End Sub

Sub WriteSiteLink(aIndex)
dim ni,tstr,selStyle
if larr(aIndex) > 1 then
For ni = 1 to larr(aIndex)
	tstr = tstr & "&nbsp; "
Next
end if

if farr(aIndex) = "" then
  document.write("tstr &  narr(aIndex)")
else
  document.write(tstr & "<a href='" & farr(aIndex) & "'>" & narr(aIndex) & "</a></td></tr>")
end if
End Sub




Sub SetupMenuItems()
redim farr(maxCount)
redim narr(maxCount)
redim larr(maxCount)
redim idarr(maxCount)
redim parr(maxCount)
redim isCarr(maxCount)
xcnt = 0
xparent = 0
subp = 0
lastID = 0

AddItem 1, 0, "index.html", "Home"
' cnt=1

AddItem 1, 0, "", "Our Firm"
xparent = lastID
AddItem 2, xparnet, "profile.html", "Firm Profile"
AddItem 2, xparnet, "attorneys.html", "Attorneys"
	subp = lastID
	AddItem 3, subp, "stan.html", "Stanley T. Kaleczyc"
	AddItem 3, subp, "leo.html", "Leo Berry"
	AddItem 3, subp, "dan.html", "J. Daniel Hoven"
	AddItem 3, subp, "oliver.html", "Oliver H. Goe"
	AddItem 3, subp, "leow.html", "Leo S. Ward"
	AddItem 3, subp, "cathy.html", "Catherine A. Laughner"
	AddItem 3, subp, "mark.html", "Mark D. Etchart"
	AddItem 3, subp, "kim.html", "Kimberly A. Beatty"
	AddItem 3, subp, "stevew.html", "Steven T. Wade"
	AddItem 3, subp, "markt.html", "Mark R. Taylor"
	AddItem 3, subp, "andy.html", "G. Andrew Adamek"
	AddItem 3, subp, "dave.html", "David M. McLean"
	AddItem 3, subp, "brand.html", "Brand G. Boyar"
	AddItem 3, subp, "resources/SaraBergAttorneyTemplate.html", "Sara S. Berg"
	AddItem 3, subp, "aimee.html", "Aimee Grmoljez"
	AddItem 3, subp, "chad.html", "Chad E. Adams"
	AddItem 3, subp, "trevoruffelman.html", "Trevor L. Uffelman"
	AddItem 3, subp, "katikintli.html", "Kati G. Kintli"
	AddItem 3, subp, "JohnTietz.html", "W. John Tietz"
	AddItem 3, subp, "RyanWillmore.html", "Ryan C. Willmore"
	AddItem 3, subp, "DanAuerbach.html", "Daniel J. Auerbach"
	AddItem 3, subp, "ChadVanisko.html", "Chad R. Vanisko"
	AddItem 3, subp, "MattKuntz.html", "Matthew J. Kuntz"
	AddItem 3, subp, "stevebrowning.html", "Steve Browning (Founding Member), Retired"
	AddItem 3, subp, "EdBartlett.html", "Ed Bartlett, Of Counsel"
	


	
	
AddItem 2, xparnet, "principles.html", "Guiding Principles"
AddItem 2, xparnet, "locations.html", "Office Locations"
' cnt=5

AddItem 1, 0, "", "Practice Areas"
xparent = lastID
AddItem 2, xparnet, "practice.html", "General List"
AddItem 2, xparnet, "capabilitycommercial.html", "Commercial Practice"
AddItem 2, xparnet, "capabilityenvironmental.html", "Environmental Practice"
AddItem 2, xparnet, "capabilityhealthcare.html", "Health Care Practice"
AddItem 2, xparnet, "capabilitylitigation.html", "Litigation Practice"
AddItem 2, xparnet, "capabilitygovtaffairs.html", "Public Affairs Practice"
' cnt=7

AddItem 1, 0, "", "Client Information"
xparent = lastID
AddItem 2, xparnet, "billphil.html", "Billing Philosophy"
AddItem 2, xparnet, "developments.html", "Significant Developments"
AddItem 2, xparnet, "clients.html", "Representative Clients"
AddItem 2, xparnet, "links.html", "Selected Links"
AddItem 2, xparnet, "legisinfo.html", "Legislative Affairs"
' cnt=6

AddItem 1, 0, "contact.html", "Contact Us"
' cnt=1		
		
AddItem 1, 0, "employment.html", "Employment Opportunities"
' cnt=1		
		
AddItem 1, 0, "disclaimer.html", "Disclaimer"
' cnt=1				
			
' total cnt = 22			
			
End Sub


Sub AddItem(aLevel, aParent, aFile, aMenuText)
xcnt = xcnt + 1
larr(xcnt) = aLevel
farr(xcnt) = aFile
narr(xcnt) = aMenuText
idarr(xcnt) = xcnt
parr(xcnt) = aParent
if strComp(curFN,aFile) = 0 then
isCarr(xcnt) = 1
else
isCarr(xcnt) = 0
end if
lastID = xcnt
End Sub