A Quick Way to Convert RecordSet to an HTML Table

 Public Function GetHtmlString(rs)Dim StrHtmlDim FldLimiter,RowLimiterFldLimiter=""RowLimiter=""If Not rs.EOF ThenStrHtml="" 'Table Tag'Prefix for 1 col valueStrHtml=StrHtml & "
"StrHtml=StrHtml & rs.GetString(2,-1,FldLimiter,RowLimiter)'Trim of the Last 
StrHtml=Left(StrHtml,Len(StrHtml)-Len("
"))'Close TableStrHtml=StrHtml & "
"End IfEnd Function

Usage:

 Response.Write(GetHtmlString(rs))

Charlie Frank

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.