Stampare valore recordSet

[ubbicom]

Ciao.

Ho un dubbio su questo codice ASP: in pratica eseguo una query su una tabella a secondo del valore che arriva dal form, ogni tabella ha campi diversi che stampo attraverso il ciclo for ... next ma non so come fare a stampare i valori della tabella... sapete aiutarmi?

strTabella = request.form("Amministrazione")
        	
        	sql = "SELECT * FROM " & strTabella & " "
        	sql = sql & " WHERE 1 = 1 "
        	sql = sql & " ORDER BY ID ASC "
        	        	        	
        	Set Rs = Server.CreateObject("ADODB.Recordset")
        	Rs.Open sql, objconn

        	If Not Rs.EOF Then
        	
        	countfields = Rs.Fields.Count
        	
        	For i=0 to countfields -1
                //STAMPO NOME COLONNE
        	   response.write Rs(i).name
        	next  
        	
        	Do while NOT Rs.EOF
        	     	 
             //COME FACCIO A STAMPARE I VALORI DEL RECORDSET ?      	
        	
        	Rs.MoveNext()
        	Loop
        	End If

        	Rs.Close()
        	set Rs = nothing

[optime]

ubbi ubbi, mi deludi come usi .name per il nome, usa .value per il valore

[ubbicom]

Originariamente inviato da optime
ubbi ubbi, mi deludi come usi .name per il nome, usa .value per il valore

Ci avevo provato prima di postare, ma non funziona....:

For i=0 to Rs.Fields
   Response.Write Rs(i).value "
"
next

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida

Grazie---

[rotteninside]

prova semplicemente con

response.write Rs(i)

[Alethesnake]

Originariamente inviato da ubbicom
Ci avevo provato prima di postare, ma non funziona....:

For i=0 to Rs.Fields
   Response.Write Rs(i).value "
"
next

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida

Grazie---

Come fai un ciclo da 0 a Rs.Fields.Count -1 per i .name devi fare lo stesso per i .value

Nel response.write manca anche la concatenazione in Rs(i).value & "
"

[ubbicom]

Ho risolto così, grazie:

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