Handling Multiselect Lists

When using a select list that will allow multiple selections, the selections will be provided to you in the Request object as a comma-separated list. Using the new Split function, you can break this list into an easily handled array by using the following code:

 
Dim a_strSelected() ' As Array of Strings 
a_strSelected = Split(Request("lstItems"), ", ") 

You can then use the UBound function to loop through the items, as shown here:

 
Dim i ' As Integer 
For i = 0 To UBound(a_strSelected()) 
Response.Write "Item #" & i & ": " & 
a_strSelected(i) & "<br>" 
Next ' i