<%
SQL="select * from list"
rs.open SQL,conn,1,3
if rs.recordcount>0 then
response.write "<select name='select'>"
rs.movefirst
do while not rs.eof
response.write "<option value='"&rs("value")&"'>"&rs("list")"&"</option>"
loop
response.write "</select>"
rs.close
%>