Udfyld dropdown-liste fra database

Hej eksperter

Jeg vil gerne lave en formular, hvor visse felter henter data fra en database. Det virker fint nok. Jeg kan også submitte formularen - men den skriver ikke den valgte værdi fra dropdown-listen i databasen.

Jeg har en mistanke om, at fejlen er ifb. med det javascript jeg bruger - eller også er det fordi der mangler en <form>xxxx</form> for selve dropdown-listen?

Er der nogen, der kan se, hvad jeg gør galt?

Her er noget fra min testside:

<%@ Language=VBScript%>

<%
Dim oRs, conn, connect, strSQL
%>

<%
'Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/xxxx.mdb")
Conn.Open DSN
%>

<HTML>

<HEAD>

<TITLE>test test</TITLE>

<script language="javascript">
<!--

function dept_onchange(frmauthor) {
    frmauthor.submit();
}

//-->
</script>

</HEAD>

<BODY>

<form method="post" action="add_xxxxx.asp">

<tr>
<td width="273"><font face="Verdana">Dansk:</font></td>
<td width="489"><font size="3" face="Verdana">
<input name="Dansk" size="70">
</font></td>
</tr>

<tr>
<td width="273">
<p><font face="Verdana">Engelsk:</font></td>
<td width="489"><font size="3" face="Verdana">
<input name="Engelsk" size="70">
</font></td>
</tr>

<tr>
<td>
<p><font face="Verdana">Forfatter:</font></td>                   

<SELECT name=author LANGUAGE=javascript onchange="return dept_onchange(frmauthor)">

<%
Set oRs=Server.CreateObject("adodb.recordset")
strSQL = "SELECT DISTINCT author FROM tbl_author ORDER BY author"
oRs.Open strSQL, conn       

Do while not oRs.EOF
  if Request.Form("xxxxx") = oRs("author") then
      Response.Write "<OPTION VALUE = '" & oRS ("author") & "' SELECTED>"
      Response.Write oRs("author") & "</Option>"
      oRs.MoveNext
  else
      Response.Write "<OPTION VALUE = '" & oRs ("author") & "'>"
      Response.Write oRs("author") & "</Option>"
      oRs.MoveNext
  end if
loop
%></SELECT><p align="center"><font size="3" face="Verdana">
                                <input name="submit" type="submit" value="    Send    "><input name="reset" type="reset" value="    Rens    "></font><p>&nbsp;</form>
<p align="center"><font size="3" face="Verdana">
                                &nbsp;&nbsp;&nbsp; </font></p>
</TABLE>
</CENTER></TD>

</BODY>
</HTML>