<!-- 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 *, 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 ORDER BY '" & id & "'"

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

%>

<!-- Beginning of Display section -->

<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 Display section -->

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

<%
recProgram.Close
con.Close
set recProgram = nothing
set con = nothing
%>

while not rs.eof

  ... do stuff here

  rs.movenext
looop

rs.close

quote:

---

Originally posted by erico

Jeff,

Thanks but this is how I started originally. I changed to the asp code to display the records. It's a hassle displaying it using that method. So is the problem with the asp display code or the sql?

---

quote:

---

Originally posted by erico

Ok I can try to use ado instead of raw asp and html to handle displaying of the data.

---

<table border="1" width="100%">
  <tr>
  <%for each x in rs.Fields
    response.write("<th>" & x.name & "</th>")
  next%>
  </tr>
  <%do until rs.EOF%>
    <tr>
    <%for each x in rs.Fields%>
      <td><%Response.Write(x.value)%></td>
    <%next
    rs.MoveNext%>
    </tr>
  <%loop
  rs.close
  conn.close%>
</table>