Indsæt Data i Dropdownbox

Er det dette du søger??

<select name="DinDropdown">
<%
set rs = conn.execute("select * from DinTabel")
do while not rs.eof
  response.write "<option value='"& rs("ID") &"'>"& rs("navn")
%>
</select>

Der manglede lige lidt.....

<select name="DinDropdown">
<%
do while not rs.eof
  response.write "<option value='"& rs("ID") &"'>"& rs("navn")
  rs.MoveNext
loop
%>
</select>

Den kommer lige med en lille fejl:
Microsoft VBScript compilation  error '800a0401'

Expected end of statement

/neworder.asp, line 71

response.write "option value='"& rsAdresser("ID") & "'> & rs("AdresseNavn")
--------------------------------------------------------------^

Hmm.... den ser helt underlig ud nu!

<td width="67%"><font size="1" face="Arial"><select name="Adresser">
    <%
    set rsAdresser= server.Createobject("ADODB.Recordset")
    SQL_String = "Select * from adresse WHERE customer= "& Session("Customer")
    rsAdresser.open SQL_String, Conn
   
    Do until rsAdresser.EOF
        response.write "option value='"& rsAdresser("ID") & "'>" & rs("AdresseNavn")
        rsAdresser.movenext
    loop
    %>
    </select>

du mangler et < tegn i udskrivningen.
response.write "option value='"& rsAdresser("ID") & "'>" & rs("AdresseNavn")

skal være:
response.write "<option value='"& rsAdresser("ID") & "'>" & rs("AdresseNavn")

Ja... den ser stadig underlig ud... før var der en OK knap.. den er bare VÆK!

Der er en lille detalje. Hvis der kommer en database fejl i et <select> element, kommer fejlen ikke ud på skærmen. Der skal du ind og læse kildekoden fra browseren (højreklik >> vis kildekode). Den står nederst i teksten.

Jeg vil dog gætte på at det er fordi customer/Session("Customer") er tekst og derfor skal i '.

SQL_String = "Select * from adresse WHERE customer= '"& Session("Customer") &"'"

Ser stadig underlig ud!

Ja... Customer er et tal!

Eks 50050... kunne jeg ikke stoppe det ind i SQL sætningen... så kan jeg da se om den vil det?

SQL_String = "Select * from adresse WHERE customer="& request.querystring("customer")

Det kunne du sagtens. Du kunne også prøve at køre den uden for <select> elementet.

<%
    set rsAdresser= server.Createobject("ADODB.Recordset")
    SQL_String = "Select * from adresse WHERE customer= "& Session("Customer")
    rsAdresser.open SQL_String, Conn %>
<td width="67%"><font size="1" face="Arial"><select name="Adresser">
<%
    Do until rsAdresser.EOF
        response.write "option value='"& rsAdresser("ID") & "'>" & rs("AdresseNavn")
        rsAdresser.movenext
    loop
    %>
</select>

Hvad mener du med UDEN <select> elementet?

ikke uden, men udenfor. Der smuttede lige en space ind :o)

Nope... virker heller ikke...

Får du en fejl????

Næææ...

Men du kan da kigge her:
www.bredan.net

Log ind.
Tryk på "New Quote"... så kan du se at den ikke loader hele siden...

& rsAdresser("AdresseNavn")

Godt set michael_stim.

Du kunne også se problemet hvis du højreklikker i vinduet og vælger "Vis kilde". Så står der dette nederst:

<p>Microsoft VBScript runtime </font> <font face="Arial" size=2>error '800a000d'</font>
<p>
<font face="Arial" size=2>Type mismatch: 'rs'</font>
<p>
<font face="Arial" size=2>/neworder.asp</font><font face="Arial" size=2>, line 62</font>

Og du mangler stadig en < för option.
"<option value='"& rsAdresser("ID") & "'>" & rs("AdresseNavn") &"</option>"

Ja... nu kunne den da hente det hele ind.. men der er jo ikke noget i boxen... det er der i DB'en!

Ja.. det var bare en < jeg manglede...!

Så er der vidst point uddeling!

Giv du dem bare til fennec, jeg kompleterede bare hans svar.

ok.... fennec... SVAR! :)

Så siger jeg da tak til michael_stim.

.o) <-- One Eyed Jack