Dynamic Dropdown Query

hej jeg har følgende kode:


<%
if session("login") = "" Then
Response.redirect("loginhp.asp")
end if
%>
<link rel="stylesheet" href="css/regl.css" type="text/css">
<table class="txt" border= "1" >
<tr>
<td>
<table class="admin2">
<tr>
<td>

<center>
<%
'ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")'
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db1.mdb")
Conn.Open DSN
strSQL = "SELECT firm FROM contacts"
set rs = Conn.Execute(strSQL)
%>
<select name=dropdown size=1>

<%

Do While Not rs.EOF
  Strvar = "<option value=" & ">" & rs("firm") & "</option>"
    Response.Write Strvar
    rs.MoveNext
Loop
%>

%>
</select>
<%
Conn.Close
Set Conn = Nothing
%>
<hr>
<p>
<button type="submit"> Delete Firm</button><p>
<button type="submit"> Clear Form </button><p>
<button type="submit"> Add new Firm </button><p>
<button type="submit"> Save Changes</button><p>
</center>
</tr>
</td>
</table>
<table class="admin2">
<tr>
<td>
<form method="POST" action="gem.asp">
<b>Contry:</b><br> <input name="Land" type="text" value="" size = "20"  id="land">
<br>
<b>Firm:</b><br> <input name="Firm" type="text" value= "<%=strvar2%>" size = "20"  id="Firm">
<p>
<hr class = "par">
<b>Adress1:</b><br> <input name="Adr1" type="text" value="" size = "20"  id="Adr1">
<br>
<b>Adress2:</b><br> <input name="Adr2" type="text" value="" size = "20"  id="Adr2">
<br>
<b>Adress3:</b><br> <input name="Adr3" type="text" value="" size = "20"  id="Adr3">
<br>
<b>Zip code:</b><br> <input name="Zip" type="text" value="" size = "20"  id="Zip">
<p>
<hr class = "par">
<b>Fax:</b> <br><input name="overskrift" type="text" value="" size = "20"  id="overskrift">
<p>

</tr>
</td>
</table>
<table class="admin2">
<tr>
<td>


<b>Att1:</b><br> <input name="Att1" type="text" value="" size = "20"  id="Att1">
<br>
<b>Tlf:</b> <br><input name="Tlf1" type="text" value="" size = "20"  id="Tlf1">
<br>
<b>Mobil:</b> <br><input name="Mobil1" type="text" value="" size = "20"  id="Mobil1">
<br>
<b>E-mail:</b> <br><input name="email1" type="text" value="" size = "20"  id="email1">

<p>
<hr class = "par">

<b>Att2:</b><br> <input name="Att2" type="text" value="" size = "20"  id="Att2">
<br>
<b>Tlf:</b> <br><input name="Tlf2" type="text" value="" size = "20"  id="Tlf2">
<br>
<b>Mobil:</b><br> <input name="Mobil2" type="text" value="" size = "20"  id="Mobil2">
<br>
<b>E-mail:</b><br> <input name="email2" type="text" value="" size = "20"  id="email2">

</form>
</tr>
</td>
</table>

Problem:

Jeg vil have at når man vælger noget i dropdown (firm) navn skal den skrive alle data i de forskellige
"<input name="XXXX".... "

Jeg ved jeg skal åbne en ny forbindelse til databasen.
og have en ny Sqlstr som skal være noget i retningen af "strSql = "SELECT * FROM contacts WHERE firm = "ET ELLER ANDET" problemet er hvordan pokker fortæller jeg den at den skal sammen ligene med det "valgte" i dropdown boxen? Og så smide alle dataerne ind på de rigtige <input&#8230;..>?????????+

på forhånd tak :-)