udskrive multiple list?

mener du med et loop?


<select name="opgaver" size="5" multiple id="opgaver">
<% do while not opgaver.EOF %>
                  <option value="<%=(opgaver.Fields.Item("cid").Value)%>" <%If (Not isNull((opgaver.Fields.Item("cid").Value))) Then If (CStr(opgaver.Fields.Item("cid").Value) = CStr((opgaver.Fields.Item("cid").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(opgaver.Fields.Item("child").Value)%></option>
<%
  opgaver.MoveNext
loop  %>
      </select>

dette virker:

<select name="opgaver" size="5" multiple id="opgaver">
                                  <%
While ((Repeat1__numRows <> 0) AND (NOT opgaver.EOF))
%><option value="<%=(opgaver.Fields.Item("cid").Value)%>" <%If (Not isNull((opgaver.Fields.Item("cid").Value))) Then If (CStr(opgaver.Fields.Item("cid").Value) = CStr((opgaver.Fields.Item("cid").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(opgaver.Fields.Item("child").Value)%></option>                <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  opgaver.MoveNext()
Wend
%>

men markere alle! hvordan bliver kun dem hvor valgt = true markeret?

det må være noget med:


<select name="opgaver" size="5" multiple id="opgaver">
                                  <%
While ((Repeat1__numRows <> 0) AND (NOT opgaver.EOF))
%><option value="<%=(opgaver.Fields.Item("cid").Value)%>"
<% If opgaver.Fields.Item("valgt").Value = true Then Response.Write " SELECTED " %> ><%=(opgaver.Fields.Item("child").Value)%></option>
<%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  opgaver.MoveNext()
Wend
%>

Dette kunne gøre det, men ellers tak. 8o)

<select name="opgaver" size="5" multiple id="opgaver">
                    <%
While (NOT opgaver.EOF)
%>
                    <option value="<%=(opgaver.Fields.Item("cid").Value)%>" <%If opgaver.Fields.Item("valgt").Value = True Then Response.Write " SELECTED " : Response.Write("")%> ><%=(opgaver.Fields.Item("child").Value)%></option>
                    <%
  opgaver.MoveNext()
Wend
If (opgaver.CursorType > 0) Then
  opgaver.MoveFirst
Else
  opgaver.Requery
End If
%>
                  </select>

jmc> Så være lige venlig at lukke spm'et ;o)

.Men alt i alt syntes jeg at eagleeye skulle ha' pointne, da jeg syntes han ledte dig på sporet...

//>Rune

eagleeye skal have points, yes vil du svare eagleeye så jeg kan give poinst?

Ok ;)  så er her et svar

fino :o)