dropdownboks med indhold fra database

<%
strSQL = "Select * from DinTabel"
Set RS = Conn.Execute(strSQL)
Response.Write "<select name='MinDropDown'>"
Do While Not rs.EOF
Response.Write "<option selected value='" & RS("Vaule") & "'>" & RS("Navn") & "</option>"
RS.MoveNext
Loop
Response.Write "</select>"
%>

Det var lige hurtigt nok..

Først laver du en connection til din database - oven over sætningen:
strSQL = "Select * from DinTabel"

Altså:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/NavnPåDb.mdb")
strSQL = "Select * from DinTabel"
Set RS = Conn.Execute(strSQL)
Response.Write "<select name='MinDropDown'>"
Do While Not rs.EOF
Response.Write "<option selected value='" & RS("Vaule") & "'>" & RS("Navn") & "</option>"
RS.MoveNext
Loop
Response.Write "</select>"
%>

Husk at ændre navnene på tabellen, databasen og alle felterne...

jeg har prøvet dit scrip razser men får følgende fejl
Error Type:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
i linien med
Response.Write "<option selected value='" & RS("Vaule") & "'>" & RS("Navn") & "</option>"

Du skal skrive det felterne i din database hedder:
Response.Write "<option selected value='" & RS("Vaule") & "'>" & RS("Navn") & "</option>"

Dvs. RS("Value") - her skal du skrive hvad id'en i access hedder fx. RS("ID"), og
du skal gøre det samme med RS("Navn")
Hvad hedder felterne i databasen, som du vil udtrække fra?

jeg takker mange gange for hjælpen nu virker det