Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Iterating thru selected values in SELECT 2
- Thread starter AgentM
- Start date
-
1
- #2
I am pretty sure I have had this work before, but right now it's not working for me, but my computer is acting all pi**y right now anyways so it may be me.
anyways...the select box should be basically a comma delimited variable. So, you can use the split command and that will give you an array.
dim tmpArray
dim i
tmpArray = split(msgbox, ", "
for i = lbound(tmpArray) to ubound(tmpArray)
' do whatever
next
Something quite similar to that should work I believe. I appologize in advance if I am wrong and that does not work.
HTH
Mike
anyways...the select box should be basically a comma delimited variable. So, you can use the split command and that will give you an array.
dim tmpArray
dim i
tmpArray = split(msgbox, ", "
for i = lbound(tmpArray) to ubound(tmpArray)
' do whatever
next
Something quite similar to that should work I believe. I appologize in advance if I am wrong and that does not work.
HTH
Mike
-
1
- #3
Try this ...
<html>
</head>
<script language="vbscript">
Sub disp()
Dim i
Dim itms
For i = 0 to (mulSel.Options.Length-1)
if mulSel.Options(i).selected Then itms = itms & _
mulSel.Options(i).value & " - " & _
mulSel.Options(i).Text & vbcrlf
Next
msgbox itms
End Sub
</script>
</head>
<body>
<select id="mulSel" size="03" multiple>
<option value="1">Music</option>
<option value="2">TV</option>
<option value="3">Books</option>
</select>
<button onclick="disp()">Submit</button>
</body>
</html>
<html>
</head>
<script language="vbscript">
Sub disp()
Dim i
Dim itms
For i = 0 to (mulSel.Options.Length-1)
if mulSel.Options(i).selected Then itms = itms & _
mulSel.Options(i).value & " - " & _
mulSel.Options(i).Text & vbcrlf
Next
msgbox itms
End Sub
</script>
</head>
<body>
<select id="mulSel" size="03" multiple>
<option value="1">Music</option>
<option value="2">TV</option>
<option value="3">Books</option>
</select>
<button onclick="disp()">Submit</button>
</body>
</html>
- Thread starter
- #4
- Status
Similar threads
