overføre værdi fra rullemenu til textfelt

Ved at angive en variabel i hvert option felt:
<select>
<option value ="<%=strSQL("feltnavn")%>">&nbsp;<%=strSQL("feltnavn")%></option>
</select>

Overføre værdierne:

<select name="spiller1select" onchange="if(this.selectedIndex>0)this.form.spiller1.value=this.value">
<option>Vælg spiller</option>
<option value="Hans Hansen">Hans Hansen</option>
<option value="Anders Andersen">Anders Andersen</option>
<option value="Hans Andersen">Hans Andersen</option>
</select>

får en fejl oversjanten: http://www.hillerodgolf.dk/dream/OpretHold_01.asp

Det er muligtvis fordi du ikke har sat forbindelsen til databasen :

    Set RS = Server.CreateObject("ADODB.Connection")
    RS.Open  "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DINDATABASE.mdb")

Efter forbindelsen, skal du udføre et SQL-kald:

        SQL="SELECT * FROM UserLevel ORDER BY ID"
        SET strSQL = RS.Execute(SQL)

herefter kører du en løkke, der henter dine data fra databasen:

        do while not strSQL.EOF
            %>
                <option value ="<%=strSQL("feltnavn")%>">&nbsp;<%=strSQL("feltnavn")%></option>
            <%   
        strSQL.MoveNext
        loop

tilsidst lukker du og rydder op:

    RS.Close
    set RS = nothing

lige en rettelse....

SQL="SELECT * FROM dintabel ORDER BY ID"

Fik ikke lige ændret tabelnavnet i farten *G*...sorry, det skulle ikke være nødvendigt at sortere efter id.

min kode ser således ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL = "SELECT * FROM spillere order by spillernavn ASC"
Conn.Execute (SQL)
Set rs = conn.Execute(SQL)
%><html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Opret Hold</title>
<LINK href="ss_wci.css" type=text/css rel=stylesheet>
<base target="_self">

</head>

<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">

<table cellSpacing="0" cellPadding="10" width="450" border="0">
  <tr>
    <td vAlign="top">
      <table cellSpacing="0" cellPadding="0" width="100%" border="0">
        <tbody>
          <tr>
            <td vAlign="top" width="60%">
              <table cellSpacing="0" cellPadding="3" border="0">
                <tbody>
                  <tr>
                    <td vAlign="top" width="236">
                      <p class="copy"><img border="0" src="billeder/opret_hold.gif"><br>
                    </td>
                  </tr>
                  <tr>
                    <td vAlign="top" width="236">
                      <table border="0" width="309" cellspacing="0" cellpadding="3">
                        <tr>
                          <td width="62" bgcolor="#294A7B" class="rammetopBold">
                            <p align="center">VÆLG</td>
                          <td width="231" bgcolor="#294A7B" class="rammetopBold">SPILLERNAVN</td>
                        </tr>
                      </table>
                    </td>
                  </tr>
                  <tr>
                    <td vAlign="top" width="236">
<form method="POST" action="GemProfil.asp?mode=ny" name="opret">
  <table cellspacing="0" cellpadding="3" width="70%">
                  <tr>
                  <td class="copy" colspan="2"></td>
                  <td class="copy"><select size="1" name="D1">
                      <option value="<%=strSQL("spillernavn")%>"><%=strSQL("spillernavn")%></option>
                    </select></td>
                  </tr>

<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
  %>

    <tr>
      <td class="copy" colspan="3">
        <hr color="#AA0000" size="1">
      </td>
    </tr>   

    <tr>
      <td class="copy" width="62" bgcolor="#EBEBEB">Holdnavn</td>
      <td width="231" align="right" bgcolor="#EBEBEB" colspan="2"><input type="text" name="holdnavn" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr>   
    <tr>
      <td class="copy" valign="top" width="62">Dit Navn</td>
      <td width="231" align="right" colspan="2"><input type="text" name="deltager" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr> 
    <tr>
      <td class="copy" valign="top" width="62" bgcolor="#EBEBEB">Din Email</td>
      <td width="231" align="right" bgcolor="#EBEBEB" colspan="2"><input type="text" name="mail" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td>
    </tr>
    <tr>
      <td class="copy" width="62">&nbsp;</td>
      <td width="231" colspan="2">
      <input type="submit" value="Send" name="B1">
      </td>
    </tr>
  </table>
</form>
                    </td>
                  </tr>
                </tbody>
              </table>
            </td>
            <td valign="top"><img border="0" src="../images/spacer.gif"></td>
            <td valign="top"><img border="0" src="billeder/dream_small.gif"></td>
          </tr>
        </tbody>
      </table>
    </td>
  </tr>
   
<font>
  </font>
</table>
</body>

<td class="copy"><select size="1" name="D1" onchange="if(this.selectedIndex>0)this.form.spiller1.value=this.value">
                      <option>-- Vælg spiller --</option>
<%
do while not eof
%>
                      <option value="<%=rs("spillernavn")%>"><%=rs("spillernavn")%></option>
<%
rs.movenext
loop
%>
                    </select></td>

se i bunden af rullemenuen: http://www.hillerodgolf.dk/dream/OpretHold_01.asp

on error resume next :-)

hvad mener du mini-me

do while not (eof or bof)

-- kender ikke den præcise syntaks, men ideen !-)

do while not RS.EOF sådan her :o)

-- så spiller den del helt !-)

joda, så smid et svar

-- jeg kan jo se, at du fik det meste af løsningen fra oversjanten @ 10/04-2004 23:39:44 ...

Det var så bare sammenkoblingen af det hele, som manglede til sidst !-)

-- ligner kraftigt en deler ...

-- velbekomme '-)

jeg forventer også at oversjanten smider et svar når han dukker forbi

rart at se du fik det til at virke ;-)

nu mangler jeg bare at få de andre til at virke

-- tak for points ;~}