<% Session("Admin") = 0 %>
<%
' The following dynamically handles navigation and breadcrumbs
dim nav(15)
dim incFile(15)
dim navL1CLASS(15)
dim navL1CLASSbg(15)
dim navL2CLASS(15)
dim navL3CLASS(15)
dim navL4CLASS(15)
for i=1 to Request.QueryString("nav").Count
nav(i) = Request.QueryString("nav")(i)
next
for m=0 to 14
navL1CLASS(m) = "NAVtextL1"
navL1CLASSbg(m) = "images/cpo_r3_c19.jpg"
navL2CLASS(m) = "NAVtextL2"
navL3CLASS(m) = "NAVtextL3"
navL4CLASS(m) = "NAVtextL4"
next
' The Following Determines the page body text to display
dim page
dim pageBODY
if nav(1) <> "" then
page = nav(1)
pageBody = "database\" & nav(1)
for k = 2 to 15
if nav(k) <> "" Then
pageBODY = pageBODY & "\" & nav(k)
else
end if
next
else
page = "main"
pageBODY = "database\" & page
end if
if nav (1) = "" then
Response.Redirect("main.asp?nav=Home")
elseIf nav(1) = "What is CPO?" then
pageBODY = "DataBase\CPO"
end if
pageBODY = pageBODY & ".txt"
%>
<%
if pageBODY <> "database\Home.txt" then
%>
|
<%
include pageBODY
if nav(1) = "CPO Directory" then
include "database\alphabet.inc"
include "database\directory\default1.asp"
end if
if nav(1) = "Calendar" then
include "DataBase\tables.inc"
end if
if nav(1) = "Gallery" then
include "DataBase\gallery\gallery.inc"
end if
%>
|
<%
include "slices\footer.htm"
else
%>
<%
end if
%>
|