Dynamisk Select ... selected ??

while not rs.eof
  response.write \"<option value=\'\" & rs(\"kat_id\") & \"\'\"
  if( rs(\"kat_id\") == request.form(\"kat_id\") ) then
    response.write \" selected\"
  end if
  response.write \">\" & rs(\"kat\") & \"</option>\"
  rs.movenext
wend

/nute

<tr>
  <td>KATEGORI</td>
  <td><select name=\"kat_id\">
  <%
  sql = \"SELECT DISTINCT * FROM v_kat ORDER BY kat_id\"
  rs.open sql, conn
    while not rs.eof
      response.write \"<option value=\'\" & rs(\"kat_id\") & \"\'\"
      If Trim(strTidligereValgtKategori) = Trim(rs(\"Kat_id\")) Then
        Response.Write \" SELECTED\"
      End If
      Response.Write \">\" & rs(\"kat\") & \"</option>\"
      rs.movenext
    wend
    response.write \"</select>\"
  rs.close
  set rs = nothing
  %>
  </td>
</tr>

Du burde kunne ændre til noget lignende:

----------- Koden -----------
    <tr>
        <td>KATEGORI</td>
        <td><select name=\"kat_id\">
            <%
            TidligereValgteKategori = request(\"kat_id\")
            sql = \"SELECT DISTINCT * FROM v_kat ORDER BY kat_id\"
            rs.open sql, conn
                while not rs.eof
                  response.write \"<option value=\'\" & rs(\"kat_id\") & \"\'\"

                  if TidligereValgteKategori = rs(\"kat_id\") then
                  \' Mark this option as selected
                  response.write \" selected \"
end if

                  response.write \">\" & rs(\"kat\") & \"</option>\"
                  rs.movenext
                wend
                response.write \"</select>\"
            rs.close
            set rs = nothing
            %>
        </td>
    </tr>

----------- slut ------------------- 

Dette er forudsat, at siden modtager den tidligere valgte kategori i en værdi, der hedder kat_id

Hej igen

Så køre det. Der var ikke en direkt vinder i blandt jer, men I var alle tre så tæt på. Jeg blev inspireret til at få følgende ud af jeres scripts. Jeg tildeler derfor 50 point til jer hver. Mange tak for den hurtige hjælp.

Stig Barnney

-------------------------------------------------
<%
sql = \"SELECT * FROM v_690 where id = \" & request(\"id\")
rs.open sql, conn

Dim TVK
TVK = rs(\"kat_id\")
%>
<form method=\"POST\" action=\"gem_ret.asp?id=<%=rs(\"id\")%>\">
  <table border=\"1\" cellspacing=\"0\" cellpadding=\"0\">
    <tr><td>BIOFER</td><td><input type=\"text\" name=\"biofer\" value=\"<%=rs(\"biofer\")%>\"></td></tr>
    <tr>
        <td>KATEGORI</td>
        <td><select name=\"kat_id\">
            <%
          strSQL = \"SELECT DISTINCT * FROM v_kat ORDER BY kat_id\"
          Set SubRS = Conn.Execute(strSQL)            
                while not SubRS.eof
                  response.write \"<option value=\'\" & SubRS(\"kat_id\") & \"\'\"
                    \' Mark this option as selected
                      if TVK = SubRS(\"kat_id\") then
                        response.write \" selected \"
                      end if
                  response.write \">\" & SubRS(\"kat\") & \"</option>\"
                  SubRS.movenext
                wend
                response.write \"</select>\"
            SubRS.close
            set SubRS = nothing
            %>
        </td>
    </tr>
</table><br>
  <input type=\"submit\" value=\"Send\" name=\"B1\">
</form>
<%
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
-------------------------------------------------

Hva\' faen  lange du fik da ikke noget, jeg trode man kunne bestemme hvor mange point man vil bruge. Hvorledes gør vi nemmest, at du også får dine fortjente 50 point ??

Stig Barnney

Heh, det går nok :)