ASP Source Code: 
<%Option Explicit%>

<html>
   <head>
	<%SUB DrawPulldown
        %><!--#include file="ADOsetup.inc"--><%
           DIM strSQL
           strSQL = "Select DISTINCT Country from Customers ORDER BY Country"
           ADOrs.Open strSQL, ADOcn
	   Response.Write "<select name='txtSearch'>"
	   Response.Write "<option>Select Country</option>"
	      Do While Not ADOrs.EOF
	         Response.Write "<option value='"
	         Response.Write ADOrs.Fields("Country")
	         Response.Write "'>"
	         Response.Write ADOrs.Fields("Country")
	         Response.Write "</option>" & vbCrLf
	         ADOrs.MoveNext
	      Loop
	   Response.Write("</select>")
           %><!--#include file="ADOclose.inc"--><%
        END SUB
        %>
   </head>

   <body>
      <H2>Search (Version 4)</H2><BR>

      <form action="Search4.asp" method="get">
         Countrty:
         <%CALL DrawPulldown%><br><br>
         <HR>
         Sort results by:<BR>  
         <input type="Radio" name=optSort value="ContactName">   Name<BR>
         <input type="Radio" name=optSort value="CompanyName">   Company<BR>
         <input type="Radio" name=optSort value="City">          City<BR><HR>
         <BR><input type="submit" value="Find the above"><BR>
      </form>
   </body>
</html>