ASP page displaying SQL table data

ASP page displaying SQL table data

am 23.03.2007 19:28:08 von student

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
%>





Guest Name and Description:











Program ID Guest Name Guest Description
<%=recProgram.Fields("ProgramID")%> <%=recProgram.Fields("GuestName")%> <%=recProgram.Fields("GuestDescription")%>


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



[/CODE]

Any help with this is much appreciated
--
Technical School Student

RE: ASP page displaying SQL table data

am 23.03.2007 20:55:38 von student

Forgot to mention the SQL server version is 8.0
--
Technical School Studen


"student" wrote:

> 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
> %>
>
>
>
>


>
>

Guest Name and Description:


>
>
>
>
>
>
>
>
>
>
Program IDGuest NameGuest Description
<%=recProgram.Fields("ProgramID")%><%=recProgram.Fields("GuestName")%><%=recProgram.Fields("GuestDescription")%>

>
> <%
> recProgram.Close
> con.Close
> set recProgram = nothing
> set con = nothing
> %>
>
>
>
> [/CODE]
>
> Any help with this is much appreciated
> --
> Technical School Student

Re: ASP page displaying SQL table data

am 24.03.2007 09:52:52 von Jw Vriesman

See snippet


"student" 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
> %>
>
>
>
>


>
>

Guest Name and Description:


>
>
>
>

----------------------------snippet
<%
Do while recProgram.eof = false
%>


>
>
>
>
>
<%
recProgram.movenext
loop
%>

----------------------------snippet
>
Program IDGuest NameGuest Description
<%=recProgram.Fields("ProgramID")%><%=recProgram.Fields("GuestName")%><%=recProgram.Fields("GuestDescription")%>

>
> <%
> recProgram.Close
> con.Close
> set recProgram = nothing
> set con = nothing
> %>
>
>
>
> [/CODE]
>
> Any help with this is much appreciated
> --
> Technical School Student