| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs20 Display the results of an ADO recordset in a HTML table\fs17 \par \par Option Explicit \par \par The following example function can be used on an ASP page to display the results of an ADO recordset in HTML. \par \par <% \par 'Purpose : Outputs the result of a recordset to a table \par 'Inputs : oRs The opened recordset containing the rows to display \par ' sTitle The title of the table, if Empty then no title is printed. \par ' lWidth The width of the table in percent, if Empty the 100% is used. \par ' lBorder The table border, if Empty the 1 is used. \par ' lDateFormat The date format for any date values found in the recordset, \par ' if Empty the vbLongDate is used. \par ' sHideCols A comma seperated string containing a list of the columns to hide, \par ' if Empty all columns in the recordset are visible, \par ' eg "1,2" would hide the 2nd and 3rd columns. \par ' lAnchorCol The index of the column within the HTML table to contain an anchor tag. \par ' If empty no anchors are added. \par ' sAnchorText The static anchor text used in the column specified by lAnchorCol. \par ' eg. could be "http://www.MyWebSite/GetThisArticle.asp?ArticleID=" \par ' or "mailto:" \par ' lAnchorParamCol The number of the column in the recordset which contains the anchor text to append to \par ' sAnchorText. \par ' eg. would be the column in the recordset containing the ArticleID for the above example. \par ' or would be the column contains the email address for the "mailto:" text. \par 'Outputs : Returns -1 on failure else returns the number of rows in the table. \par 'Author : Andrew Baker \par 'Date : 8/Aug/2001 \par 'Notes : \par \par Function RStoTable(oRS, sTitle, lWidth, lBorder, lDateFormat, sHideCols, lAnchorCol, sAnchorPage, lAnchorParamCol) \par Dim lNumRows, lNumCols, avResults \par Dim lThisCol, lThisRow \par \par 'on error resume next \par 'Set up default parameters \par If IsNumeric(lWidth) = False Then \par lWidth = 100 \par End If \par If IsNumeric(lBorder) = False Then \par lBorder = 1 \par End If \par If IsNumeric(lDateFormat) = False Then \par lDateFormat = vbLongDate \par End If \par \par 'Get results into array \par If oRst.EOF = False Then \par avResults = oRst.GetRows(-1) \par lNumRows = UBound(avResults, 2) + 1 \par lNumCols = UBound(avResults, 1) + 1 \par RStoTable = lNumRows \par Else \par 'Return success code \par RStoTable = -1 \par Exit Function \par End If \par \par If Len(sHideCols) Then \par 'Format the comma seperated string \par 'containing the columns to hide \par If Left(sHideCols, 1) <> "," Then \par sHideCols = "," & sHideCols \par End If \par If Right(sHideCols, 1) <> "," Then \par sHideCols = sHideCols & "," \par End If \par sHideCols = Replace(sHideCols, " ", "") \par End If \par \par If Len(lAnchorCol) = 0 Then \par lAnchorCol = -1 \par End If \par \par 'Display header \par Response.Write "
\par \par 'Close Recordset \par oRS.Close \par \par If Err.Number Then \par 'Return failure code \par RStoTable = -1 \par Response.Write "Failed to output recordset results: " & Err.Description \par End If \par End Function \par \par \par 'Example usage: \par 'Connect to Database \par sMappedPath = Server.MapPath("\\mydb.mdb") \par Set oCon = Server.CreateObject("adodb.connection") \par oCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sMappedPath & "; Persist Security Info=False" \par \par 'Open recordset \par Set oRst = Server.CreateObject("adodb.recordset") \par oRst.Open "Select * from qryStats", oCon, adOpenForwardOnly \par \par 'Center the table on the page \par Response.Write " " \par \par 'Close recordset \par Set oRst = Nothing \par oCon.Close \par Set oCon = Nothing \par %> \par } |
Display the results of an ADO recordset 2 |
India web developer web development India | India web development company India ecommerce web developer