Detta kanske kan ge lite uppslag:
<%
Response.write "<select name=""select"">"&_
"<option value=""0"">Välj något</option>"
Dygn_id =request.form("select")
test=array("Ett","Två","Tre","Fyra","Fem")
for i= 0 to ubound(test)
if cint(Dygn_id) = cint(i)+1 then
selected="selected"
else
selected=""
end if
Response.Write "<option value='" & i+1 &"' "& selected &">"& test(i) &"</option>" & VbCrLf
Next
response.write"</select>"
%>