<% Function RecToTable (objRS) strT = "" For Each fldF in objRS.Fields strT = strT & "" Next strT = strT & "" While Not objRS.EOF strT = strT & "" For Each fldF in objRS.Fields strT = strT & "" Next strT = strT & "" objRS.MoveNext Wend strT = strT & "
" & fldF.Name & "
" & fldF.Value & "
" RectoTable = strT End Function %>