visning af data fra tabellen i en dropdown box

er det sådan noget her du efterspørger?

<tr>
    <td>
        <select name="navn">
            <option value=""></option>
<%         set oRs = oConn.Execute("select id, navn from tabel")
        do while not oRs.eof %>
            <option value="<%= oRs("id") %>" <% If request.form("navn")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn") %></option>
<%            oRs.MoveNext
        loop %>
        </select>
    </td>
</tr>

jep men den henter ikke noget frem.....?

du skal lige rette det til så det passer til din db

<TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = oConn.Execute("select id, navn2")
        do while not oRs.eof %>
            <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>

Du mangler tabelnavn
   
    <select name="navn2">
            <option value=""></option>
<%        set oRs = oConn.Execute("select id, navn2 from tabelnavn???????????????")
        do while not oRs.eof %>
            <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>

hvis du får en fejlmeddelelse så paste den her

sådan virker ikke:

<TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = oConn.Execute("select id, navn2 from medarb")
        do while not oRs.eof %>
            <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>

hvilken fejlmeddelelse får du?

jamen der kommer ikke noget frem o dropdown boxen..:-)

har du en connection til databasen?
er der et felt id og et felt navn2 i databasen
hedder databasen medarb
er der data i tabellen

Hvis du kan sige ja til alt det skal det virke.

<%

if request.form("send") <> "" then
' 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("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strSQL = "Insert into medarb (Navn2, m_navn, navn1, Adresse1, Post_Nr, Distrikt, Adresse2, Land_Navn, Mobil, Telefon, Telefon_arb, Telefax, E_mail, foedt, Funktion, Fraktion, Arbejdsfunktion, Opgave_Navn, Båndkode, time_grp, Gl_bndkode, Baandnummer,  M_funk_1, M_funk_2, M_funk_3, M_funk_4, M_funk_6, M_funk_7, M_funk_8, M_funk_9, M_funk_10, M_funk_11, M_funk_12, M_funk_13, M_funk_14, M_funk_15, M_funk_17, M_funk_18, M_funk_19, M_funk_20, Aktiv_sidste_aar, aktiv_indev_år, Tshirt, Madkupons, Drikkupons, Tekst_1, Chktid, chkbe, Bemerk) values('" & Request.Form("Navn2") & "','" & Request.Form("m_navn") & "','" & Request.Form("Navn1") & "','" & Request.Form("Adresse1") & "','" & Request.Form("Post_Nr") & "','" & Request.Form("Distrikt") & "','" & Request.Form("Adresse2") & "','" & Request.Form("Land_Navn") & "','" & Request.Form("Mobil") & "','" & Request.Form("Telefon") & "','" & Request.Form("Telefon_arb") & "','" & Request.Form("Telefax") & "','" & Request.Form("E_mail") & "','" & Request.Form("foedt") & "','" & Request.Form("funktion") & "','" & Request.Form("Fraktion") & "','" & Request.Form("Arbejdsfunktion") & "','" & Request.Form("Opgave_Navn") & "','" & Request.Form("Båndkode") & "','" & Request.Form("time_grp") & "','" & Request.Form("Gl_bndkode") & "','" & Request.Form("Baandnummer") & "','" & Request.Form("M_funk_1") & "','" & Request.Form("M_funk_2") & "','" & Request.Form("M_funk_3") & "','" & Request.Form("M_funk_4") & "','" & Request.Form("M_funk_6") & "','" & Request.Form("M_funk_7") & "','" & Request.Form("M_funk_8") & "','" & Request.Form("M_funk_9") & "','" & Request.Form("M_funk_10") & "','" & Request.Form("M_funk_11") & "','" & Request.Form("M_funk_12") & "','" & Request.Form("M_funk_13") & "','" & Request.Form("M_funk_14") & "','" & Request.Form("M_funk_15") & "','" & Request.Form("M_funk_17") & "','" & Request.Form("M_funk_18") & "','" & Request.Form("M_funk_19") & "','" & Request.Form("M_funk_20") & "','" & Request.Form("Aktiv_sidste_aar") & "','" & Request.Form("aktiv_indev_år") & "','" & Request.Form("Tshirt") & "','" & Request.Form("Madkupons") & "','" & Request.Form("Drikkupons") & "','" & Request.Form("Tekst_1") & "','" & Request.Form("chktid") & "','" & Request.Form("chkbe") & "','" & Request.Form("bemerk") & "')"
conn.execute(strSQL)


