ASP SQL fields in order

ALoPresto · July 25th, 2003, 02:14 PM

I have a command string that I execute to call specific fields from a table. I want to then output the rows in a table. However, the fields will change, and rather than constantly change the output table, I made a function (similar to the one in the Wrox book) to output the table dynamically. As many know, the "For each field in objRS.Fields" outputs the fields in reverse order from the order they were in the command string. I have code that should prevent that, but somewhere I'm making an error. Thanks to anyone who can help fix this

Code:

<%
...Set up SQL
    strCommandText = "select name, telephoneNumber, mail, streetAddress, l, st, postalCode, title, department, manager, mobile from 'LDAP://tt1000' where objectClass='user' and objectCategory='person'"
...Execute the command & store to objRS
        RecToTable(objRS)
%>

<%
Function RecToTable (objRS)
    Dim strT
    Dim fldF
    strT = "<table border=1><tr align=center>"

'Out of order
'    For each fldF in objRS.fields
'        strT = strT & "<td>" & fldF.Name & "</td>"
'    Next
'    strT = strT & "</tr>"

'    While Not objRS.EOF
'        strT = strT & "<tr align=center>"
'        for each fldF in objRS.fields
'            strT = strT & "<td>" & fldF.value & "</td>"
'        Next
'        strT = strT & "</tr>"
'        objRS.Movenext
'    Wend
'    strT = strT & "</table>"
'    RecToTable = strT

'----------------In order
    For int i = 0 to objRS.Fields.Count - 1
        strT = strT & "<td>" & objRS.Fields(i).Name & "</td>"
    Next
    strT = strT & "</tr>"

    While Not objRS.EOF
        strT = strT & "<tr align=center>"
        for int i = 0 to objRS.Fields.Count - 1
            strT = strT & "<td>" & objRS.Fields(i).value & "</td>"
        Next
        strT = strT & "</tr>"
        objRS.Movenext
    Wend
    strT = strT & "</table>"
    RecToTable = strT

end function
%>

Imar · July 25th, 2003, 02:45 PM

Hi there,

What error do you get? What exactly is going wrong?

One thing I can see is the Int i construct:

Code:

For int i = 0 to objRS.Fields.Count - 1
    strT = strT & "<td>" & objRS.Fields(i).Name & "</td>"
Next
strT = strT & "</tr>"

You can't declare and use a variable like this in VBScript ASP.

Try this:

Code:

Dim i
For i = 0 to objRS.Fields.Count - 1
    strT = strT & "<td>" & objRS.Fields(i).Name & "</td>"
Next
strT = strT & "</tr>"

If this doesn't solve the problem, please provide a bit more detailed information about the errors you're getting.

HtH

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

ALoPresto · July 25th, 2003, 02:54 PM

Sorry, I fixed the problem. You were right about the int i, i also do C++ and get confused sometimes. Here is the final code

Code:

    For i = objRS.Fields.Count - 1 to 0 step -1
        strT = strT & "<td>" & objRS.Fields(i).Name & "</td>"
    Next
    strT = strT & "</tr>"

    While Not objRS.EOF
        strT = strT & "<tr align=center>"
        for i = objRS.Fields.Count - 1 to 0 step -1
            strT = strT & "<td>" & objRS.Fields(i).Value & "</td>"
        Next
        strT = strT & "</tr>"
        objRS.Movenext
    Wend
    strT = strT & "</table>"
    RecToTable = strT