Hent alle kolonnerne i en Access database

sådan her :

connect til tabellen:
<%
    Set rs1 = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * From info"
    rs1.Open strSQL, conn, 1, 3
%>

så opsætter vi en tabel :
<table>
<tr>
<td>Forside</td>
<td>Koeb_salg</td>
<td>Diverse</td>
</tr>
<% do while not rs.eof %>
<tr>
<td><%=rs("forside")%></td>
<td><%=rs("koeb_salg")%></td>
<td><%=rs("diverse")%></td>
</tr>
<% rs.movenext
loop %>
</table>

Ikke på den måde, den skal selv kunne finde navnene i tabelen !

Lav dit rs med fx select * from dintabel

kig derefter på rs.fields(0).name osv

Hvordan skal koden så se ud ??

    set strRS=strConn.execute("select * from [Info]")
    Do While Not strRS.EOF
      strRS.fields(0).name
      strRS.movenext
    loop
    rs.close

Næh, der er ingen grund til at kigge på alle tuplerne.
Nummer 0 har første navn, nummer 1 det næste. Det
er bare et array.

har brug for lidt mere hjælp :)

hvor ser det så ud...

Du kan hente Tabellens kolonne navn på den måde. Men du skal bestemme hvilke DB og hvilke tabel (du skal bare ændre det i ex:
<%

    Set conn = server.CreateObject("adodb.connection")
    Set RS = server.CreateObject("adodb.recordset")
    DSNstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db/objects.mdb")

    conn.Open DSNstr
    SQLstr = "SELECT * FROM objects"
    Set RS = conn.execute(SQLstr)
   
    response.Write "<TABLE border=1><TR>"
    RS.MoveFirst
    For Each Field In RS.Fields
    response.Write "<TD>"
    response.Write Field.Name
    response.Write "</TD>"
    Next 'MyField
    response.Write "</TR>"
    While Not RS.EOF
    response.Write "<TR>"
    For Each Field In RS.Fields
    response.Write "<TD>"
    response.Write Field.Value
    response.Write "</TD>"
    Next 'Field
    response.Write "</TR>"
    RS.MoveNext
    Wend
    response.Write "</TABLE>"
        Set RS= Nothing
        conn.Close
        Set conn = nothing

    %>

Eller en bette tand simplere

  for i=0 to rs.fields.count-1
    response.write rs.fields(i).name
  next

Tak erikjacobsen

så er der kun en ting kan man få den til at erstatte _ med mellemrum

Mon ikke der er noget der hedder replace.... 
  response.write replace(rs.fields(i).name,"_"," ")