Mostrar listado de campos

[sjam7]

Alguien sabe como hacer para que me muestren por pantalla automaticamente los NOMBRES de los campos, no el contenido, lo que quiero hacer es agregar una instruccion en un for each o alguna forma de que me muestre todos este listado automaticamente...espero me haya dado a entender

[orharo2003]

Dim oConn, rs, SQL, miTabla
Dim I, J 'Para recorrer el vector

SQL="SELECT * FROM Tabla"
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "..."
set rs = oConn.Execute(SQL)
miTabla = rs.GetRows

rs.Close
set rs = nothing
oConn.Close
set oConn = nothing

Response.Write("<TABLE>")

'Recorremos el vector
'Desde el primero hasta el último "registro"...
for I = 0 to UBound(miTabla,2)
'Abrimos una nueva fila
Response.Write("<TR>")
'Desde el primero hasta el último "campo"...
for J = 0 to Ubound(miTabla, 1)
'Imprimo una celda para cada campo
Response.Write("<TD>" & miTabla(J, I) & "</TD>")
next
Response.Write("</TR>")
next

Response.Write("</TABLE>")

Fuente: ASP facil.com

[AlZuwaga]

pero... orharo2003, eso no muestra los NOMBRES de los campos.
Ahora no tengo el script a mano y la verdad que no lo recuerdo pero seguro que alguien te lo pasará nates que yo llegue a la oficina ;)

[sjam7]

todavia nadie me lo pasa .....alguien sabe?

[amendoza]

Viejo aqui va:

<tr>
<%for each objeto in rs.Fields%>

<td align="center" bgcolor="#21395F"><font color="#FFFFFF" face="Arial" size="1">
<b><%=objeto.name%></b>
</font></td>

<%next%>

</tr>

Adaptalo a tu codigo......
Saludos

[sjam7]

excelente, ahi les va el codigo que hice por si a alguien le sirve, permite listar varias tablas en una pagina:

Código PHP:

  <!--#include file="conexion.inc" -->
<table border=1 cellpadding="3" cellspacing="0"><tr>
<td>antros</td><td>articulos</td><td>decompras</td><td>hotel</td><td>hoteles</td><td>lugares</td><td>noticias</td><td>rest2</td><td>restaurantes</td><td>agenda</td></tr>
<tr>
<%
Set RS = Server.CreateObject("ADODB.RecordSet")
contador=1
do while contador<11
if contador=1 then SQL="SELECT * FROM antros"
if contador=2 then SQL="SELECT * FROM articulos"
if contador=3 then SQL="SELECT * FROM decompras"
if contador=4 then SQL="SELECT * FROM hotel"
if contador=5 then SQL="SELECT * FROM hoteles"
if contador=6 then SQL="SELECT * FROM lugares"
if contador=7 then SQL="SELECT * FROM noticias"
if contador=8 then SQL="SELECT * FROM rest2"
if contador=9 then SQL="SELECT * FROM restaurantes"
if contador=10 then SQL="SELECT * FROM agenda"
RS.Open SQL, conexion,1,1 %>
<td valign="top">
<%for each objeto in rs.Fields%>
<font color="#000000" face="Arial" size="1"><%=objeto.name%><br></font>
<%next
rs.close
contador=contador+1
%>
</td>
<%loop%> 
   

[sjam7]

ahora me surge otra duda, se puede con un FOR EACH cerrar todas las conexiones abiertas sin saber cuales son?

osea algo asi:

for each conexion conexion.open
conexion.close
next

o algo asi?

[amendoza]

Tienes solo una conexion abierta:

conexion.close
set conexion = Nothing

Saludos