Devi fare una cosa di questo tipo :

rs.Open "Select * from nome_tabella", conn

do until rs.EOF
for each x in rs.Fields
Response.Write(x.name&"<br>")
next
rs.MoveNext
loop

rs.close

Ciaoooooooooooooooooooo :O)


Rome Webmaster ---------->>

Provato funziona

ho usato questo codice

dim fldF
Dim NomeCampi : NomeCampi=""
for each fldF in rs.fields
NomeCampi=NomeCampi &"<br>"& fldF.name
next
Response.write NomeCampi


Erika