Alert = "Medarbejder er nu oprettet "
end if


%>

<center>
<form action="opretmed.asp" method="post"><a href="default.asp"><%=Alert%></a>

<TABLE width="880"  class="Formindhold">
<TR>
    <TD valign="top"> <TABLE align="top">
    <TR>
            <TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = oConn.Execute("select ID, navn2 from medarb")
        do while not oRs.eof %>
            <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>

okay så er jeg med.
ret oConn til conn i den her linie

set oRs = oConn.Execute("select ID, navn2 from medarb")

vil stadig ikke :
        <TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = Conn.Execute("select ID, navn2 from medarb")
        do while not oRs.eof %>
            <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>

stadig ingen fejlmeddelelse?

prøv og smid
if request.form("send") <> "" then
ned under din database connection

sådan her



' 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("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

if request.form("send") <> "" then

<%

if request.form("send") <> "" then
' 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("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

if request.form("send") <> "" then

strSQL = "Insert into medarb (Navn2, m_navn, navn1, Adresse1, Post_Nr, Distrikt, Adresse2, Land_Navn, Mobil, Telefon, Telefon_arb, Telefax, E_mail, foedt, Funktion, Fraktion, Arbejdsfunktion, Opgave_Navn, Båndkode, time_grp, Gl_bndkode, Baandnummer,  M_funk_1, M_funk_2, M_funk_3, M_funk_4, M_funk_6, M_funk_7, M_funk_8, M_funk_9, M_funk_10, M_funk_11, M_funk_12, M_funk_13, M_funk_14, M_funk_15, M_funk_17, M_funk_18, M_funk_19, M_funk_20, Aktiv_sidste_aar, aktiv_indev_år, Tshirt, Madkupons, Drikkupons, Tekst_1, Chktid, chkbe, Bemerk) values('" & Request.Form("Navn2") & "','" & Request.Form("m_navn") & "','" & Request.Form("Navn1") & "','" & Request.Form("Adresse1") & "','" & Request.Form("Post_Nr") & "','" & Request.Form("Distrikt") & "','" & Request.Form("Adresse2") & "','" & Request.Form("Land_Navn") & "','" & Request.Form("Mobil") & "','" & Request.Form("Telefon") & "','" & Request.Form("Telefon_arb") & "','" & Request.Form("Telefax") & "','" & Request.Form("E_mail") & "','" & Request.Form("foedt") & "','" & Request.Form("funktion") & "','" & Request.Form("Fraktion") & "','" & Request.Form("Arbejdsfunktion") & "','" & Request.Form("Opgave_Navn") & "','" & Request.Form("Båndkode") & "','" & Request.Form("time_grp") & "','" & Request.Form("Gl_bndkode") & "','" & Request.Form("Baandnummer") & "','" & Request.Form("M_funk_1") & "','" & Request.Form("M_funk_2") & "','" & Request.Form("M_funk_3") & "','" & Request.Form("M_funk_4") & "','" & Request.Form("M_funk_6") & "','" & Request.Form("M_funk_7") & "','" & Request.Form("M_funk_8") & "','" & Request.Form("M_funk_9") & "','" & Request.Form("M_funk_10") & "','" & Request.Form("M_funk_11") & "','" & Request.Form("M_funk_12") & "','" & Request.Form("M_funk_13") & "','" & Request.Form("M_funk_14") & "','" & Request.Form("M_funk_15") & "','" & Request.Form("M_funk_17") & "','" & Request.Form("M_funk_18") & "','" & Request.Form("M_funk_19") & "','" & Request.Form("M_funk_20") & "','" & Request.Form("Aktiv_sidste_aar") & "','" & Request.Form("aktiv_indev_år") & "','" & Request.Form("Tshirt") & "','" & Request.Form("Madkupons") & "','" & Request.Form("Drikkupons") & "','" & Request.Form("Tekst_1") & "','" & Request.Form("chktid") & "','" & Request.Form("chkbe") & "','" & Request.Form("bemerk") & "')"
conn.execute(strSQL)



Alert = "Medarbejder er nu oprettet "
end if


%>

<center>
<form action="opretmed.asp" method="post"><a href="default.asp"><%=Alert%></a>

<TABLE width="880"  class="Formindhold">
<TR>
    <TD valign="top"> <TABLE align="top">
    <TR>
            <TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = Conn.Execute("select ID, navn2 from medarb")
        do while not oRs.eof %>
            <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/ros/opretmed.asp, line 138

linie 138 =  loop %>

