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. Use this code to do it:
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) & "
"
Next ' i