<%
strsql="Select campo1,campo2 from tabella1"
rs1.open(strsql, con, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
if rs1.eof=false and rs1.bof=false then
   rs1.movefirst
   do while not rs1.eof
         strsql="Select * from tabella2 where campo1='"rs1.fields("Campo1").value"'
         rs2.Open(strsql,con, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockOptimistic)
         if rs2.eof=false and rs2.bof=false then
            rs2.movefirst
            do while not rs2.eof%>
                  <td><%response.write(rs2.fields("Campo1").value)%></td>
                  .........
                  .........
                  rs2.movenext
             <%loop
           end if 
           rs2.close
           rs1.movenext
   loop
end if
rs1.close