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))
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: