while ( my ($intMemberID,$txtUsername,$txtPassword,$txtName,$txtEmail,$txtBio) = $rsMembers->fetchrow_array) { my $sth = $dbh->prepare( "SELECT intSiteID,txtURL,txtTitle,txtDescription FROM Sites WHERE intMemberID = ? ORDER BY txtTitle" ); $sth->execute($intMemberID); while ( my ($intSiteID,$txtURL,$txtTitle,$txtDescription) = $sth ->fetchrow_array) { $websites.= load_template("member_site_index.tmpl", {sid => $intSiteID, url => $txtURL, title => $txtTitle, description => $txtDescription}); } $sth ->finish; }