Error processing SSI file Error processing SSI file
<%
Dim Conn 'Connection to Database
Dim RS 'RecordSet
Dim SQL 'String for SQL Statements
Dim day_seq(6)
Dim day_next
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Set RSP = Server.CreateObject("ADODB.RecordSet")
Conn.Open strTVGuideConnectionString
mm=array("January","February","March","April","May","June","July","August","September","October","November","December")
to_day=array("monday","tuesday","wednesday","thursday","friday","saturday","sunday")
channel=Request("channel")
channel="CENTRAL"
day_num=Request("day")
day_ori=FormatDateTime(DateAdd("d", Cint(day_num), date))
day_next=FormatDateTime(DateAdd("d", Cint(day_num), date),0)
date_array=split(day_next,"/")
dbsch_date=date_array(2) & string(2-len(date_array(0)),"0") & date_array(0) & string(2-len(date_array(1)),"0") & date_array(1)
date_long = FormatDateTime(DateAdd("d", Cint(day_num), date),1)
date_long_array=split(date_long,", ")
date_short_array=split(date_long_array(1)," ")
date_long=date_long_array(0) & " / " & date_short_array(1) & " " & date_short_array(0) & " " & date_long_array(2)
schday=date_long_array(0)
date_long_today = FormatDateTime(date,1)
date_long_array=split(date_long_today,", ")
seqday=date_long_array(0)
for i=0 to 6
if lcase(seqday)=to_day(i) then
day_start=i
end if
next
for i=0 to 6
if day_start+i > 6 then
day_seq(i)=to_day(day_start+i-7)
else
day_seq(i)=to_day(day_start+i)
end if
'Response.write day_seq(i)
next
%>
Arts Central