Dropdown box med database

Hej,

Jeg forsøger at lave en simple sms sider, hvorpå jeg ønsker en dropdown box med de nummer som der skal være mulighed for at sende til.
Hvordan får jeg min nuværende dropdown box til at kigge i databasen og checke på brugernavn og derefter liste alle brugerne i den dropdown boks?
jeg er åben forslag eller evt anden måde at gøre det på? :)

jeg har følgende kode:

<% if mode = "SMS" then
                       
                        if session("brugernavn") = "" then
                            Response.Redirect("index.asp?mode=login")
                        end if
                       
                        Set rs = Server.CreateObject("ADODB.Recordset")
                        sql = "select * from bruger where brugernavn = '" & Session("brugernavn") & "'"
                        rs.open sql, conn, 1, 3
                           
                        %>               
<form action="123" "method="POST">
    <table border="1" width="260" id="table1">
        <tr>
            <td width="244" colspan="2" bgcolor="#C0C0C0">
            <p align="center">SMS Service</td>
        </tr>

        <input type="hidden" name="username" value="123">
        <input type="hidden" name="password" value="123">
<%       
'Open connection
        set ani = Server.CreateObject("ADODB.Recordset")
        'ani.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=items.mdb"
        ani.Open "Categories", "DBQ=" & Server.Mappath("items.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
       
%>
<p>
  <select name="Category">
    <%     Do While not ani.EOF %>
    <option value="<%=ani("Category")%>"> <%=ani("Category")%></option>
    <% ani.MoveNext
    Loop
    ani.Close
    set ani = Nothing
    %>

  </select>
</p>
        <tr>
            <td width="96">Modtager:</td>
            <td width="148"><input type="text" name="recipient" </td>
        </tr>

        <tr>
            <td width="96">Besked</td>
            <td width="148"><input type="text" name="message" size="20"></td>
        </tr>
       
        <tr>
            <td width="96">Afsender</td>
            <td width="148"><input type="text" name="from" value=<%=Rs("mobilnr")%>> </td>
        </tr>
                           
        </table>
        <p><input type="submit" value="Send SMS" name="B1"><input type="reset" value="Reset" name="B2"></p>
                </form>
   
                <%
                rs.close
                set rs = nothing
                end if %>

               
            <br><br></font>
        </td>
    </tr>
   
    <tr>
        <td align="center">
            <font class="small">
            </font>
        </td>
    </tr>
</table>
</body>
</html>