Select Code to Download

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

while ( @row = $sth3->fetchrow )       
{       
...
        }
        
}