Drop Down Menus from a database

<%
'Create  DSN Less connection to Access Database
'Create DBConnection Object
Set DBConnection = Server.CreateObject("adodb.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.Mappath("/path_to_your/database.mdb")
DBConnection.Open DSN

'Count the Records

   SQLcount = "Select * From table"
      Set RS = DBConnection.Execute(SQLcount)

 Select Case RS.eof
      Case False
        tempRSCount = RS.getrows
        Set RS = Nothing
        count = Cdbl(UBound(tempRSCount, 2)) + 1
               
     Case True
      count = "0"
 End Select
     Set RS = Nothing
 

%>

         <select size="1" name="dropdown_name">
         <option value="choice 1">Pick one</option>

         <%
         IF count > 0 Then
      
'Display records

    
  SQL = "Select * From table"
      Set RS = DBConnection.Execute(SQL)
            
        rs.move idc
      
        while not rs.eof
         data1 = rs("data1")
         data2= rs("data2")
         idc = idc + 1
         %> 
         <option value="<%=data1%>"><%=data2%></option>
         <%
         
         rs.Movenext
        wend
       Else
       %>
       
         <option>no data to display</option><%
       End IF
  %>

Replace everything in red with your own data.