<%
' start of asp setup
Dim pageid
pageid = 732
Dim pagelevel
pagelevel = 2
Dim link_recordid()
ReDim link_recordid(pagelevel+1)
link_recordid(2) = "732"
link_recordid(1) = "33"
link_recordid(0) = "11"
' end of asp setup
%>
Surveys, Building and Ordinance Compliance, City Services, City of Rochester Hills
<%
'----- Top Menu -----
For i = 0 To MenuItems.Count -1
If MenuItems.Item(i).linklevel = "0" Then
%><%
End If
Next
%>
<%
'----- Left Nav Items -----
For i = 0 To MenuItems.Count - 1
If MenuItems.Item(i).linklevel = "1" And MenuItems.Item(i).linkparentid = link_recordid(0) Then
%>
<%
End If
Next
%>
<%
'----- Top Breadcrumb -----
For i = 0 To pagelevel
If i > 1 Then Exit For
For itm = 0 To MenuItems.Count - 1
if MenuItems.Item(itm).recordid = link_recordid(i) Then
%><%
if i+1 <= pagelevel And i < 1 Then
%><%
End If
Exit For
End If
Next
Next
%>
<%
'----- tertiary links -----
Dim have_item
have_item = False
For itm = 0 To MenuItems.Count - 1
If MenuItems.Item(itm).linklevel = "2" And MenuItems.Item(itm).linkparentid = link_recordid(1) Then
if have_item Then %> -
<%
End If
have_item = true
if MenuItems.Item(itm).have_children Then %>»<%
Else %>·<%
End If
%><%=MenuItems.Item(itm).linkdisplay%><%
End If
Next
%>
<%
End If
Exit For
End If
Next
Next
%>
