<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsSchedule Dim rsSchedule_numRows Set rsSchedule = Server.CreateObject("ADODB.Recordset") rsSchedule.ActiveConnection = MM_objconn_STRING rsSchedule.Source = "SELECT tblSchedule.mProgramme, tblSchedule.mDate, tblSchedule.mTime, tblCategories.mDescription, tblChannels.mChannel FROM tblChannels RIGHT JOIN (tblCategories RIGHT JOIN tblSchedule ON tblCategories.mID = tblSchedule.mCategory) ON tblChannels.mID = tblSchedule.mChannel WHERE (((tblSchedule.mDate) Between Date() And DateAdd('d',6,Date()))) Order By mDate,mTime Asc;" rsSchedule.CursorType = 0 rsSchedule.CursorLocation = 2 rsSchedule.LockType = 1 rsSchedule.Open() rsSchedule_numRows = 0 %> <% Dim rsNotes Dim rsNotes_numRows Set rsNotes = Server.CreateObject("ADODB.Recordset") rsNotes.ActiveConnection = MM_objconn_STRING rsNotes.Source = "SELECT mDescription FROM tblNotes" rsNotes.CursorType = 0 rsNotes.CursorLocation = 2 rsNotes.LockType = 1 rsNotes.Open() rsNotes_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsSchedule_numRows = rsSchedule_numRows + Repeat1__numRows %>

<% If Not rsSchedule.EOF Or Not rsSchedule.BOF Then %> <% Dim mShowDate While ((Repeat1__numRows <> 0) AND (NOT rsSchedule.EOF)) If len(rsSchedule.Fields.Item("mTime").Value) = 10 Then mShowDate = Left((rsSchedule.Fields.Item("mTime").Value),4) & " " & Right(rsSchedule.Fields.Item("mTime").Value,2) Else mShowDate = Left((rsSchedule.Fields.Item("mTime").Value),5) & " " & Right(rsSchedule.Fields.Item("mTime").Value,2) End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSchedule.MoveNext() Wend %> <% End If ' end Not rsSchedule.EOF Or NOT rsSchedule.BOF %> <% Response.Write DoDateTime(Date(),1,1033) & " - " & DoDateTime(DateAdd("d",6,Date()),1,1033) %> Programme Day Time Channel Category <%=(rsSchedule.Fields.Item("mProgramme").Value)%> <%=WeekDayName(Weekday(rsSchedule.Fields.Item("mDate").Value))%> <%=mShowDate%> <%=(rsSchedule.Fields.Item("mChannel").Value)%> <%=(rsSchedule.Fields.Item("mDescription").Value)%> <% If rsSchedule.EOF And rsSchedule.BOF Then %> There is no programme information available <% End If ' end rsSchedule.EOF And rsSchedule.BOF %> <% If Not rsNotes.EOF Or Not rsNotes.BOF Then %> <% End If ' end Not rsNotes.EOF Or NOT rsNotes.BOF %> <%=Replace(rsNotes.Fields.Item("mDescription").Value,vbcrlf," ")%>

<% rsSchedule.Close() Set rsSchedule = Nothing %> <% rsNotes.Close() Set rsNotes = Nothing %>