| |
<%
'-Begin main menu code:
Set rs = cnDZ.Execute("SELECT PG, MENU_TITLE, MAIN_MENU_ITEM FROM TBLPAGES WHERE MAIN_MENU_ITEM <> 0 ORDER BY MENU_TITLE ASC;")
If Not rs.EOF Then
Do Until rs.EOF
If pg = ""&rs("PG")&"" Then mnu = ""&rs("MENU_TITLE")&"" Else mnu = rs("MENU_TITLE")
Response.Write""&mnu&" "
rs.MoveNext
Loop
rs.Close
End If
Set rs = Nothing
'-End main menu.
%> |
| |
|
| |
|
|
|
Ascension
Island |

|
Browse
Countries |

|
|
|
|
|
|
<%
End Sub
Sub TemplateAfterPC()
Dim rs
'Begin all the closing html tags that go AFTER your Page Content(which is pulled into your webpages dynamically, from your Intranet and database):
%>
|
|