<% SiteColors = Array ("993300","#338833","cc6600","ff9900") LinkColor = "SiteColors(1)" vLinkColor = "993300" aLinkColor = "#FF0000" 'SiteColors = Array ("330000","663333","996666","cc9999") 'LinkColor = "993333" 'vLinkColor = "993333" 'aLinkColor = "cc6666" %> <%Sub Header%> <%= PageTitle %>
<% If hasHelp then %><% Else %><% End IF %>
<%End Sub%> <% Sub Footer %>
 


<% If IsObject (rs) then set rs = nothing %> <% End Sub %> <% Sub Menu (PageID)%> <% If PageID >= 100 and PageID < 200 then %>



<%If HasPolicies then%>

<%End If%> <% If HasDealers then %>

<% ElseIf HasLocations then %>

<% ElseIf HasMembers Then %>

<% End If %> <% If HasHistory then %>

<%End If%> <% If HasServices then %>

<% End IF %> <% If HasManufacturers then %>

<%End If%>
<% Else %>
<% End If %> <% If HasProducts then %> <% If PageID >= 200 and PageID < 250 then %>







<% Else %>
<% End If %> <% End If %> <% If HasUProducts then %> <% If PageID >= 250 and PageID < 300 then %>







<% Else %>
<% End If %> <% End If %> <% If HasSupplies then %> <% If PageID >= 300 and PageID < 400 then %>







<% Else %>
<% End If %> <% End If %> <% If HasParts then %> <% If PageID >= 400 and PageID < 500 then %>







<% Else %>
<% End If %> <% End If %> <% If HasWhatsNew then %> <% If PageID >= 500 and PageID < 600 then %>





<% Else %>
<% End If %> <% End If %> <% If HasMonthly then %> <% If PageID >= 600 and PageID < 700 then %>





<% Else %>
<% End If %> <% End If %> <% If HasMail then %> <% If PageID >= 900 and PageID < 1000 then %>







<% Else %>
<% End If %> <% End If %>

 
<% End Sub %> <% Function IsOn (PageID, Button) If PageID = Button then Image = "on" Else Image = "off" End If IsOn = Image End Function %>