$SqlStatement=$db->prepare("SELECT TransDate, TransPmtAmt FROM Cust_act_da WHERE CustomerNumber = ? AND TransType = 'P'") or die "prepare fa
+iled: " . $db->errstr()."\n";

##</code><code>##

    $SqlStatement->execute($CustomerNumber);

##</code><code>##

    while ( @stuff = $SqlStatement->fetchrow() ) {

##</code><code>##

     # do things with @stuff
        $FormatTransDate = substr($TransDate, 0, 10);
             $FormatTransPmtAmt = sprintf("\$%.2f", $TransPmtAmt);

             print $FormatTransDate;
             print "&nbsp;&nbsp;&nbsp;&nbsp;";
             print $FormatTransPmtAmt;
    }