<!-- BEGINNING OF THE GUESTS AND LINKS SECTION -->

<%
 set con = Server.CreateObject("ADODB.Connection")
 con.Open "File Name=E:\folder\Company\Company.UDL"
 set rs = Server.CreateObject("ADODB.Recordset")

id=request.querystring("id") 'If this line is commented out the page will be blank. 
'However you can still append a record number to the end of the URL and display that one.

IF id <> "" then id=id else id="9726" end if 'This line shows the default record of 9726. If this line is commented out the page will ONLY show the default record but will NOT allow you
'to append a different number

strSQL = "SELECT *, T_Programs.ID AS Expr1, T_ProgramGuests.ProgramID AS Expr2, T_ProgramGuests.GuestName AS Expr3, T_ProgramGuests.GuestDescription AS Expr4, T_ProgramLinks.URL AS Expr5, T_ProgramLinks.Description AS Expr6 FROM T_ProgramGuests CROSS JOIN T_Programs CROSS JOIN T_ProgramLinks WHERE (T_ProgramGuests.ProgramID = '" & id & "')"

rs.Open strSQL,con 'open a connection to the database

%>

<br />
<strong><% Response.Write RS ("GuestName") %> </strong> <% Response.Write RS("GuestDescription") %><br /><br />
Related Links:<br />
<li class='basic'><A HREF="<%= RS("URL") %>"><%= RS("Description") %></A></li>


<!-- END OF THE GUESTS AND LINKS SECTION -->

<%
recProgram.Close
con.Close
set recProgram = nothing
set con = nothing
'response.write err.Description
<%

<!-- BEGINNING OF THE GUESTS AND LINKS SECTION -->

<%
 set con = Server.CreateObject("ADODB.Connection")
 con.Open "File Name=E:\webservice\Company\Company.UDL"
 set rs = Server.CreateObject("ADODB.Recordset")

id=request.querystring("id") 'If this line is commented out the page will be blank. 
'However you can still append a record number to the end of the URL and display that one.

IF id <> "" then id=id else id="9726" end if 'This line shows the default record of 9726. If this line is commented out the page will ONLY show the default record but will NOT allow you
'to append a different number

strSQL = "SELECT *, Air_Date AS Expr1, Unit AS Expr2 FROM TestTable WHERE (Air_Date = CONVERT(varchar(10), GETDATE(), 101)) AND (Unit = 'TB')"

rs.Open strSQL,con 'open a connection to the database

%>

<br />
<strong><% Response.Write RS ("GuestName") %> </strong> <% Response.Write RS("GuestDescription") %><br /><br />
Related Links:<br />
<li class='basic'><A HREF="<%= RS("URL") %>"><%= RS("Description") %></A></li>


<!-- END OF THE GUESTS AND LINKS SECTION -->

<!-- BEGINNING OF THE GUESTS AND LINKS SECTION -->

<%
 set con = Server.CreateObject("ADODB.Connection")
 con.Open "File Name=E:\webservice\company\company.UDL"
 set rs = Server.CreateObject("ADODB.Recordset")

id=request.querystring("id") 'If this line is commented out the page will be blank. 
'However you can still append a record number to the end of the URL and display that one.

IF id <> "" then id=id else id="9726" end if 'This line shows the default record of 9726. If this line is commented out the page will ONLY show the default record but will NOT allow you
'to append a different number

tbl1 = Select * from T_Programs 
where a.ID = @ID CASE ID
tb2 = Select * from T_ProgramGuests 
where a.ID = @ID
tb3 = Select * from T_ProgramLinks 
where A.id = @ID

'strSQL = "SELECT *, Air_Date AS Expr1, Unit AS Expr2 FROM TestTable WHERE (Air_Date = CONVERT(varchar(10), GETDATE(), 101)) AND (Unit = 'TB')"

rs.Open strSQL,con 'open a connection to the database

%>

<%
dim dr as datarow
for each dr in tb1.rows
dr("ID")
'This is where you would add your code to add the show
'You would get the field info by using dr("fieldname")
next

for each dr in tbl2.rows
dr("GuestName")
'This is where you would add your code to add the Guests
'You would get the field info by using dr("fieldname")
next

for each dr in tbl3.rows
dr("URL")
'This is where you would add your code to add the Links
'You would get the field info by using dr("fieldname")
next

<br />
<strong><% Response.Write RS ("GuestName") %> </strong> <% Response.Write RS("GuestDescription") %><br /><br />
Related Links:<br />
<li class='basic'><A HREF="<%= RS("URL") %>"><%= RS("Description") %></A></li>


<!-- END OF THE GUESTS AND LINKS SECTION -->