Problem med "selected" i en dynamisk select menu

jamen du loader jo også siden ind igen :)

du må checke om det valgte id er lig det idatabasen

ala

<%
while Not rsMenusel.eof
response.write "<option value=""" & (rsMenuSel.Fields.Item("MainMenuId").Value) & """ "
If Cdbl(Request.MeainMunuID) = Cdbl(rsMenuSel.Fields.Item("MainMenuId").Value)) Then
Response.Write " selected=""selected"" "
End If
Response.Write ">" & (rsMenuSel.Fields.Item("MenuTitle").Value)
Response.Write "</option>"

rsmenusel.movenext
wend

osv......

;)

hovse....

If Cdbl(Request.MeainMunuID) = Cdbl(rsMenuSel.Fields.Item("MainMenuId").Value)) Then
skal være

If Cdbl(Request("MeainMunuID")) = Cdbl(rsMenuSel.Fields.Item("MainMenuId").Value)) Then

;)

Jep, jeg koger rimeligt meget :)

Havde jeg ikke lige tænkt på.

Hmm..jeg var måske lidt for hurtig til at lukke.
Jeg kan ikke få det til at makke ret.

Jeg har nu:

<select name="selMainMenu" id="selMainMenu" onChange="document.location.href='/cms/editor.asp?MainMenuId='+this.options[this.selectedIndex].value;">
<option value="" <%If (Not isNull((rsMenuSel.Fields.Item("MainMenuId").Value))) Then If ("" = CStr((rsMenuSel.Fields.Item("MainMenuId").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>Vælg menupunkt</option>
<%
While (NOT rsMenuSel.EOF)
%>
<option value="<%=(rsMenuSel.Fields.Item("MainMenuId").Value)%>" <%If (Not isNull((rsMenuSel.Fields.Item("MainMenuId").Value))) Then If (CStr(rsMenuSel.Fields.Item("MainMenuId").Value) = CStr((rsMenuSel.Fields.Item("MainMenuId").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rsMenuSel.Fields.Item("MenuTitle").Value)%></option>
<%
  rsMenuSel.MoveNext()
Wend
If (rsMenuSel.CursorType > 0) Then
  rsMenuSel.MoveFirst
Else
  rsMenuSel.Requery
End If
%>
</select>

Hvorfor virker det ikke - nu er sidste record konsekvent valgt.

<% Response.Write(Request.QueryString("MainMenuId")) %>
<select name="selMainMenu" id="selMainMenu" onChange="document.location.href='editor.asp?MainMenuId='+this.options[this.selectedIndex].value;">
<option value="0">Vælg menupunkt</option>
<%
strSelected = ""
    While (NOT rsMenuSel.EOF)
    strRecord = rsMenuSel.Fields.Item("MainMenuId").Value
        If CInt(Request.QueryString("MainMenuId")) = CInt(strRecord) Then
            strSelected = " SELECTED"
        Else
            strSelected = ""
        End If 

        Response.Write("<option" & strSelected & " value='" & strRecord & "'>" &_
                          rsMenuSel.Fields.Item("MenuTitle").Value & vbCrLf)
    rsMenuSel.MoveNext()
    Wend
   
    If (rsMenuSel.CursorType > 0) Then
        rsMenuSel.MoveFirst
    Else
        rsMenuSel.Requery
    End If
%>
</select>

//>Rune