Den her linie skal være en lang linie, ingen enter

<option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>

det er den også samme fejl :-(

paste lige din kode igen

<%

if request.form("send") <> "" then
' 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("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

if request.form("send") <> "" then

strSQL = "Insert into medarb (Navn2, m_navn, navn1, Adresse1, Post_Nr, Distrikt, Adresse2, Land_Navn, Mobil, Telefon, Telefon_arb, Telefax, E_mail, foedt, Funktion, Fraktion, Arbejdsfunktion, Opgave_Navn, Båndkode, time_grp, Gl_bndkode, Baandnummer,  M_funk_1, M_funk_2, M_funk_3, M_funk_4, M_funk_6, M_funk_7, M_funk_8, M_funk_9, M_funk_10, M_funk_11, M_funk_12, M_funk_13, M_funk_14, M_funk_15, M_funk_17, M_funk_18, M_funk_19, M_funk_20, Aktiv_sidste_aar, aktiv_indev_år, Tshirt, Madkupons, Drikkupons, Tekst_1, Chktid, chkbe, Bemerk) values('" & Request.Form("Navn2") & "','" & Request.Form("m_navn") & "','" & Request.Form("Navn1") & "','" & Request.Form("Adresse1") & "','" & Request.Form("Post_Nr") & "','" & Request.Form("Distrikt") & "','" & Request.Form("Adresse2") & "','" & Request.Form("Land_Navn") & "','" & Request.Form("Mobil") & "','" & Request.Form("Telefon") & "','" & Request.Form("Telefon_arb") & "','" & Request.Form("Telefax") & "','" & Request.Form("E_mail") & "','" & Request.Form("foedt") & "','" & Request.Form("funktion") & "','" & Request.Form("Fraktion") & "','" & Request.Form("Arbejdsfunktion") & "','" & Request.Form("Opgave_Navn") & "','" & Request.Form("Båndkode") & "','" & Request.Form("time_grp") & "','" & Request.Form("Gl_bndkode") & "','" & Request.Form("Baandnummer") & "','" & Request.Form("M_funk_1") & "','" & Request.Form("M_funk_2") & "','" & Request.Form("M_funk_3") & "','" & Request.Form("M_funk_4") & "','" & Request.Form("M_funk_6") & "','" & Request.Form("M_funk_7") & "','" & Request.Form("M_funk_8") & "','" & Request.Form("M_funk_9") & "','" & Request.Form("M_funk_10") & "','" & Request.Form("M_funk_11") & "','" & Request.Form("M_funk_12") & "','" & Request.Form("M_funk_13") & "','" & Request.Form("M_funk_14") & "','" & Request.Form("M_funk_15") & "','" & Request.Form("M_funk_17") & "','" & Request.Form("M_funk_18") & "','" & Request.Form("M_funk_19") & "','" & Request.Form("M_funk_20") & "','" & Request.Form("Aktiv_sidste_aar") & "','" & Request.Form("aktiv_indev_år") & "','" & Request.Form("Tshirt") & "','" & Request.Form("Madkupons") & "','" & Request.Form("Drikkupons") & "','" & Request.Form("Tekst_1") & "','" & Request.Form("chktid") & "','" & Request.Form("chkbe") & "','" & Request.Form("bemerk") & "')"
conn.execute(strSQL)



Alert = "Medarbejder er nu oprettet "
end if


%>

<center>
<form action="opretmed.asp" method="post"><a href="default.asp"><%=Alert%></a>

<TABLE width="880"  class="Formindhold">
<TR>
    <TD valign="top"> <TABLE align="top">
    <TR>
            <TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = Conn.Execute("select ID, navn2 from medarb")
        do while not oRs.eof %>
    <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>
></td></TD>    </TR>

<%

'if request.form("send") <> "" then
' 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("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

if request.form("send") <> "" then

strSQL = "Insert into medarb (Navn2, m_navn, navn1, Adresse1, Post_Nr, Distrikt, Adresse2, Land_Navn, Mobil, Telefon, Telefon_arb, Telefax, E_mail, foedt, Funktion, Fraktion, Arbejdsfunktion, Opgave_Navn, Båndkode, time_grp, Gl_bndkode, Baandnummer,  M_funk_1, M_funk_2, M_funk_3, M_funk_4, M_funk_6, M_funk_7, M_funk_8, M_funk_9, M_funk_10, M_funk_11, M_funk_12, M_funk_13, M_funk_14, M_funk_15, M_funk_17, M_funk_18, M_funk_19, M_funk_20, Aktiv_sidste_aar, aktiv_indev_år, Tshirt, Madkupons, Drikkupons, Tekst_1, Chktid, chkbe, Bemerk) values('" & Request.Form("Navn2") & "','" & Request.Form("m_navn") & "','" & Request.Form("Navn1") & "','" & Request.Form("Adresse1") & "','" & Request.Form("Post_Nr") & "','" & Request.Form("Distrikt") & "','" & Request.Form("Adresse2") & "','" & Request.Form("Land_Navn") & "','" & Request.Form("Mobil") & "','" & Request.Form("Telefon") & "','" & Request.Form("Telefon_arb") & "','" & Request.Form("Telefax") & "','" & Request.Form("E_mail") & "','" & Request.Form("foedt") & "','" & Request.Form("funktion") & "','" & Request.Form("Fraktion") & "','" & Request.Form("Arbejdsfunktion") & "','" & Request.Form("Opgave_Navn") & "','" & Request.Form("Båndkode") & "','" & Request.Form("time_grp") & "','" & Request.Form("Gl_bndkode") & "','" & Request.Form("Baandnummer") & "','" & Request.Form("M_funk_1") & "','" & Request.Form("M_funk_2") & "','" & Request.Form("M_funk_3") & "','" & Request.Form("M_funk_4") & "','" & Request.Form("M_funk_6") & "','" & Request.Form("M_funk_7") & "','" & Request.Form("M_funk_8") & "','" & Request.Form("M_funk_9") & "','" & Request.Form("M_funk_10") & "','" & Request.Form("M_funk_11") & "','" & Request.Form("M_funk_12") & "','" & Request.Form("M_funk_13") & "','" & Request.Form("M_funk_14") & "','" & Request.Form("M_funk_15") & "','" & Request.Form("M_funk_17") & "','" & Request.Form("M_funk_18") & "','" & Request.Form("M_funk_19") & "','" & Request.Form("M_funk_20") & "','" & Request.Form("Aktiv_sidste_aar") & "','" & Request.Form("aktiv_indev_år") & "','" & Request.Form("Tshirt") & "','" & Request.Form("Madkupons") & "','" & Request.Form("Drikkupons") & "','" & Request.Form("Tekst_1") & "','" & Request.Form("chktid") & "','" & Request.Form("chkbe") & "','" & Request.Form("bemerk") & "')"
conn.execute(strSQL)



Alert = "Medarbejder er nu oprettet "
end if


%>

<center>
<form action="opretmed.asp" method="post"><a href="default.asp"><%=Alert%></a>

<TABLE width="880"  class="Formindhold">
<TR>
    <TD valign="top"> <TABLE align="top">
    <TR>
            <TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = Conn.Execute("select ID, navn2 from medarb")
        do while not oRs.eof %>
    <option value="<%= oRs("id") %>" <% If request.form("navn2")&"" = oRs("id")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>
></td></TD>    </TR>

nu virker det næsten... nu kan jeg se alle navne og så vælger jeg feks. Peter og opretter han men istedet for at sætte peter ind skriver den et 1 tal ?

Sådan der

<TABLE width="880"  class="Formindhold">
<TR>
    <TD valign="top"> <TABLE align="top">
    <TR>
            <TD >Navn<td><select name="navn2">
            <option value=""></option>
<%        set oRs = Conn.Execute("select navn2 from medarb")
        do while not oRs.eof %>
    <option value="<%= oRs("navn2") %>" <% If request.form("navn2")&"" = oRs("navn2")&"" then response.write "selected" %>><%= oRs("navn2") %></option>
<%            oRs.MoveNext
        loop %>
        </select>
></td></TD>    </TR>

sådan mester du er manden......

sidste ting..... kan man få den til ikke at vise alt der står i tabellen... altså Peter står der jo ret mange gange , men jeg vil gerne have den kun viser Peter engang..

jo, sådan her

set oRs = Conn.Execute("select distinct navn2 from medarb")

det gik galt..:-)

den skriver en fejl i dropdown boxen som jeg ikke kan kopiere...

prøv og højreklik på siden og vælge vis kilde. Der kan du finde fejlmeddelelsen

Item cannot be found in the collection corresponding to the requested name or ordinal.

Det SKAL se sådan ud.
set oRs = Conn.Execute("select Distinct navn2 from medarb")

Er det i den linie du får fejlen?

jamen for fanden du er jo for sej.....gid det var mig.. thanx...