Do while not rst.EOF
      rst1.MoveFirst
         Do while not rst1.EOF
              #blah blah
         Loop
      rst.MoveNext
Loop

##</code><code>##

while ( @row = $sth3->fetchrow )       
{       
        #GO TO FIRST RECORD OF  $sth2                               
        while ( @row = $sth2->fetchrow )       
        {
              #blah blah
        }
        
}