Display the results of an ADO recordset in a HTML

Web development India freelance website designer developer India SEO

{\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 combo (ASP)
\par The following ASP routine outputs the contents of a recordset to drop down combo box.\fs17
\par
\par <%
\par 'Purpose : Outputs the result of a recordset to a combo
\par 'Inputs : oRst\tab\tab\tab The opened recordset containing the rows to display.
\par '\tab\tab lTextColumn\tab\tab The ordinal position of the column in the recordset to
\par '\tab\tab\tab\tab\tab display as text in the combo.
\par '\tab\tab lValueColumn\tab\tab The ordinal position of the column in the recordset to
\par '\tab\tab\tab\tab\tab be used as the value in the combo.
\par '\tab\tab sComboName\tab\tab The name of the combo.
\par '\tab\tab lComboLeft\tab\tab The left coordinate of the combo.
\par '\tab\tab lComboWidth\tab\tab The width of the combo.
\par '\tab\tab sComboAlign\tab\tab The alignment of the combo.
\par ' sDefaultItem\tab\tab The default select item in the combo.
\par 'Outputs : Returns -1 on failure else returns the number of rows in the combo.
\par 'Example :
\par ' 'Open Recordset
\par ' oRst.Open "Select UserId, Name From lkpUsers ORDER BY Name ASC", oCon, adOpenForwardOnly
\par ' 'Display Recordset
\par '\tab\tab RStoCombo oRst, 1, 0, "UserID", 1000, 156, "LEFT", ""
\par
\par Function RStoCombo(oRst, lTextColumn, lValueColumn, sComboName, lComboLeft, lComboWidth, sComboAlign, sDefaultItem)
\par \tab Dim lNumRows, avResults, lThisRow
\par \tab
\par \tab 'on error resume next
\par \tab 'Set up default parameters
\par \tab If IsNumeric(lTextColumn)=False Then
\par \tab\tab lTextColumn = 0
\par \tab End If
\par \tab If IsNumeric(lValueColumn)=False Then
\par \tab\tab lValueColumn = lTextColumn
\par \tab End If
\par \tab If IsNumeric(lComboLeft)=False Then
\par \tab\tab lComboLeft = 1
\par \tab End If
\par \tab If IsNumeric(lComboWidth)=False Then
\par \tab\tab lComboWidth = 150
\par \tab End If
\par \tab If sComboAlign = Empty Then
\par \tab\tab sComboAlign = "LEFT"
\par \tab End If
\par \tab If Len(sDefaultItem) Then
\par \tab\tab 'Default item is case insensitive
\par \tab\tab sDefaultItem = Ucase(sDefaultItem)
\par \tab End If\tab
\par \tab
\par \tab 'Get results into array
\par \tab if oRst.EOF= False then
\par \tab\tab avResults = oRst.GetRows(-1)
\par \tab\tab lNumRows = UBound(avResults, 2) + 1
\par \tab\tab RStoCombo = lNumRows
\par \tab else
\par \tab\tab 'Return success code
\par \tab\tab RStoCombo = -1
\par \tab\tab Exit Function
\par \tab end if
\par \tab
\par \tab 'Start combo
\par \tab Response.Write vbNewLine & "" & vbNewLine
\par
\par \tab 'Close Recordset
\par \tab oRst.Close
\par
\par \tab If Err.number Then
\par \tab\tab 'Return failure code
\par \tab\tab RStoCombo= -1
\par \tab\tab Response.Write "Failed to output recordset results to combo: " & Err.Description
\par \tab End If
\par End Function
\par %>
\par }

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150

India web developer web development India | India web development company India ecommerce web developer