Populate Dropdown Box

[admin]

<%
Set Conn = Server.CreateObject("ADODB.Connection")
CONN.OPEN "DSN_Name"
SQL="select * from Table_Name"
Set rs=conn.execute(SQL)
%>

<form action="DropDownBox.asp" method="POST">
<SELECT NAME= "whatever">
<option selected>select one

<%
While not rs.EOF
%>

<option value="<%=rs("Field_Name")%>">
<%=rs.fields("Field_Name")%>

<%
rs.MoveNext
Wend
rs.Close
%>

</Select>
</form>