set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT DISTINCT Country FROM Customers ORDER BY Country"
country=request.form("country")
Choose Country <select name="country">
response.write("<option")
if rs.fields("country")=country then
response.write(" selected")
response.write(rs.fields("Country"))
<input type="submit" value="Show customers">
sql="SELECT Companyname,Contactname,Country FROM Customers WHERE country='" & country & "'"
set rs=Server.CreateObject("ADODB.Recordset")
<table width="100%" cellspacing="0" cellpadding="2" border="1">