Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Web
Expertise: Beginner
Nov 15, 2002

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

Usage:
 
Response.Write(GetHtmlString(rs))
Prasad Haridass
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap