C and S Design.
Search Friendly Programming and Design

<%
dim i
dim select_value
dim value_array(3)
value_array(0) = "zero"
value_array(1) = "one"
value_array(2) = "two"
value_array(3) = "three"

select_value = request.form("test_select")
%>

<form action="default.asp" _ 
	method="post" name="test_form">
<select name="test_select" _ 
	id="test_select">
<option value="-1">Select From</option>
<%
with response
for i = 0 to ubound(value_array)
.write "<option value="
.write chr(34)
.write i
.write chr(34)
if i = cint(select_value) then
.write " selected ="
.write chr(34)
.write "selected"
.write chr(34)
end if
.write ">"
.write value_array(i)
.write "</option>"
next
end with

%>
</select>
<input type="submit" name="submit" _ 
	id="submit" value="Ok">
</form>