function get_dyn_content($id)
{
    $SQL = new FC_SQL();
    $qs = "SELECT content FROM anima09_page p\n\t\t\t\tLEFT JOIN anima09_page_content c \n\t\t\t\t\tON p.anima09_page_id = c.anima09_page_id\n\t \t\t\tWHERE p.anima09_page_id = {$id}";
    $SQL->query($qs);
    $SQL->next_record();
    return $SQL->f(0);
}

$gBitSystem->verifyPermission('bit_p_bitcart_admin');
header("Expires: 0");
require_once '../../bit_setup_inc.php';
$gBitSystem->verifyPermission('bit_p_bitcart_admin');
require_once BITCART_PKG_PATH . 'functions.php';
// ========== start of variable loading ==========
// load passed variables and cookie variables
// int or double cast the numbers, no exceptions
$zoneid = (int) getparam('zoneid');
$langid = (int) getparam('langid');
$vendid = (int) getparam('vendid');
// ==========  end of variable loading  ==========
require './admin.php';
require './header.php';
// includes flags.php
$fcv = new FC_SQL();
?>

<h2 align=center>Modify A Vendor Profile</h2>
<hr>
<p>

<center>
<table border="0" cellpadding="3" cellspacing="1" bgcolor="#666666" width="650" class="text">
<tr><td align=center colspan=2 bgcolor="#FFFFFF">

<a href="index.php?zoneid=<?php 
echo $zoneid;
?>
&langid=<?php 
echo $langid;

