How To Read the Selected Items in a SELECT Control

MORE INFORMATION

   ********* BEGIN Page1.HTM *******************
   <HTML>
     <SCRIPT LANGUAGE="VBSCRIPT">

    Sub ShowVals
      Dim SelStr
      For i = 0 to Form1.myselect.length - 1
        If Form1.myselect.options(i).selected = True Then
          selstr = selstr & Form1.myselect.options(i).value & chr(10)
        End If
      Next
      MsgBox SelStr,,"Selected Item(s)"
    End Sub

   </SCRIPT>

   <BODY>

    <FORM NAME="Form1">
      <SELECT MULTIPLE NAME="MySelect">
        <OPTION VALUE="10">Option 1 (10)
        <OPTION VALUE="20">Option 2 (20)
        <OPTION VALUE="30">Option 3 (30)
      </SELECT>
      
      <INPUT TYPE=BUTTON onClick="ShowVals()" VALUE="Show Value(s)">
    </FORM>

   </BODY>
   </HTML>
   *********  BEGIN End.HTM  *******************
				

Program Flow

1. The onClick event of the button on the page calls the ShowVals subroutine.
2. The ShowVals subroutine creates a variable to hold the selected items (SelStr).
3. The "Form1.myselect.length" variable represents the number of items in the list. The For loop uses this value to determine how many iterations it needs in the loop.
4. In each iteration of the loop the program checks to see if the current item is selected.
5. If the current item is selected, then its value is concatenated onto the string described in step 2. "Chr(10)" is also added to the string, and it evaluates to a carriage-return character for cosmetic purposes.
6. A message box displays the string.