En DO og LOOP indeni en anden DO og LOOP

Jeg har et script som laver et antal loops efter hvor mange felter der er i en given tabel.

Men inde i dette loop skal jeg lave en loop på en anden tabel.

i mit test tilfælde laver det første loop 12 loops.
Det andet loop laver 3 loops inden i det med 12 loops.

Det er ikke nemt at beskrive.
----kode------------
strSQL = "Select * from genre"
Set rs = Conn.Execute(strSQL)

Do

filmSQL = "Select * From film WHERE Genre='" & rs("genreid") & "'"
Set filmrs = Conn.Execute(filmSQL)

If NOT filmRS.EOF Then
-- her vil jeg gerne have en DO
havefilm = 0
if filmrs("indehaver") <> "" then
  arrindehaver = Split(filmrs("indehaver"),",")
    For t = LBound(arrindehaver) to UBound(arrindehaver)
      if arrindehaver(t) = cstr(session("userid")) then
      havefilm = 1
      response.write "film fundet"
      'response.end
      end if
    Next
End if
--- her skal der så være en movenext og loopwhile not.eof
End if

rs.MoveNext
Loop While Not rs.EOF
----kode slut-----

Hvis jeg prøver at sætte den DO/LOOP funktion ind, så siger den at jeg ikke kan lave et LOOP uden at have en DO.

Mange Point for hurtigt svar (indenfor 30 min).
På forhånd TAK.