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