Udfyld dropdown-liste fra database
Hej eksperterJeg 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> </form>
<p align="center"><font size="3" face="Verdana">
</font></p>
</TABLE>
</CENTER></TD>
</BODY>
</HTML>
