problem med loop inde i loop

jeg har det her kode:

<%

Do While Not RsServices.EOF

    serviceID = RsServices("serviceid")

    for i=0 to Ubound(licenseArr)

        If CStr(licenseArr(i)) = CStr(serviceID) Then

            selected = " checked"

        Else

            selected = ""

        End If

    i=i+1

    next

    Response.Write("<input name='" & serviceID & "' type='checkbox'" & selected & ">&nbsp;" & RsServices("displayname") & " - " & RsServices("servicetype") & "")

%>

    <br><br>

<%
RsServices.MoveNext
Loop
%>

og det virker også fint med den første checkbox hvor værdien passer
men resten hvor værdien også passer der sker sætter den ikke flueben
nogen der har nogen ide om hvad jeg har gjort forkert?