<% url=request("url") url=right(url,len(url)-11) url=left(url,len(url)-10) shows=dbSelect("shows","*",SHOWS_URL,url) show=shows(0) onNowShow=scheduleOnNow if int(OnNowShow(SCHEDULE_SHOWS_ID))=int(show(SHOWS_ID)) then OnNow=true if OnNowShow(SCHEDULE_HASVIDEO)="y" then HasVideo=true if OnNowShow(SCHEDULE_HASAUDIO)="y" then HasAudio=true if OnNowShow(SCHEDULE_ISLIVE)="y" then IsLive=true if HasVideo and IsLive then LiveVideo=true if HasAudio and IsLive then LiveAudio=true end if %>
" echo "" echo "" echo "" & vbcrlf next %>
<%=show(SHOWS_TITLE)%>
<% hosts=split(show(SHOWS_HOSTS),",") for i = ubound(hosts)-1 to 0 step -1 if trim(hosts(i)) = "" then redim preserve hosts(i) end if next if ubound(hosts) > 0 then echo "with " for i = 0 to ubound(hosts)-1 host=dbSelect("talent",trim(hosts(i)),"","") if isArray(host) then echo "" & trim(host(TALENT_NAME)) & "" if i <> ubound(hosts)-1 then echo ", " if i = ubound(hosts) -2 then echo " and " end if next %>
<%=show(SHOWS_TIMES)%>
<%=show(SHOWS_DESCRIPTION)%>

<% if OnNow and LiveVideo then echo "" elseif OnNow and HasVideo then echo "" else echo "" end if %>
<% if OnNow and LiveAudio then echo "" elseif OnNow and HasAudio then echo "" else echo "" end if %>
<%=tabptv("INTERACT","")%>
 Email Show

 Chat with Show

 Show Web Site

 Show Web Site
<% upNext=scheduleUpNext for i = 0 to 0 show=dbSelect("shows",upNext(i)(SCHEDULE_SHOWS_ID),"","") if upNext(i)(SCHEDULE_DESCRIPTION)="" then upNext(i)(SCHEDULE_DESCRIPTION)=show(SHOWS_BLURB) echo "		" echo "
" echo "
UP NEXT!
" echo "" & show(SHOWS_TITLE) & "
" echo "" & milTimeToHour(upNext(i)(SCHEDULE_STARTTIME)) & " to " & milTimeToHour(upNext(i)(SCHEDULE_ENDTIME)) echo "
" & upNext(i)(SCHEDULE_DESCRIPTION) & "