ASP. Classic mostrar datos de un RecorSet

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Function MuestraRecorSet(objRS)  'Vamos al primer registro  objRS.MoveFirst  'nombres de los campos como cabecera de la tabla  response.write ""  for i = 0 to objRS.fields.Count - 1     response.write ""  next  response.write ""     'ahora, para cada registro  Do while not objRS.EOF   response.write ""     'muestro todos los campos que tiene   for i = 0 to objRS.fields.Count - 1      response.write ""   next   response.write ""   objRS.movenext  loop  response.write "<table border="1"><tbody> <tr><th align="center" bgcolor="#eeeeee">"     response.write objRS.fields(i).name     response.write "</th></tr> <tr><td>" & objRS.fields(i) & "</td></tr> </tbody></table> "  response.end End Function