Problema con recordset [RESUELTO]

[Elemental Code]

Hola.
Estoy trabajando con una base de datos con recordset y tengo un problema.

Tengo poscicionado el registro, la tabla, todo bien, pero miren esto.

Código (vb) [Seleccionar] Expandir

with RS
  !Campo1
  !Campo2
  !Campo3
  ...
  !Campo16
end with

Ahora como hago algo como esto:

Código (vb) [Seleccionar] Expandir

with rs
  for i = 1 to 16
     !campo & i
  next
end with
(Notese que esto no funciona, busco una forma facil de hacer esto sin tener que escribir tooooooooodo uno abajo del otro :S)




Me autorespondo:

Código (vb) [Seleccionar] Expandir

  For i = 0 To RS.Fields.Count -1
    Response.Write "Field Name: " & RS.Fields(i).Name & "<br>"
    Response.Write "Field Value: " & RS(i) & "<br>"
  Next