Dobbelt loop......problem

Jeg returnere værdierne fra en multiple select som er gemt i en database f.eks. 1, 4, 6

Min multiple select bliver genereret fra databasen

Nu vil jeg så redigere disse data, og så vise min multiselect hvor de der er valgt og gemt i min streng, nu også er markeret når jeg kalder min multiple select.

Så jeg skal loope igennem tabellen der genererer multiple select boxen.

splitte min streng til de enkelte værdier der var valgt og loope igennem her.

der hvor de så er ens bliver der skrevet selected i mit <option> tag.

Det fungerer også fint nok, og de valgte bliver markeret, bortset fra at alle værdierne i min multiple select box bliver vist to gange/dobbelt - og det er jo fordi jeg looper 2 gange.....men jeg kan simpelthen ikke få det til at virke uden....hvad gør jeg?

<%
Set popConn = Server.CreateObject(\"ADODB.Connection\")
popConn.Open strDSN

SQL=\"select InfoAnsvarID,InfoAnsvarNavn from TInfoAnsvar ORDER BY InfoAnsvarNavn\"
Set rstemp = popConn.Execute(SQL)
do  until rstemp.eof

dim DInfoAnsvar
DInfoAnsvar=rs(\"InfoAnsvar\")
page = split(DInfoAnsvar,\",\")
For I = 0 To ((UBound(page)))
if cint(page(i))=cint(rstemp(0)) then
%>
<option value=\"<%=rstemp(0)%>\" selected><%=rstemp(1)%>
<%else%>
<option value=\"<%=rstemp(0)%>\"><%=rstemp(1)%>
<%end if%>
               
<%
next
rstemp.movenext
 
loop

rstemp.close
set rstemp=nothing
popConn.close
set popConn=nothing
%>

/anne