Exactly like SQL Server table order

[Mamatha]

Hi
i have a code to retrieve table structures of SQL Server
database.
It gives all the table names in particular databse with
the column names and datatypes also.
But the output displays not in the exact order of what i
am designing in SQL Server database,mainly coulmnnames are
not in order.
I want to displayed output exactly like what i was
designed in SQL Server table.
How can i displyed like that is there any solution?
Please give me reply.
The code is:

<%
'Set Conn = Server.CreateOb ject("ADODB.Con nection")
Set cn = Server.CreateOb ject("ADODB.Con nection")
DSNtest="DRIVER ={SQL
Server};SERVER= SERVER;UID=sa;P WD=thanks;DATAB ASE=parameter"
cn.open DSNtest
Set sysObjects = cn.Execute("SEL ECT * FROM sysObjects
WHERE xtype = 'U' ORDER BY name")

If sysObjects.eof Then
Response.write( "No records returned")
End If

do until sysObjects.eof
'if not sysObjects("nam e")="dtproperti es" then

Response.write( "<table width='100%' border='1'>")
Response.write( "<tr><td colspan='3'><b> Table
Name:" & sysObjects("nam e") & "</b></td></tr>")
Response.write( "<tr><td><b>Fie ld
Name</b></td><td><b>Data Type</b></td><td><b>Data Type
Length</b></td></tr>")
Set sysColumns = cn.Execute("SEL ECT A.name
As 'ColumnName', B.name As 'DataType', A.length
As 'DataTypeLength ' FROM sysColumns As A INNER JOIN
sysTypes As B On (A.xtype = B.xtype) WHERE id = " &
sysObjects("id" ) & " ORDER BY A.name")

if sysColumns.eof Then
Response.write( "<tr><td><i >No columns
found for " & sysObjects("nam e") & " table.</i></td></tr>")
end if

do until sysColumns.eof
Response.write( "<tr><td>" & sysColumns
("ColumnName ") & "</td><td>" & sysColumns("Dat aType")
& "</td><td>" & sysColumns("Dat aTypeLength")
& "</td></tr>")
sysColumns.move next
loop
Response.write( "</table>")
Response.write( "<br><br>")
sysObjects.move next
'end if
loop

cn.Close
Set cn = Nothing
%>

Thanks