Listar nomes dos campos (colunas) do DB

krause

Ai pessoal....

Alguem pode me ajudar a fazer uma consulta que mostre os nomes dos campos do banco de dados?
Ex: c...

<%

For i = 0 to RS.Fields.Count-1

Response.Write RS(i).Name

Response.Write "<br>"

Next

%>

<%DataString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\intranet\internet\comissao\index\mista\orca\News.mdb"

Set Connection = Server.CreateObject("ADODB.Connection&quot

Connection.Open DataString

Set adoxConn = Server.CreateObject("adox.catalog&quot

adoxConn.activeConnection = Connection

Set Table = adoxConn.Tables

For Each col In Table

If UCase(col.Type)="TABLE" Then

 response.write(col.Name) & "<br>"

   End If

Next

Set Table = Nothing

Set adoxConn = Nothing

Connection.Close

Set Connection = Nothing%>