03-24-07 12:26 PM
See snippet
"student" <student@discussions.microsoft.com> wrote in message
news:FF7F1106-CC58-4BCC-AABE-B45BF3154433@microsoft.com...
>I am struggling with this asp page. I need to solve this as part of a class
> project. It is designed to simply read a SQL table and display the data in
> the browser. But it will only show one record based on ID at a time. So if
> I
> have multiple records with the same ID such as page.asp?ID=9734, it would
> show all records using that ID in the browser.
>
> The result set would display a table with a title header like Guest Name
> and
> Description
>
> Below that would be a table with three columns. Reading from left to right
> it would show...
>
> Program ID Guest Name Guest Description
> 9734 Name some description here
>
> The actual table called T_ProgramGuests has several records with this 4
> digit number but only one shows up in the browser when tested. I need it
> to
> show all of them but I'm not sure if I should be adding a Loop or IF Then
> Else section to my page. I sure could use some help with the code. See
> below
> the entire ASP page code.
>
> [CODE]
> <%
> set con = Server.CreateObject("ADODB.Connection")
> con.Open "File Name=E:\webservice\Company\Company.UDL"
> set recProgram = Server.CreateObject("ADODB.Recordset")
> strSQL = "SELECT *, T_ProgramGuests.ProgramID AS Expr1 FROM
> T_ProgramGuests
> INNER JOIN T_Programs ON T_ProgramGuests.ProgramID = T_Programs.ID WHERE
> (T_ProgramGuests.ProgramID = 9726)"
>
> 'strSQL = "SELECT *, T_ProgramGuests.ProgramID AS Expr1 FROM
> T_ProgramGuests
> INNER JOIN T_Programs ON T_ProgramGuests.ProgramID = T_Programs.ID WHERE
> T_ProgramGuests.ProgramID = & Request("ID")
>
> ' <-- THE BELOW VERSION WORKS. THE ABOVE VERSION KEEPS FAILING -->
> 'strSQL = "SELECT *, T_ProgramGuests.ProgramID AS Expr1 FROM
> T_ProgramGuests
> INNER JOIN T_Programs ON T_ProgramGuests.ProgramID = T_Programs.ID WHERE
> (T_ProgramGuests.ProgramID = 9734)"
>
>
> recProgram.Open strSQL,con
> %>
>
>
> <body>
> <TABLE BORDER="1" CELLPADDING="2" CELLSPACING="1" WIDTH="100%">
>
> <p><b>Guest Name and Description:</b></p>
> <tr>
> <th width="15%" align="left">Program ID</th>
> <th width="35%" align="left">Guest Name</th>
> <th width="55%" align="left">Guest Description</th>
----------------------------snippet
<%
Do while recProgram.eof = false
%>
> <tr>
> <TD headers="t1"><%=recProgram.Fields("ProgramID")%></TD>
> <TD headers="t2"><%=recProgram.Fields("GuestName")%></TD>
> <TD headers="t3"><%=recProgram.Fields("GuestDescription")%></TD>
> </tr>
<%
recProgram.movenext
loop
%>
----------------------------snippet
> </table>
>
> <%
> recProgram.Close
> con.Close
> set recProgram = nothing
> set con = nothing
> %>
>
> </body>
> </html>
> [/CODE]
>
> Any help with this is much appreciated
> --
> Technical School Student
[ Post a follow-up to this message ]
| 
