<% Dim DateSelected If Request.QueryString("DateSelected") = "" Then DateSelected = Date() Else DateSelected = Request.QueryString("DateSelected") End If %> Select a Date:

<% Dim strChannelLineup, strURL strURL = "http://107.7.72.180:50001/websched.php?channel=1&day=" & LCASE(WeekDayName(WeekDay(cdate(DateSelected)),True)) & "&mode=day&headers=0" Dim objXMLHTTP Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send strChannelLineup = Replace(objXMLHTTP.responseText, Chr(34), "'") strChannelLineup = Replace(strChannelLineup, "

", "") strChannelLineup = Replace(strChannelLineup, "", "

") strChannelLineup = Replace(strChannelLineup, "

Start

Title", "

Start

Title") strChannelLineup = "East Wake TV Channel Lineup for " & DateSelected & "

" & strChannelLineup response.write(strChannelLineup) %>