ASP. Classic mostrar datos de un RecorSet

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 "

" 
    response.write objRS.fields(i).name 
    response.write "
" & objRS.fields(i) & "

" 
 response.end
End Function