displaying multiple fields in columns

rbegonia · July 29th, 2004, 02:24 PM

I want to display db fields in columns and I am using this code:
dim evalRS
Set evalRS=server.createobject("ADODB.recordset")
sqltext = "SELECT ClassNo, EvaluationNo FROM manager_class_query"
evalRS.Open sqltext, "dsn=ClassEval"
dim RecordArray
dim n
Const cField = 0
If Not evalRS.EOF Then
RecordArray = evalRS.GetRows()
Response.Write("<table>")
For n = 0 to 25
Response.Write("<tr>")
Response.Write("<td>")
Response.Write(RecordArray(cField, n))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(RecordArray(cField, n+26))
Response.Write("</td>")
Response.Write("</tr>")
Next
Response.Write("</table>")

END IF

This results in 2 columns of the ClassNo field. I need to display another field EvaluationNo in columns adjacent to ClassNo columns.

Could you help me with this? Thank you

pete_m · July 30th, 2004, 08:18 AM

do you mean access the second column of "RecordArray" for each row in the second column of the table?

Arrays work like: RecordArray(ColumnCount, RowCount)

so

Code:

Response.Write("<table>")
For n = 0 to 25
Response.Write("<tr>")
Response.Write("<td>")
Response.Write(RecordArray(0, n))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(RecordArray(1, n))
Response.Write("</td>")
Response.Write("</tr>")
Next
Response.Write("</table>")

sorry if Ive got this all mixed up....

Pete

happygv · July 31st, 2004, 08:04 AM

Hi there,

It would always result in ERROR, if your RecordArray hold less than 25 records. So your code should be changed as this.

Code:

Response.Write("<table>")
For n = 0 to UBound(RecordArray,2)
Response.Write("<tr>")
Response.Write("<td>")
Response.Write(RecordArray(0, n))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(RecordArray(1, n))
Response.Write("</td>")
Response.Write("</tr>")
Next
Response.Write("</table>")

Cheers!

_________________________
- Vijay G
Strive for Perfection

pete_m · July 31st, 2004, 08:37 PM

oh yeah, cheers Vijay

:)