|
© Copyright 2007 - XCENT -
QuickAuction is a trademark of XCENT |
<%
End Sub
Sub BodyEnd(rel, ads)
'dim adCell, adArr
'if instr(1, ads, "~") > 0 then
'adArr = split(ads, "~")
'adCell = GetAdCell(adArr(0), adArr(1), 3, rel)
' else
'adCell = ""
'end if
%>
|
|
|
|
| Copyright © 2004 Cleveland Magazine All rights reserved. | | P: (216) 771-2833 | F: (216) 781-6318 | 1422 Euclid Ave. Suite 730 Cleveland, Ohio 44115 |
| |
|
|
|
<% 'LayerSubNav rel %>
<%
End Sub
Sub LeftNav(rel, ads)
dim dt, dd, mm, yy
dt = Date()
dd = "date_" & PadNumber(Day(dt), 2) & ".gif"
mm = "date_" & MonthName(Month(dt), true) & ".gif"
yy = "date_" & Year(dt) & ".gif"
%>
<%
End Sub
Sub AdminMenu(pagename)
%>
<%
End Sub
Sub SectionTitle(rel, title)
%>
| <%=title%> |
 |
|
<%
End Sub
Sub SubNavMenu(rel, menu)
dim tArr, outstr, valArr, dspArr, i, j, pArr, isBilling, dir, sTitle
if menu = "" then exit Sub
if instr(1, menu, "~") > 0 then
tArr = split(lcase(menu), "~")
sTitle = Mid(menu, 1, instr(1, menu, "~")-1)
else
tArr = Array(lcase(menu), "")
sTitle = menu
end if
tArr(0) = replace(replace(replace(tArr(0), " ", ""), "'", ""), "!", "")
tArr(1) = trim(tArr(1))
if tArr(0) = "billing" then
isBilling = true
i = instr(1, menu, "~")
j = instr(i+1, menu, "~")
sTitle = Mid(menu, i+1, j-i-1)
tArr(0) = replace(replace(tArr(1), " ", ""), "'", "")
tArr(1) = trim(tArr(2))
end if
select case tArr(0)
case "themagazine"
dir = "editorial"
valArr = Array("")
dspArr = Array("")
case "extraextra"
dir = "editorial"
pArr = GetArticleSubNavList(c_CoverStoryDocType & "," & c_FeaturesDocType & "," & c_SpecialSectionsDocType)
valArr = split("extra_main.asp~" & pArr(0), "~")
dspArr = split("Extra! Extra! Main~" & pArr(1), "~")
case "toolkit"
dir = "editorial"
valArr = Array("toolkit_search.asp")
dspArr = Array("Toolkit Main")
case "careerzone"
dir = "editorial"
valArr = Array("")
dspArr = Array("")
case "archive"
dir = "editorial"
valArr = Array("")
dspArr = Array("")
case "bethere"
dir = "editorial"
valArr = Array("bethere_main_new.asp", "bethere_meeting_new.asp", "bethere_main_new.asp", "event_suggestion.asp")
dspArr = Array("Be There Main", "Directory of Meeting Places Search", "Upcoming Events Search", "Add Your Event")
case "businesshalloffame"
dir = "editorial"
valArr = Array("")
dspArr = Array("")
case "bizlinks"
dir = "editorial"
valArr = Array("")
dspArr = Array("")
case "subscriptionservices"
dir = "subscribe"
valArr = Array("")
dspArr = Array("")
case "advertising"
dir = "advertise"
valArr = Array("")
dspArr = Array("")
case "custompublishing"
dir = "cpublishing"
valArr = Array("")
dspArr = Array("")
case "promotions"
dir = "promotions"
valArr = Array("")
dspArr = Array("")
case "merchandise"
dir = "merchandise"
valArr = Array("")
dspArr = Array("")
case "leadinglawyers"
dir = "leadinglawyers"
valArr = Array("lawyers_search.asp", "leading_lawyers.asp")
dspArr = Array("Leading Lawyers Search", "Leading Lawyers Ballot")
case else
valArr = Array("")
dspArr = Array("")
end select
if isBilling and valArr(0) <> "" then
for i = 0 to ubound(valArr)
valArr(i) = rel & dir & "/" & valArr(i)
next
end if
if tArr(1) = "disabled" then valArr(0) = ""
outstr = ""
outstr = outstr + "" & vbnewline
outstr = outstr + ""
if tArr(0) <> "" then
outstr = outstr + "![]() "
else
outstr = outstr & " "
end if
outstr = outstr + " | " + vbnewline
outstr = outstr + " | " + vbnewline
outstr = outstr + " " + vbnewline
if valArr(0) <> "" then
outstr = outstr & "" + vbnewline
outstr = outstr + "![]() "
outstr = outstr + "![]() | " + vbnewline
outstr = outstr + ""
outstr = outstr + " | " & vbnewline
end if
Response.write outstr
End Sub
%>
|
