|
Studio
Tours
Movie Studios
TV Studios
TV Tickets
Sitcoms
Late Night
Game Shows
Daytime
Experiences
Site
Info
Mailing
List
Advertising
Contact Us
|
|
|
|
<%= showtitle %> 
<%= studio %>
<%= studioaddress %>
|
|
|
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open dsn_sa
Set d=Server.CreateObject("ADODB.Recordset")
sql = "select * from showdates where season = '2002_2003' and showID = " & show
d.Open sql, conn, 1
rec = d.RecordCount
If rec = 0 Then
Response.Write "(see the section below for ticket information)"
End If
h = Round(CLng(rec)/2)
index = 0
Do Until d.EOF
If index = h Then
Response.Write " | "
End If
showdate = d("showdate")
showtime = d("showtime")
If DateDiff("d",showdate,date) >= 0 Then
Response.Write "" & showdate & " " & showtime & "
"
Else
Response.Write showdate & " " & showtime & "
"
End If
d.MoveNext
index = index + 1
Loop
%> |
<%
If Len(previousseason) > 0 Then
%>
<%= previousseason %>
<%
End If
%>
|
|
<%
If hiatus = "1" Then
%>*** On Hiatus ***
This show has completed its currently scheduled production run and
is now on hiatus. This means that the studio does not have
any more filming dates scheduled in the near future and may either
be taking a break from production, as is most often the case in
the summer months, or may have cancelled the show.
<%
Else
%>
<%= ticketsonlinelink %>
<%
If m.RecordCount > 0 Then
%>
Tickets By Mail
<%
Do Until m.EOF
Response.Write m("text") & "
"
m.MoveNext
Loop
End If
If p.RecordCount > 0 Then
%>
Tickets By Phone
<%
Do Until p.EOF
Response.Write p("text") & "
"
p.MoveNext
Loop
End If
End If
p.Close
Set p = nothing
m.Close
Set m = nothing
d.Close
Set d = nothing
q.Close
Set q = nothing
%>
<%= website %>
<%= minage %> - Note
on Minimum Ages
<%= showdescription %>
|
|