function parse_sql_file($filename)
{
    // do not escape the file while reading it
    set_magic_quotes_runtime(0);
    $fcz = new FC_SQL();
    $fcz->connect();
    if (file_exists($filename)) {
        $fp = fopen($filename, "r");
        while ($buffer = fgets($fp, 4096)) {
            $dres = null;
            $res = null;
            if (strchr($buffer, '#') && eregi("\"#[0-9a-z]{6}\"", $buffer)) {
                // html color code, typically in inserted html
                $sql .= $buffer;
            } else {
                if (ereg("(^[ \t]*[#;/-]+)", $buffer, $res) || ereg("^\n", $buffer)) {
                    // comment line, skip it
                    // oracle has lines with a single leading /, skip them
                    continue;
                } elseif (ereg("([^#]+);[\t ]*[-]{0,2}.*", $buffer, $res)) {
                    // ; terminated sql line
                    // chop off double dash comments
                    $sql .= $res[1];
                    // echo "second: $sql<br>br>\n";
                    if (ereg(" end[ \t]*\$", $res[1])) {
                        // wierd hack for oracle triggers/procedures
                        $sql .= ';';
                    }
                    $fcz->query($sql);
                    unset($sql);
                } elseif (ereg("(^[^#;]+)[\t ]*[-]{0,2}[^;]*", $buffer, $res)) {
                    // unterminated sql line
                    // chop off double dash comments
                    $sql .= $res[1];
                    // echo "first: $sql<br><br>\n";
                } else {
                    // echo "third: $buffer<br><br>\n";
                }
            }
        }
        fclose($fp);
    }
}

            // get subcat level under $cat and spit them out in a table
            // how many cats across the page?
            $subcats1 = new FC_SQL();
            $subcats1->query('select count(*) as cnt from cat ' . "where catzid={$zid} and catlid={$lid} and catunder={$cat}");
            // are there any subcats to display? If not, don't do anything more.
            $subcats1->next_record();
            $subcattot = (int) $subcats1->f("cnt");
            $subcats1->free_result();
        } else {
            $subcattot = 0;
        }
        if ($subcattot) {
            // change this to increase or descrease the number of cats
            // displayed across the page
            $cats_across = "1";
            $subcats = new FC_SQL();
            $subcats->query("select catval,catdescr,catmast,catlogo from cat " . "where catact=1 and catzid={$zid} and catlid={$lid} and catunder={$cat} order by catdescr");
            $across = 0;
            ?>
<br /><br />
<table border="0" width="500" cellpadding="5">
<tr><td valign="top" colspan="<?php 
            echo $cats_across;
            ?>
">
<b><?php 
            echo fc_text("subcats");
            ?>
</b>
</td></tr>
<?php 

$show = (int) getparam('show');
$srch = (int) getparam('srch');
$act = getparam('act');
$oldzid = (int) getparam('oldzid');
// ==========  end of variable loading  ==========
require './admin.php';
require './header.php';
$droot = "BITCART_PKG_PATH";
if ($zoneid == 0) {
    ?>
	Please click the "Back" button on your browser
	and select a default zone.  Thank you.
    <?php 
    exit;
}
$fcm = new FC_SQL();
$fcm->Auto_commit = 0;
$fcm->query("select count(*) as cnt from master");
$fcm->next_record();
if ($fcm->f("cnt") > 0) {
    $fcm->free_result();
    $res = $fcm->query("update master set zoneid={$zoneid}");
} else {
    $res = $fcm->query("insert into master (zoneid) values ({$zoneid})");
}
if (!$res) {
    $fcm->rollback();
    echo "<b>Failure updating master: {$res}</b><br>\n";
} else {
    $fcm->commit();
    echo "Work Committed.<br>\n";

</td><td align=center bgcolor=#ffffff>

<b>Delete An Existing Language Profile</b>

</td></tr>
<tr><td align=center bgcolor=#ffffff>

<form name=langmod method="post" action="langmod.php">

To modify an existing language profile,<br>
select its name from the list and<br>
click <i>Modify Selected Profile</i>.
<br>

<?php 
$fcl = new FC_SQL();
$fcl->query("select count(*) as cnt from lang " . "where langzid={$zoneid} and langid={$langid}");
$fcl->next_record();
$len = $fcl->f("cnt");
$fcl->free_result();
?>

<select name=lngid size="<?php 
echo $len + 1;
?>
"
 onChange="document.langmod.action='langmod.php';submit();">
<option value="" selected>[no change]

<?php 
$fcl->query("select * from lang " . "where langzid={$zoneid} and langid={$langid} order by langid");

<a href="index.php?zoneid=<?php 
echo $zoneid;
?>
&langid=<?php 
echo $langid;
?>
">
Return To Central Maintenance Page</a><br>

</td></tr>
<tr><td valign=top align=center bgcolor=#ffffff>

<?php 
$fcl = new FC_SQL();
$fcm = new FC_SQL();
$fcz = new FC_SQL();
$fcm->query("select zoneid from master");
$fcm->next_record();
?>

<form method="post" action="masterupd.php">

<input type=hidden name=act value=update>
<input type=hidden name=srch value=<?php 
echo $srch;
?>
>
<input type=hidden name=show value="<?php 
echo $show;
?>
">

header("Expires: " . GMDate("D, d M Y H:i:s") . " GMT");
require './admin.php';
require 'header.php';
require_once BITCART_PKG_PATH . 'functions.php';
// ========== start of variable loading ==========
// load passed variables and cookie variables
// int or double cast the numbers, no exceptions
// if $zid or $lid are found, they should be changed
// to $zoneid or $langid, respectively. Once all
// maint files are done, $zid and $lid can probably
// be eliminated.
$zoneid = (int) getparam('zoneid');
$langid = (int) getparam('langid');
// ==========  end of variable loading  ==========
$fcl = new FC_SQL();
$fcp = new FC_SQL();
if (!$zoneid || !$langid) {
    echo 'Please click Back and select a zone and/or language.  Thank you.';
    exit;
}
?>

<h2 align="center">Related Product Maintenance</h2>
<hr />

<?php 
$fcp->query("select count(*) as cnt from prodrel where relzone={$zoneid}");
$fcp->next_record();
$pt = $fcp->f('cnt');
$fcp->free_result();
?>

" onClick="closehelp()">Return To Order Detail Query Page</a>
<br>
<a href="index.php?zoneid=<?php 
echo $zoneid;
?>
&langid=<?php 
echo $langid;
?>
" onClick="closehelp()">Return To Central Maintenance Page</a><br>

</td></tr>

<?php 
$fcohead = new FC_SQL();
$fcoline = new FC_SQL();
$fccust = new FC_SQL();
$ototal = (int) $ototal;
$notfound = 0;
if ($ototal) {
    $fcohead->query("select * from ohead where orderid='{$orderid}'");
    if (!$fcohead->next_record()) {
        $notfound = 1;
    }
} else {
    $notfound = 1;
}
if ($notfound) {
    echo '<tr><td align=center valign=middle colspan=4 bgcolor="#FFFFFF">' . 'Order record ' . $orderid . ' not found<br>' . '</td></tr>';
} else {
    // notfound
    $purchid = $fcohead->f("purchid");

//getparam('zcnt'); // :VESTIGIAL?: mag 030703 Passed from productaddm.php, but not used herein
// Note. $zid and $lid are used in this script to hold optional values
// of $zoneid and $langid used in <select> elements.
// ==========  end of variable loading  ==========
require './admin.php';
require './header.php';
$fcl = new FC_SQL();
// language
$fcp = new FC_SQL();
// check if product exists
$fcu = new FC_SQL();
// update product
$fcw = new FC_SQL();
// web
//$fcc = new FC_SQL; // :VESTIGIAL?: mag 030704 I don't see this used anywhere.
$fcz = new FC_SQL();
// zone
$now = time();
$droot = 'BITCART_PKG_PATH';
// figure out from the addzone* fields which zones must be processed
// accumulate a numeric indexed array $zins
$fcz->query("select zoneid from zone order by zoneid");
while ($fcz->next_record()) {
    $zid = (int) $fcz->f('zoneid');
    $tzid = (int) getparam('addzone' . $zid);
    //$tzid : this zone id, get the value of this zone flag
    if ($tzid) {
        // if this box was checked
        $zins[] = $zid;
        // process this zone (add this zone to array of zones to process)
    }

First the options after updating all tables are fetched again
if there is an option in the current language defined it is
inserted into prodlflag1
(bvo)
*/
$fcco = new FC_SQL();
$fcco->query("select * from prodopt where poptzid={$zoneid} and poptlid={$langid}" . " and poptsku='{$ssku}'");
if ($fcco->next_record()) {
    $poptf = 1;
}
$fcco->free_result();
$plflag1 = 0;
if ($poptf) {
    $plflag1 |= (int) $flag_hasoption;
}
$fccr = new FC_SQL();
$fccr->query("update prodlang set prodlflag1={$plflag1} where prodlsku='{$ssku}'" . " and prodlzid={$zoneid} and prodlid={$langid}");
$fccr->commit();
//set the prodlflag correctly   bvo
?>

<p>

<?php 
if ($act == 'update' || $act == 'delete') {
    ?>
<form method=post action="prodoptndx.php">
<?php 
} else {
    ?>
<form method=post action="productmod.php">

<?php

require_once '../bit_setup_inc.php';
require './functions.php';
require './public.php';
require './languages.php';
$esdid = (int) getparam('esdid');
if ($esdid == 0) {
    echo fc_text('esdnotrans');
    echo fc_text('esdcustsvc');
    exit;
}
require './pwesd.php';
$now = time();
// increment the download count
$fcesd = new FC_SQL();
$fcesd->query("select esddlcnt,esddlmax,esddlexp,esddlfile from esd " . "where esdid={$esdid} and esdoid='{$pwuid}'");
if (!$fcesd->next_record()) {
    echo fc_text('esdnodl');
    echo fc_text('esdcustsvc');
    exit;
}
$esddlcnt = (int) $fcesd->f('esddlcnt') + 1;
$esddlmax = (int) $fcesd->f('esddlmax');
$esddlexp = (int) $fcesd->f('esddlexp');
$esddlfile = $fcesd->f('esddlfile');
$fcesd->free_result();
if ($esddlcnt > $esddlmax || $now > $esddlexp) {
    echo fc_text('esddlmax');
    echo fc_text('esdcustsvc');
    exit;

// maint files are done, $zid and $lid can probably
// be eliminated.
$zoneid = (int) getparam('zoneid');
$langid = (int) getparam('langid');
// ==========  end of variable loading  ==========
require './admin.php';
require './header.php';
if (!$zoneid || !$langid) {
    ?>
  A zone or language ID was not selected.
        <p>Please click the <a href='self.history.back()'>Back</a> button on your browser
        and select a zone.  Thank you.
    <?php 
    exit;
}
$fcp = new FC_SQL();
$fcp->query("select zonedescr from zone where zoneid='{$zoneid}' and zonedeflid='{$langid}'");
if ($fcp->next_record()) {
    $zone_name = $fcp->f("zonedescr") . "<br>";
    $fcp->free_result();
}
?>

<table align=center cellspacing=0 cellpadding=4 bgcolor=#666666 width=650 class="text">
  <tr valign="middle" align="center">
    <td bgcolor=#ffffff>
      <h2>FishCart Reporting Module</h2>
    </td>
  </tr>
</table>
<hr>

$pwzone = (int) getparam('pwzone');
$pwjan = (int) getparam('pwjan');
$pwfeb = (int) getparam('pwfeb');
$pwmar = (int) getparam('pwmar');
$pwapr = (int) getparam('pwapr');
$pwmay = (int) getparam('pwmay');
$pwjun = (int) getparam('pwjun');
$pwjul = (int) getparam('pwjul');
$pwaug = (int) getparam('pwaug');
$pwsep = (int) getparam('pwsep');
$pwoct = (int) getparam('pwoct');
$pwnov = (int) getparam('pwnov');
$pwdec = (int) getparam('pwdec');
// ==========  end of variable loading  ==========
require './admin.php';
$fcpw = new FC_SQL();
if ($action == 'A' || $action == 'M') {
    if ($pwdescr == '' || $pwuid == '' || $pwpw == '' || $pwemail == '') {
        ?>
<p>A field has been left blank; please return to the password
maintenance page and enter valid values in the Description, E-Mail, User ID
and Password fields.
<p>
<a href="pwndx.php?zoneid=<?php 
        echo $zoneid;
        ?>
&langid=<?php 
        echo $langid;
        ?>
"
 onClick="closehelp();">Return to Password Maintenance Page</a><br>

//array lseq and link are handled below
// ==========  end of variable loading  ==========
require './admin.php';
require './header.php';
$fcc = new FC_SQL();
if ($act == "add") {
    if (strlen($title) == 0 || strlen($text) == 0) {
        ?>
	<p>One of the fields was left blank. Both fields must be filled
	in to have a functioning link.<p>Please click the
	&quot;Back&quot; button on your browser	and correct the
	errors.  Thank you.</p>
<?php 
        exit;
    }
    $max_seq = new FC_SQL();
    if ($databaseeng == 'odbc' && $dialect == 'solid') {
        $max_seq->query("select seq from auxtext where rownum < 2 order by seq desc");
    } elseif ($databaseeng == 'postgres') {
        $max_seq->query("select seq from auxtext order by seq desc limit 1,0");
    } elseif ($databaseeng == 'mssql') {
        $max_seq->query("select top 1 seq from auxtext order by seq desc");
    } elseif ($databaseeng == 'oracle') {
        $max_seq->query("select seq from auxtext where rownum < 2 order by seq desc");
    } elseif ($databaseeng == 'mysql') {
        $max_seq->query("select seq from auxtext order by seq desc limit 0,1");
    }
    $max_seq->next_record();
    $seq = $max_seq->f("seq") + 1;
    $max_seq->free_result();
    $res = $fcc->query("insert into auxtext (" . "seq,loc,title,text) values ({$seq},{$loc},'{$title}','{$text}')");

}
?>
>&nbsp;Yes<br>
<input type=radio name=pwactive value="0"<?php 
if (!$pwactive) {
    ?>
 checked<?php 
}
?>
>&nbsp;No<br>

<b>Permitted zone for this user:</b><br>
<select name="pwzone" size="1">
<option value="0">[-- All Zones --]
<?php 
$fcz = new FC_SQL();
$fcz->query("select zoneid,zonedescr from zone");
while ($fcz->next_record()) {
    $zid = $fcz->f('zoneid');
    $zdesc = stripslashes($fcz->f('zonedescr'));
    if ($zid == $pwzone) {
        echo "<option value=\"{$zid}\" selected>{$zdesc}\n";
    } else {
        echo "<option value=\"{$zid}\">{$zdesc}\n";
    }
}
?>
</select><br>

<input type="hidden" name="action" value="M">
<input type="hidden" name="oldpwuid" value="<?php 

// custid cookie is mime encoded, don't escape
$CookieCustID = getcookie("Cookie{$instid}CustID");
$CookieCart = getcookie("Cookie{$instid}Cart");
$cartid = getparam('cartid');
$zid = (int) getparam('zid');
$lid = (int) getparam('lid');
$subz = (int) getparam('subz');
$ccexp_years = (int) getparam('ccexp_years');
$mode = getparam('mode');
// ==========  end of variable loading  ==========
require_once BITCART_PKG_PATH . 'public.php';
require_once BITCART_PKG_PATH . 'cartid.php';
require_once BITCART_PKG_PATH . 'languages.php';
require_once BITCART_PKG_PATH . 'flags.php';
$fcl = new FC_SQL();
$fcz = new FC_SQL();
$fcz->query("select zonecurrsym,zflag1 from zone where zoneid={$zid}");
if ($fcz->next_record()) {
    $csym = stripslashes($fcz->f("zonecurrsym"));
    $csym = trim($csym);
    $zflag1 = (int) $fcz->f('zflag1');
} else {
    $csym = '';
    $zflag1 = 0;
}
// get the language templates
$fcl->query("select langterms,langcopy,langordr from lang where langid={$lid}");
$fcl->next_record('langterms');
if (!empty($showscat)) {
    $tmpl = stripslashes($fcl->f('langstmpl'));
} else {

// int or double cast the numbers, no exceptions
// custid cookie is mime encoded, don't escape
$pwlostmail = getparam('pwlostmail');
// ==========  end of variable loading  ==========
require './public.php';
if (eregi("^[a-z0-9_\\'\\.-]+@[a-z0-9_\\.-]+\\.[a-z]{2,4}\$", $pwlostmail)) {
    $pwlostmail = $pwlostmail;
} else {
    $pwlostmail = "";
}
if ($pwlostmail == "") {
    echo 'no email address found or no valid email address in your request';
    exit;
}
// retrieve the record for the email address
$wwkwijt = new FC_SQL();
$wwkwijt->query("SELECT pwactive,pwemail,pwuid,pwpw from pw " . "where pwemail='{$pwlostmail}' limit 1");
$wwkwijt->next_record();
if ($wwkwijt->f("pwuid") == "") {
    //no record for this address so we're supposed to build an errormessage here
    //let's keep it simple for now
    //this will be fixed in the next release
    echo "sorry, we don't know the address entered";
    exit;
}
if ($wwkwijt->f("pwactive") == "0") {
    //login is not active so we're supposed to build an errormessage here
    //let's keep it simple for now
    //this will be fixed in the next release
    echo 'account is currently not active';
    exit;

<tr><td class="showcartcell" colspan="1" bgcolor="#FFFFFF"></td>
<td class="showcartcell" colspan="2" align="left" valign="top" bgcolor="#FFFFFF">

<b><?php 
        echo fc_text('shipfee');
        ?>
</b><br />

<?php 
        if ($allowupdate) {
            if ($scnt > 1) {
                ?>
<select name="shipid" size="1" onChange="submit(); return false;">
<?php 
                $fcmt = new FC_SQL();
                $fcmt->query("select ship.shipid,shipdef,shipdescr " . "from ship,subzship " . "where shipzid={$zid} " . "and shipszid={$subz} " . "and ship.shiplid={$lid} " . "and subzship.shiplid={$lid} " . "and subzship.shipid=ship.shipid " . "and subzship.shiplid=ship.shiplid " . "order by ship.shipid");
                while ($fcmt->next_record()) {
                    if ($curshipid == (int) $fcmt->f("shipid")) {
                        ?>
<option value="<?php 
                        echo $fcmt->f("shipid");
                        ?>
" selected><?php 
                        echo stripslashes($fcmt->f("shipdescr"));
                        ?>
</option>
<?php 
                    } else {
                        ?>
<option value="<?php 

<form method="post" action="ascupd.php">

<input type="hidden" name="act" value="new" />

<input type="hidden" name="zoneid" value="<?php 
echo $zoneid;
?>
" />
<input type="hidden" name="langid" value="<?php 
echo $langid;
?>
" />

Select Web Profile for this Associate
<?php 
$fcw = new FC_SQL();
$fcw->query("select count(*) as cnt from web " . "where webzid={$zoneid} and weblid={$langid}");
$wt = (int) $fcw->f("cnt");
$fcw->free_result();
$fcw->query("select * from web " . "where webzid={$zoneid} and weblid={$langid} order by webid");
?>

<select name="ascwebid" size="<?php 
echo $wt + 1;
?>
">
<option value="0" selected>[no web profile]</option>
<?php 
while ($fcw->next_record()) {
    ?>
   <option value="<?php