dropdown med asp og javascript

Nu ved jeg selvfølgelig ikke hvor mange firmaer du har, men en måde at gøre det på:

<%
'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 * FROM contacts"
set rs = Conn.Execute(strSQL)
%>
<script type="text/javascript">
var c = new Array();
<%
i = 0
Do While Not rs.EOF
  Strvar = Strvar + "<option value='" & i & "'>" & rs("firm") & "</option>"
  Response.Write("c[<%=i%>] = new Array();")
  Response.Write("c[<%=i%>].firm = " & rs("firm") & ";"
  Response.Write("c[<%=i%>].land = " & rs("land") & ";"
  Response.Write("c[<%=i%>].adr1 = " & rs("Adr1") & ";"
  Response.Write("c[<%=i%>].adr2 = " & rs("Adr2") & ";"
  Response.Write("c[<%=i%>].adr3 = " & rs("Adr3") & ";"
  Response.Write("c[<%=i%>].zip = " & rs("Zip") & ";"

    rs.MoveNext
Loop
%>
function fillBoxes(val){
  val = +val;
  f = document.form1;
  f.Firm = c[val].firm;
  f.Land = c[val].land;
  f.Adr1 = c[val].adr1;
  f.Adr2 = c[val].adr2;
  f.Adr3 = c[val].adr3;
  f.Zip = c[val].zip;
}
</script>
<select name=dropdown size=1 onchange="fillBoxes(this.value)">
<%
Response.Write Strvar
%>
</select>
<%
Conn.Close
Set Conn = Nothing
%>

-- og så give formen et name:

<form method="POST" action="gem.asp" name="form1">

tager spørgsmålet ud