Rullemenu i opdateringsformular.

Jeg har selv løst opgaven, så jeg napper lige pointene igen og lukker spørgsmålet.

I øvrigt har jeg løst det på følgende måde.

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../fpdb/Miljodatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from tblAfdeling WHERE AfdNr = "&Request.form("AfdNr")
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>


<form action="default.asp" method="post">
<select name="AfdNr">
<%
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
 
  AfdelingNavn = rs("AfdelingNavn")
  AfdNr =rs("AfdNr")
 
%>


    <option value="<%=AfdNr%>"><%=AfdelingNavn%></option>
  <% 

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%> 



 

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../fpdb/Miljodatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from tblAfdeling"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
 
  AfdelingNavn = rs("AfdelingNavn")
  AfdNr =rs("AfdNr")
 
%>

    <option value="<%=AfdNr%>"><%=AfdelingNavn%></option>
      <% 

  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</select>

<input type="submit" value="Vælg">

</form>

Lukket