$SqlStr = "INSERT INTO tbl_jpgs (jpg_seq, suborder, filename) VALUES( $rcd,$i,'$j[0]')";

sub insert_jpg
{
  my $SqlStr = shift;
  if ($objDC->Sql("$SqlStr"))
  {
    die "Database insert error insert_jpg Subroutine: " . $objDC-> Error() . "\n";
  }
}