<% ' Note that Application("RootPath") is defined in the Default.asp. strRoot = Application("RootPath") %>
images/grassback.gif">

 
<% strImageName = "configuration/Council Patch.gif" strDimensions = ImageResize(Application("RootPath") & strImageName, 200, 90) %> " alt="Council Patch" <%=strDimensions%>>
<% strImageName = "configuration/Unit Number Patch.jpg" strDimensions = ImageResize(Application("RootPath") & strImageName, 175, 100) %> Cub Scout <%=Application( Patch" src="<%=Application("WebRootPath") & strImageName%>" border="0" naturalsizeflag="0" <%=strDimensions%>>
<% strImageName = "configuration/Quality Unit Patch.gif" ' Now we need to determine of there is a Quality Unit Award Patch Set objfileSystem = CreateObject("Scripting.FileSystemObject") strTemp = Application("RootPath") & strImageName if objfileSystem.FileExists(strTemp) then strDimensions = ImageResize(Application("RootPath") & strImageName, 125, 75) %> " alt="Quality Unit Award" <%=strDimensions%>> <% else %>


<% end if %>

images/grassback.gif"> <% ' Display the General Information menu if needed if bDisplayGeneralInformationMenu = True then %> <% end if %> <% ' Display the Calendar Login menu if needed if bDisplayCalendarLoginMenu = True then %> <% end if %> <% ' Display the Calendar Admin menu if needed if bDisplayCalendarAdminMenu = True then %> <% end if %> <% ' Display the Uniform menu if needed if bDisplayUniformMenu = True then %> <% end if %> <% ' Display the Uniform menu if needed if bDisplayAdminMenu = True then %> <% end if %> <% ' Display the Ranks menu if needed if bDisplayRanksMenu = True then %> <% end if %>
images/grassback.gif" align="center" valign="bottom">