October PackageItem # 8
Auction Detail
Bidding is now closed for this item. Starting Bid: $500.00 Started On: 10/1/2008 12:00:00 AM Current Bid: -- Location: Cleveland, OH US Closes: 11/7/2008 5:30:00 PM Item Owner: ClevelandMagazine Description The Package Cleveland Browns Game Day Experience Package!
The winning bidder will receive a Game Day Experience Package, for Sunday, November 23rd at 1:00 . Watch your Cleveland Browns take on the Houston Texans . The package includes two game tickets, two pre-game passes , and an authentic Cleveland Browns football autographed by Kamerion Wimbley .
Additionally, the winning bidder will receive a tour and opportunity to create your dream flavor at Mitchell’s Homemade! A tour for 8-12 people will be offered at the Rocky River location.
Bid now for an awesome experience for the whole family from the Cleveland Browns and Mitchell’s Homemade!
CSP’s Dollars and Scholars Dream Auction is raising money for scholarships to benefit deserving students throughout Northeast Ohio.
____________________________________________________
Cleveland Scholarship Programs, Inc. is a 501(c)3 nonprofit organization.
200 Public Square, Suite 3820 Cleveland, OH
216.241.5587
www.cspohio.org
Driven by XCENT
© 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 + ""
outstr = outstr + "" & sTitle
outstr = outstr + " " & replace(space(cint(len(sTitle)/2)+1), " ", "")
for i = 0 to ubound(valArr)
if tArr(1) = lcase(dspArr(i)) then
outstr = outstr & " "
else
outstr = outstr & " "
end if
if len(replace(dspArr(i), " ", " ")) > 45 then dspArr(i) = replace(mid(replace(dspArr(i), " ", " "), 1, 37), " ", " ") & "..."
outstr = outstr & dspArr(i)
next
outstr = outstr & " " & replace(space(30), " ", " ") & "
" & vbnewline
end if
Response.write outstr
End Sub
%>