Uso de While y EOF

[skatomundo]

Código:

Set RsDatos = Server.CreateObject("ADODB.RecordSet")
SQL="Select * From Tabla"
RsDatos.Open SQL, Conexion, 3
if not rsDatos.eof then
  do until rsDatos.eof
        response.write(rsdatos("campo1"))
        'blablabla..
  RsDatos.MoveNext
  loop
End If
rsDatos.close