Hej! <code>Få med kolumnnamn med select
Hur gör man så att man får med kolumnnamnen när man gör en select-query via asp?
Lite lättare att förstå reultatet från queryn om man har rubriker på kolumnerna =)
Tack på förhand!
Mvh ErikSv: Få med kolumnnamn med select
<TABLE>
<%
Dim rs
Dim con
Dim fldField
Set con = Server.CreateObjcet("ADODB.Connection")
con.Open
Set rs = Server.CreateObjcet("ADODB.Recordset")
rs.Open "SELECT * FROM TabellNamn", con
Response.Write "<TR>
For Each fldField In Rs.Fields
Response.Write "<TD><B>" & fldField.Name & "</B></TD>"
Next
Response.Write "</TR>
Do Until Rs.EOF
Response.Write "<TR>
For Each fldField In Rs.Fields
Response.Write "<TD><B>" & fldField.Value & "</B></TD>"
Next
Response.Write "</TR>
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
</TABLE>
</code>