Trække værdi fra db ud til select box

lav et tjek og skriv checked

<input type=checkbox <% if rs(\"value\") response.write \"checked\" end if %>>

<select name=\"kategori\">
<%
do until rs.eof
%>
<option value=\"<%=rs(\"Kategori\")%>\"></option>
<%
rs.movenext
loop
%>
</select>

Ovenstående er en select-box.....IKKE en check-box! ;o)

Ups - det gik lidt for hurtigt. Surry.
Ikke andre kommentare, det er en helt fin måde webbe løser det på :-)

cyb:

Kender det godt det der med at det går for hurtigt! *GG*
Men dit havde været fino hvis det havde været en checkbox - bortset måske lige fra en name-værdi! *GG*

Men det skal ikke kun være muligheder som allerede ER i DB\'en. Det skal også være andre unikke muligheder!

prøv med sådan her :

<select style=\"font-family: Arial; font-size: 10 pt\" size=\"1\" name=\"url\">
  <option>..:: Scripts ::..</option>
  <%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
if Request.form(\"url\") <> \"\" then
Response.Redirect Request.form(\"url\")
else
Response.Redirect \"default.asp\"
end if
end if

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"database.mdb\")
Set rs = Conn.Execute(\"select * from drop\")
Do until rs.eof
  %>
  <option value=\"<%=rs(\"vaerdi\")%>\"><%=rs(\"dropout\")%></option>
  <%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
  %>
</select>

ps. brug ikke Æ i vaerdi

Taxa