Help displaying data in table

Calibus · July 1st, 2004, 09:12 AM

<%
Dim objConn, objRS, strQ, objProp
Dim strconnection

Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "Provider=sqloledb;Data Source=FLMIRSQL02;"
strConnection = strConnection & "User ID=Source_Forms_User;Password=password;"
objConn.Open strConnection

Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS.ActiveConnection = objConn

objRS.Open ="Select Top 10* FROM Escalation_Forms"

%>
<CENTER><table border='5%'>

<%
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF and iRecordCount <> 5
%>

<tr>
<th>Ticket Number
<th>Customer First Name
<th>Customer Last Name
<th>Customer Phone Number
<th>Account Number
<th>Customer's Comment

<tr>
<td><%Response.Write objRS("Ticket_Number")%>
<td><%Response.Write objRS("First_Name")%>
<td><%Response.Write objRS("Last_Name")%>
<td><%Response.Write objRS("Phone_Number")%>
<td><%Response.Write objRS("Account_Number")%>
<td><%Response.Write objRS("Cust_Com")%></td></tr>

<%

iRecordCount = iRecordCount + 1
objRS.MoveNext
Loop

objRS.close
objConn.Close

Set objRS = Nothing
Set objConn = Nothing
%>

</table></CENTER>

</body>

bmains · July 1st, 2004, 10:21 AM

Hello,

Not sure what you want specifically; if you use DHTML, you can add some styling to it that will make the presentation better. In addition, you can always use images in the td tags to make the appearance look smoother. In addition, the cellspacing and cellpadding affect how much spacing exists between cells and how much space is is around the inner area of the cell.

In addition, you don't have to use the center tag, the table supports align="center". I would recommend a good HTML/DHTML book for styling and effects.

Brian

happygv · July 1st, 2004, 08:55 PM

Hi Calibus,

You have not said what the problem you face with this code. Just placing the code here, won't get you the right help from here. But having a glimpse at the code, I would suggest you to do the following.

Any TABLE related tags that you start should be closed appropriately, else you would not see the table displayed as expected. As brian said, I too would recommend you a good HTML book.

Also take a look at Table Tag and other HTML tags

Code:

......
<table border="1" cellspacing="2" cellpadding="2">


<%
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF and iRecordCount <> 5 'not sure what you are trying to do with the code in red here
%>

<tr>
<th>Ticket Number</TH>
<th>Customer First Name</TH>
<th>Customer Last Name</TH>
<th>Customer Phone Number</TH>
<th>Account Number</TH>
<th>Customer's Comment</TH>
</TR> 

<tr>
<td><%Response.Write objRS("Ticket_Number")%></TD>
<td><%Response.Write objRS("First_Name")%></TD>
<td><%Response.Write objRS("Last_Name")%></TD>
<td><%Response.Write objRS("Phone_Number")%></TD>
<td><%Response.Write objRS("Account_Number")%></TD>
<td><%Response.Write objRS("Cust_Com")%></td></tr>

<%    
    iRecordCount = iRecordCount + 1
    objRS.MoveNext
Loop

objRS.close
objConn.Close 

Set objRS = Nothing 
Set objConn = Nothing
%> 

</table>
</body>

This should show you the table as expected.
Cheers!

_________________________
- Vijay G
Strive for Perfection

Calibus · July 2nd, 2004, 08:40 AM

I tried the changes you recommended and it works!

Thanks a millions!