List box example

This is a fairly basic example but it shows a couple of useful techniques for beginners . Firstly we show how to pass results to the page that a script resides by using <%= Request.ServerVariables("SCRIPT_NAME") %> . It also shows an example of using a listbox .

<form action = "<%= Request.ServerVariables("SCRIPT_NAME") %>" method = "get">
<select size="2" name = "colour" multiple>
<option>Green</option>
<option>Red</option>
<option>Blue</option>
<option>purple</option>
<option>black</option>
<option>white</option>
</select>
<input type="submit">
</form>
<%
Dim intCount
'if no colours are selected then display a message
If Request.QueryString("colour").Count = 0 Then
Response.Write "You didnt select any colours"
'if you did select colours
Else
'loop through the selected colour(s)
For intCount = 1 To Request.QueryString("colour").Count
Response.Write "You like the colour "
Response.Write Request.QueryString("colour")(intCount)
Response.Write "<br>"
Next
End If
%>