A Quick Way to Convert RecordSet to an HTML Table

 
Public Function GetHtmlString(rs)
Dim StrHtml
Dim FldLimiter,RowLimiter
FldLimiter="</Td><Td>"
RowLimiter="</Td></Tr><Tr>"

If Not rs.EOF Then
StrHtml="<Table Border=1>" 'Table Tag
'Prefix for 1 col value
StrHtml=StrHtml & "<Tr><Td>"
StrHtml=StrHtml & rs.GetString(2,-1,FldLimiter,RowLimiter)
'Trim of the Last <Tr><Td>
StrHtml=Left(StrHtml,Len(StrHtml)-Len("<Tr><Td>"))
'Close Table
StrHtml=StrHtml & "</Table>"
End If
End Function

 
Response.Write(GetHtmlString(rs))