Hent fra db op i combobox

Du gør således:


<select name="branche" style="border-style:groove;">
    <option value="-" <%If Rs("felt") ="-" Then Response.write("Selected")%>>Vælge</option>
    <option value="Biler" <%If Rs("felt") ="Biler" Then Response.write("Selected")%>>Biler</option>
    <option value="Resturation" <%If Rs("felt") ="Resturation" Then Response.write("Selected")%>>Resturation</option>
    <option value="Jagt" <%If Rs("felt") ="Jagt" Then Response.write("Selected")%>>Jagt</option>
</select>

nu kan jeg se der stadig står den tekst jeg selv har skrevet ind manuelt.. den skal bare hente alt fra en tabel:) bilaer, resturation osv ligger i en tabel i min db

okay, jeg troede det var i forbindelse med at du skulle redigere. her kommer dte andet:

<select name="branche" style="border-style:groove;">
    Do until Rs.eof OR Rs.bof
    Response.write("<option value="""&Rs("value")&""">"&Rs("value")&"</option>")
    Rs.MoveNext
  Loop
</select>

undskyld min uvidenhed:) men hvor ved den fra hvilken tabel den skal kigge i?

jeg gik ud fra at du lavde lavet en sql forspørgsel inden.

har du lavet en database? og en db connection?

Nej det har jeg ikke.. den laver jeg først når der bliver trykket på udfør knappen:)
så jeg skal vel lave en forespørgsel over den ?

laver du først databasen når der bliver trykket udfør?

her er hvordan du connecter ti ldatabasen, og hvordan du henter indholdet ud til dropdownboxen.

<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("databse.mdb")
    Conn.Open DSN

    Set Rs = Conn.Execute("Select felt from tabel;")   
%>

Jeg skal lige spise så prøver jeg:)

ja først når der trykkes udfør.. det er en formel:)

du skulle meget gerne have oprettet din database på forhånd, ellers får du det ikke til at virke. Du skal jo have en access mdb fil du kan pege din connection på.

hvis det er første gang du leger med asp og databaser, så bør du lige læse denne her guide:

http://html.dk/tutorials/asp/lektion17.asp

Det ikke første gang, men første gang jeg prøver dette.

denne kode virker ikke

        <%
                  Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
    Conn.Open DSN
    Set Rs = Conn.Execute("liste")   
    select name="branche" style="border-style:groove;"
    Do until Rs.eof OR Rs.bof
    Response.write("<option value="""&Rs("value")&""">"&Rs("value")&"</option>")
    Rs.MoveNext
  Loop
</select> %>

fejlen er

Microsoft VBScript compilation error '800a03fd'

Expected 'Case'

/wener/ansog.asp, line 257

select name="branche" style="border-style:groove;"
-------^


hvis jeg sætter <> på virker det heller ikke.. altså

<select name="branche" style="border-style:groove;">

dette er ikke asp, men html/css, derfor skal der response.write uden om:

Response.write("select name=""branche"" style=""border-style:groove;""")

det tættere på nu.. får ingen script fejl, men udprint ser sådan ud

Branche
select name="branche" style="border-style:groove;"BallerupHerlevSkovlunde/select

hele scriptet ser således ud

                <%
                  Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
    Conn.Open DSN
    Set Rs = Conn.Execute("omrode")   
    Response.write("select name=""branche"" style=""border-style:groove;""")
    Do until Rs.eof OR Rs.bof
    Response.write("<option value="""&Rs("omrode")&""">"&Rs("omrode")&"</option>")
    Rs.MoveNext
  Loop
Response.write("/select") %>


det er vel denne den er galt med
Response.write("/select") %>

din sql må hede

Set Rs = Conn.Execute("SELECT * FROM omrode;")

og så mangler du da også noget i din HTML syntax

Response.write("<select name=""branche"" style=""border-style:groove;"">")

rettede lige

Response.write("/select") %>

til

Response.write("</select>") %>

sammen med dit! og nu virker det:o)))) ! Tusind tak!!

super og tak for point.