set rs_area=server.CreateObject("adodb.recordset")
sql_area="select * from area order by sort"
rs_area.Open sql_area,cnn,1,3
<select name="area" style="WIDTH: 150px">
<option value=00>-- 请选择地点 --</option>
<% if rs_Area.recordcount>0 then
rs_Area.MoveFirst
do while not rs_Area.EOF%>
<option value=<%=rs_Area("AreaID")%>>
<%=rs_Area("ChineseName")%>
</option>
<%rs_Area.MoveNext
loop
end if %>
</select>