<select name="select">
<%
data="111"+chr(10)+"222"+chr(10)+"333"'这个为备注字段中的内容
tmp=split(data,chr(10))
for i=0 to ubound(tmp)
response.Write("<option>"&tmp(i)&"</option>")
next
%>
</select>