TO ORDER TICKETS ONLINE: Click the event that you are interested in, fill out our online form, and your ticket order will be processed automatically! It's that easy!
TO ORDER TICKETS BY PHONE: Call our box office during business hours at (920) 868-2728.
<%
sql="SELECT Min(Events.PerformanceStart) AS MinOfPerformanceStart, Max(Events.PerformanceEnd) AS MaxOfPerformanceEnd FROM Events;"
Call objRecordSet.Open( sql, objConnection, adOpenStatic, adLockReadOnly, adCmdText)
dim strStartYear, strEndYear
strStartYear=Year(objRecordSet.Fields("MinOfPerformanceStart").value)
strEndYear=Year(objRecordSet.Fields("MaxOfPerformanceEnd").value)
objRecordSet.Close
sql="Delete * From SaleDates Where SaleDate<=#" & Date & "#"
objConnection.Execute(sql)
dim strSaleSeason, objSaleDate, blnSaleOpen, strEarlyReservations,objPlaysAfterDate
blnSaleOpen=false
sql="Select * from SaleDates"
Call objRecordSet.Open( sql, objConnection, adOpenStatic, adLockReadOnly, adCmdText)
if not objRecordSet.eof then
blnSaleOpen=true
objSaleDate=objRecordSet.Fields("SaleDate").value
strSaleSeason=objRecordSet.Fields("SaleSeason").value
strEarlyReservations=objRecordSet.Fields("EarlyReservations").value
objPlaysAfterDate=objRecordSet.Fields("PlaysAfterDate").value
end if
objRecordSet.Close
dim blnPrintedWarning
blnPrintedWarning=false
%>
<% =strStartYear%> <% if strStartYear<>strEndYear then%>– <% =strEndYear%><% end if%> SEASON PERFORMANCES
<% sql = "Select * From Events Where active=true and PerformanceEnd>=#" & Date() & "# order by PerformanceStart, PerformanceTime DESC"
Call objRecordSet.Open( sql, objConnection, adOpenStatic, adLockReadOnly, adCmdText)
do while not objRecordSet.Eof
'response.write(objSaleDate)
'response.end
if blnSaleOpen then
if (objRecordSet.Fields("PerformanceEnd").value>DateValue(objPlaysAfterDate)) and not blnPrintedWarning then
%>
Tickets for the <% =strSaleSeason%> go on sale <% =objSaleDate%>. <% =strEarlyReservations%>
<%
blnPrintedWarning=true
end if
end if
dim strTime
strTime=objRecordSet.Fields("PerformanceTime").value
if instr(1,strTime,"0")=1 then
strTime=Right(strTime,Len(strTime)-1)
end if
%>
><% =objRecordSet.Fields("Title").value%> - <% =objRecordSet.Fields("QuickDescription").value%>
<% =objRecordSet.Fields("PerformanceStart").value%><% if objRecordSet.Fields("PerformanceEnd").value<>objRecordSet.Fields("PerformanceStart").value then%> - <% =objRecordSet.Fields("PerformanceEnd").value%><% end if%>
<% =strTime%>
Tickets: <% =objRecordSet.Fields("TicketPrices").value%>
<% if trim(objRecordSet("ticketURL"))<>"" then%>
For tickets online" TARGET= "elsewhere"> click here.
<% end if
sql1="SELECT Sponsors.*, SponsorTypes.*" & _
" FROM SponsorTypes INNER JOIN Sponsors ON SponsorTypes.sponsorTypeId = Sponsors.SponsorTypeId" & _
" WHERE (((Sponsors.EventId)=" & objRecordSet.Fields("EventId").value & "))" & _
" ORDER BY Sponsors.SponsorTypeId;"
Call objRecordSet1.Open( sql1, objConnection, adOpenStatic, adLockReadOnly, adCmdText)
dim strSponsorType
strSponsorType=""
do while not objRecordSet1.Eof
if strSponsorType <> objRecordSet1.Fields("SponsorType").value then
strSponsorType=objRecordSet1.Fields("SponsorType").value%>
<%=strSponsorType%>
<% end if%>
<% =objRecordSet1.Fields("SponsorName").value%>
<% objRecordSet1.MoveNext
loop
objRecordSet1.Close %>
|
<% sql1="Select * From Samples Where EventId=" & objRecordSet.Fields("EventId").value & " order by photoNumber;"
Call objRecordSet1.Open( sql1, objConnection, adOpenStatic, adLockReadOnly, adCmdText)
if not objRecordSet1.eof then
%> Audio Clips
<% end if
do while not objRecordSet1.Eof
dim strURL
strURL="samplePlayer.asp?caption=" & objRecordSet1.Fields("Caption").value & _
" &track=" & objRecordSet.Fields("EventId").value& "track" & objRecordSet1.Fields("PhotoNumber").value & ".mp3"
%>
<% = objRecordSet1.Fields("Caption").value%> listen
<% objRecordSet1.MoveNext
loop
objRecordSet1.Close%> |
<% objRecordSet.MoveNext
loop
objRecordSet.Close
objConnection.Close%>
