Select List Thingy

*UPDATED 10-23-00* Now with more options, including multiple select, size, and default selected option. Quickly and easily creates select list combo boxes from a database for your web forms. Uses .GetString rather than recordset looping.

Original Author: Will Knoll

Inputs

See Code Comments...

Assumptions

I place the code in an include file which I link to from the pages in which I am building select lists. I use this with SQL Server, not sure what results will be with other databases, but it should work okay.

Returns

Returns a string with all of the code for your select list. All you need to do to display it is a Response.Write() or <%=varname%>

Side Affects

Your Recordset can only contain two columns for this to work properly. Example SQL: "SELECT usr_id,usr_name FROM users". The first column will be used for the VALUE of the option, the second column will be the display value.

Code

<%
'***************************************
'* Function Name: buildCombo
'* Syntax : myVar = buildCombo
'* Parameters :
'* rsRecordset - Name of an OPEN
'* recordset with 2 fields
'* strComboName - String with the name
'* you want to appear in
'*
'* strFirstOption - String with what
'* the first option should
'* be, ex:
'* N/A
'* blnMultiple - Boolean for mult.
'* option or not...should
'* be FALSE unless you set
'* strSize
'* strSize - String for size (rows)
'* to display
'* strSelected - String of the
'* selected value, if you
'* want an option
'* autoselected
'*
'* Description : Quickly creates a drop-
'* down list without looping a
'* recordset, and minimal
'* concatination
'*
'* Example :
'* myCombo = buildCombo(rsTmp,
'* "usr_id","N/A
'* ",True,"5","0")
'*
'* Result : Produces a 5 row multiple
'* select list called usr_id with
'* the first display as N/A and
'* selected as default
'***************************************
function buildCombo(byref rsRecordset,strComboName,strFirstOption,blnMultiple,strSize,strSelected)
Dim strCombo
Dim strLstSize
Dim i
If Len(Trim(strSize)) > 0 Then
strLstSize = " size=""" & strSize & """"
Else
strLstSize = ""
End If
If blnMultiple Then
strCombo = ""
Else
strCombo = ""
End If
If strFirstOption <> "" Then
strCombo = strCombo & strFirstOption & vbCrLf
End If
With rsRecordset
If Not (.EOF And .BOF) Then
If Not .BOF Then
'Just making sure in case you were previously doing something else
.MoveFirst
End If
strCombo = strCombo & "","" & vbCrLf & vbTab & " buildCombo = "No Records Returned"
exit function
End If
End With
strCombo = strCombo & ""
i = InStrRev(strCombo," strCombo = Replace(strCombo,"","",1,1)
End If
buildCombo = strCombo
end function
%>

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 88 times

Categories

ASP/ HTML

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.