hvad er der galt..

<SELECT size=9 name=combo_1 multiple>

<%
Dim partnerArr(5)
partnerArr(0) = "Kim"
partnerArr(1) = "Bent"
partnerArr(2) = "Trine"
partnerArr(3) = "Irene"
partnerArr(4) = "Mads"

str = "Kim,Trine,Mads"
arr = SPLIT(str, ",")

for I = 0 to 4
    for T = 0 to UBOUND(arr)
      if arr(T) = partnerArr(I) then
        response.write "<OPTION value='" & partnerArr(I) & "' selected>" & partnerArr(I) & "</OPTION>"
    end if
next
next
%>
</SELECT>

nu viser den kun en: www.bullefar.dk/as.asp

Ja men ikke som den bør. hvad med alle de ander.. da den skal vise alle men kun en del af dem skal makeres..

<SELECT size=9 name=combo_1 multiple>

<%
Dim partnerArr(5)
partnerArr(0) = "Kim"
partnerArr(1) = "Bent"
partnerArr(2) = "Trine"
partnerArr(3) = "Irene"
partnerArr(4) = "Mads"

str = "Kim,Bent,Trine,Irene,Mads"
arr = SPLIT(str, ",")

for I = 0 to 4
    for T = 0 to UBOUND(arr)
      if arr(T) = partnerArr(I) then
        response.write "<OPTION value='" & partnerArr(I) & "' selected>" & partnerArr(I) & "</OPTION>"
    end if
next
next
%>
</SELECT>

Ja nu er de der alle samme men også alle der bliver maker. det er kun kim og bent og trine der skal. men ikke irene og mads..

Hvorfor det, kan det ikke være ligemeget

jeg bliver nød til at smutte nu..
Kommer igen ved en 16 tiden

da det skal bruges..

Du har en dobbelt løkke, som afprøver betingelser. den virker fint.
Men derefter en If-sætning, hvor du udskriver det samme, uanset om betingelserne er til stede.
Jeg har prøvet at ændre Else til Response.write("gnu")og det bevirkede, at den kun udskrev de tre rigtige navne, de andre gange blev der skrevet "gnu". Hvad vil du have til at stå der?

2KimGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuTrineGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuGnuSpiserGnuMads

<SELECT multiple size=5 name=combo_8>
                     
                      <%
Dim sogerArr(8)
sogerArr(0) = "En kæreste"
sogerArr(1) = "En kæreste af eget køn"
sogerArr(2) = "En penneven / veninde"
sogerArr(3) = "En ven / veninde"
sogerArr(4) = "Par med kvinden i centrum"
sogerArr(5) = "Par med manden i centrum"
sogerArr(6) = "Par som søger kvinde"
sogerArr(7) = "Par som søger mand"


arr = SPLIT(rs("soger"), ",")

for I = 0 to 8
    ok = 0                                       
    for T = 0 to UBOUND(arr)
        if arr(T) = sogerArr(I) then ok=1   
    next

    if ok = 1 then                             
        response.write "<OPTION value='" & sogerArr(I) & "' selected>" & sogerArr(I) & "</OPTION>"
    else
        response.write "<OPTION value='" & sogerArr(I) & "' >" & sogerArr(I) & "</OPTION>"
    end if
next
%>
                      </SELECT>

Jeg kom til at sende det afsted for tidligt ved at ramme send-knappen, beklager. Se bort fra 2-tallet, det var bare en test.
Men hver gang betingelsen ikke er til stede står der nu gnuspisergnu i boksen.
Her er ændringen/eksemplet:
if arr(T) = partnerArr(I) then
        response.write "<OPTION value='" & partnerArr(I) & "' selected>" & partnerArr(I) & "</OPTION>"
      else
          response.write "<OPTION value='" & "gnu" & "' >" & "GnuSpiserGnu" & "</OPTION>"
    end if

<SELECT size=9 name=combo_1 multiple>

<%
Dim partnerArr(5)
partnerArr(0) = "Kim"
partnerArr(1) = "Bent"
partnerArr(2) = "Trine"
partnerArr(3) = "Irene"
partnerArr(4) = "Mads"

str = "Kim,Trine,Mads"
arr = SPLIT(str, ",")

for I = 0 to 4
    response.write "<OPTION value='" & partnerArr(I) & "'"
    for T = 0 to UBOUND(arr)
      if arr(T) = partnerArr(I) then
        response.write " selected"
      end if
    next
    response.write ">" & partnerArr(I) & "</OPTION>"
next
%>
</SELECT>

Ups. jeg mente at jeg har lukke det, min fejl