<?
########## Confixx(R) 3.0 Professional ############
####### Copyright SWsoft, Inc. 2004-2005 ##########
#### http://www.sw-soft.com - info@sw-soft.com ####

//
// wws:debug
//
//
#global $DEBUG;
#$DEBUG=1;
//
//
//

include_once("auth.php");

## mysql verbindung aufbauen
db_connect($db_host, $db_user, $db_pass);
## /mysql verbindung aufbauen


## herausfinden was der anbieter darf
$id = db_query ( "SELECT * FROM admin" );
$admin = db_fetch_array($id);

$loUser = new SQLString($PHP_AUTH_USER);
$id = safe_query2( "SELECT * FROM anbieter WHERE anbieter = ?", $loUser);
$serverkann = db_fetch_array($id);
$skmaxpop = $serverkann["maxpop"];
$skmaxemail = $serverkann["maxemail"];
$skmaxautoresponder = $serverkann["maxautoresponder"];
$skmaxftp = $serverkann["maxftp"];
$skmaxsubdomains = $serverkann["maxsubdomains"];
$skmaxwildcards = $serverkann["maxwildcards"];
$skmaxatdomains = $serverkann["maxatdomains"];
$skmaxmysql = $serverkann["maxmysql"];
$skphp = $serverkann["php"];
$skftp = $serverkann["ftp"];
$skperl = $serverkann["perl"];
$skmodpython = $serverkann["modpython"];
$skssi = $serverkann["ssi"];
$skfrontpage = $serverkann["frontpage"];
$skssl = $serverkann["cssl"];
$skshell = $serverkann["shell"];
$skscponly = $serverkann["scponly"];
$skstatistik = $serverkann["statistik"];
$skpwschutz = $serverkann["pwschutz"];
$skfehlerseiten = $serverkann["fehlerseiten"];
$skwebftp = $serverkann["webftp"];
$skwebmail = $serverkann["webmail"];
$skstdcgi = $serverkann["stdcgi"];
$skphpupload = $serverkann["phpupload"];
$skdirlist = $serverkann["dirlist"];
$skwap = $serverkann["wap"];
$skcoldfusion = $serverkann["coldfusion"];
$skmaxcronjobs = $serverkann["maxcronjobs"];
$skspamfilter = $serverkann["spamfilter"];
$skmaxmaillist = $admin["majordomo"] ? $serverkann['maxmaillist'] : 0;

$cmaxmysql = $serverkann["maxmysql"];
if ($cmaxmysql != 0) $skmysql = 1;

## //

$loKunde = new SQLstring($kunde);

## daten für angebot aus db holen, wenn neuer kunde
if ($datenausdbholen != "nein") {
	$sql='';	
	if ( !($ident == "standard" || istleer($ident)) && ( $ident>0 ) ) {
		$sql = "select * from angebote where ident = $ident";
	} else {
		if (!istleer($kunde)){
			$sql = "select * from kunden where kunde = ".$loKunde->SQL();
		}		
	}
	if ( $sql ) {
		
//		echo "sql: $sql<br>\n";
		
		$id = db_query( $sql );
  	$kWerte = db_fetch_array($id);
  
  	$maxpop = $kWerte["maxpop"];
  	$maxkb = $kWerte["maxkb"];
  	$maxemail = $kWerte["maxemail"];
  	$maxautoresponder = $kWerte["maxautoresponder"];
  	
//  	echo "maxautoresponder: $maxautoresponder, maxpop: $maxpop, maxemail: $maxemail<br>\n";
  	
  	$maxftp = $kWerte["maxftp"];
  	$maxtransfer = $kWerte["maxtransfer"];
  	$maxsubdomains = $kWerte["maxsubdomains"];
  	$wildcard = $kWerte["wildcard"];
  	$atdomains = $kWerte["maxatdomains"];
  	$maxmysql = $kWerte["maxmysql"];
  	$phpupload = $kWerte["phpupload"];
  	$dirlist = $kWerte["dirlist"];
  	$wap = $kWerte["wap"];
  	$coldfusion = $kWerte["coldfusion"];
  	$php = $kWerte["php"];
  	$ftp = $kWerte["ftp"];
  	$perl = $kWerte["perl"];
  	$modpython = $kWerte["modpython"];
  	$frontpage = $kWerte["frontpage"];
  	$ssi = $kWerte["ssi"];
  	$shell = $kWerte["shell"];
  	$scponly = $kWerte["scponly"];
  	if ($scponly) {
    	$scponly=1;
    	$shell=2;
  	}
  	$statistik = $kWerte["statistik"];
  	$pwschutz = $kWerte["pwschutz"];
  	$fehlerseiten = $kWerte["fehlerseiten"];
  	$webftp = $kWerte["webftp"];
  	$webmail = $kWerte["webmail"];
  	$stdcgi = $kWerte["stdcgi"];
  	$maxcronjobs = $kWerte["maxcronjobs"];
  	$spamfilter = $kWerte["spamfilter"];
  	$maxmaillist = $kWerte['maxmaillist'];
  	$kbtyp = "KB";
  	if ($maxtransfer <> -1) { $maxtransfer = $maxtransfer / 1024; }	
	} 
}
## // daten für angebot aus db holen, wenn neuer kunde


## daten aus db holen wenn update
if ((!istleer($kunde)) && ($datenausdbholen != "nein"))
{
  $id = db_query("select * from kunden where kunde = '$kunde'");
  
}

?>
<HTML>
<HEAD>
<META content="text/html; charset=<? echo $lang_html_charset; ?>" http-equiv=Content-Type>
<LINK href="<?=$strSkinName?>/style.css" rel=stylesheet type=text/css>
</HEAD>

<BODY bgColor=#ffffff bottomMargin=0 leftMargin=0 topMargin=0 MARGINHEIGHT="0" MARGINWIDTH="0">
<br><? include("../fehler.inc.php"); ?>
<script>
<?
echo js_f_call_help('kune2_title1', 'kune2_descr1');
?>
function doChange()
{
<?
    if($DEBUG){ echo "alert (document.forms[0].action);\n"; }
?>
  document.forms[0].submit();
}
</script>
<table class="tblbgcolor" align="left" border="1" cellpadding="3" cellspacing="0" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
<tr>
    <TD> 
      <P>
        <? if (!istleer($kunde)) { echo ltext("kune2_title2")." ($kunde)"; } else { echo ltext("kune2_title3"); } ?>
        </P>
      <form method="post" action="<? if (!istleer($kunde)) { echo "kunden_leistungen_upd.php"; } else { echo "kunden_neu3.php"; } ?>">
        <table  border="1" cellpadding="3" cellspacing="0" bordercolorlight="<? echo $color_dark_grey; ?>" bordercolordark="#FFFFFF">
          <tr > 
            <td  class="titel-3" >
       
              <? echo ltext("kune2_cell_feature"); ?>
              </td>
            <td class="titel-3" >
       
              <? echo ltext("kune2_cell_input"); ?>
              </td>
          </tr>
          <tr > 
            <td  height="35"> 
              <? echo ltext("kune2_cell_du"); ?>
              </td>
            <td   height="35"> 
              <input type="text" name="maxkb" size="8" value="<? echo $maxkb; ?>">
              <select name="kbtyp">
                <option value="MB"<? if ($kbtyp == "MB") { echo " selected"; } ?>><? echo $lang_format_mb_expr; ?></option>
                <option value="KB"<? if ($kbtyp == "KB") { echo " selected"; } ?>><? echo $lang_format_kb_expr; ?></option>
              </select>
            </td>
          </tr>
          <? if (($skmaxpop > 0) || ($skmaxpop == -1))  { ?>
          <tr > 
            <td  height="2"> 
              <? echo ltext("kune2_cell_pop3"); ?>
              </td>
            <td   height="2"> 
              <input type="text" name="maxpop" size="8" value="<? if (istleer($maxpop)) { echo "-1"; } else { echo $maxpop; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
          <? }
if (($skmaxemail > 0) || ($skmaxemail == -1)) { ?>
          <tr > 
            <td  height="2"> 
              <? echo ltext("kune2_cell_email"); ?>
              </td>
            <td   height="2"> 
              <input type="text" name="maxemail" size="8" value="<? if (istleer($maxemail)) { echo "-1"; } else { echo $maxemail; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
          <? }
if (($skmaxautoresponder > 0) || ($skmaxautoresponder == -1)) { ?>
          <tr > 
            <td  height="2"> 
              <? echo ltext("kune2_cell_autoresponder"); ?>
              </td>
            <td   height="2"> 
              <input type="text" name="maxautoresponder" size="8" value="<? if (istleer($maxautoresponder)) { echo "-1"; } else { echo $maxautoresponder; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
          <? }
if (($skmaxftp > 0) || ($skmaxftp == -1)) { ?>
          <tr > 
            <td  height="9"> 
              <? echo ltext("kune2_cell_ftpusers"); ?>
              </td>
            <td   height="9"> 
              <input type="text" name="maxftp" size="8" value="<? if (istleer($maxftp)) { echo "0"; } else { echo $maxftp; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
          <? } ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_traffic"); ?>
              </td>
            <td  > 
              <input type="text" name="maxtransfer" size="8" value="<? echo $maxtransfer ?>">
               <? echo $lang_format_mb_expr; ?></td>
          </tr>
          <?
if (($skmaxsubdomains > 0) || ($skmaxsubdomains == -1)) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_subdomains"); ?>
              </td>
            <td  > 
              <input type="text" name="maxsubdomains" size="8" value="<? if (istleer($maxsubdomains)) { echo "0"; } else { echo $maxsubdomains; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
          <? }
if (($skmaxmysql > 0) || ($skmaxmysql == -1)) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_mysql"); ?>
              </td>
            <td  > 
              <input type="text" name="maxmysql" size="8" value="<? if (istleer($maxmysql)) { echo "1"; } else { echo $maxmysql; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
<? }
if (($skmaxwildcards > 0) || ($skmaxwildcards == -1)) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_wildcard"); ?>
              </td>
            <td  > 
              <input type="text" name="wildcard" size="8" value="<? if (istleer($wildcard)) { echo "0"; } else { echo $wildcard; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
<? }
if (($skmaxatdomains > 0) || ($skmaxatdomains == -1)) { ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_atdomains"); ?>
              </td>
            <td  >
              <input type="text" name="atdomains" size="8" value="<? if (istleer($atdomains)) { echo "0"; } else { echo $atdomains; } ?>">

              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
<? } ?>
<? if( ($skmaxcronjobs > 0) || ($skmaxcronjobs == -1) ):  ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_cron"); ?>
              </td>
            <td  > 
              <input type="text" name="maxcronjobs" size="8" value="<? if (istleer($maxcronjobs)) { echo "0"; } else { echo $maxcronjobs; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
<? endif;  ?>

<? if( ($skmaxmaillist > 0) || ($skmaxmaillist == -1) ):  ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_maillist"); ?>
              </td>
            <td  > 
              <input type="text" name="maxmaillist" size="8" value="<? if (istleer($maxmaillist)) { echo "0"; } else { echo $maxmaillist; } ?>">
               
              <? echo ltext("kune2_cell_max"); ?>
              </td>
          </tr>
<? endif;  ?>

<?
	  
if ($skftp == 1) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_ftp"); ?>
              </td>
            <td  > 
              <input type="radio" name="ftp" value="1"<? if (($ftp != 0) || (istleer($ftp))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="ftp" value="0"<? if (($ftp == 0) && (!istleer($ftp))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skphp == 1) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_php"); ?>
              </td>
            <td  > 
              <input type="radio" name="php" value="1"<? if (($php != 0) || (istleer($php))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="php" value="0"<? if (($php == 0) && (!istleer($php))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skphpupload == 1) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_phpupload"); ?>
              </td>
            <td  > 
              <input type="radio" name="phpupload" value="1"<? if (($phpupload != 0) || (istleer($phpupload))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
              
              <input type="radio" name="phpupload" value="0"<? if (($phpupload == 0) && (!istleer($phpupload))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skperl == 1) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_cgi"); ?>
              </td>
            <td  > 
              <input type="radio" name="perl" value="1"<? if (($perl != 0) || (istleer($perl))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="perl" value="0"<? if (($perl == 0) && (!istleer($perl))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skmodpython == 1) { ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_modpython"); ?>
              </td>
            <td  >
              <input type="radio" name="modpython" value="1"<? if (($modpython != 0) || (istleer($modpython))) { echo " checked"; } ?>>

              <? echo ltext("g_yes"); ?>

              <input type="radio" name="modpython" value="0"<? if (($modpython == 0) && (!istleer($modpython))) { echo " checked"; } ?>>

              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }

if ($skssi == 1) { ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_ssi"); ?>
              </td>
            <td  >
              <input type="radio" name="ssi" value="1"<? if (($ssi != 0) || (istleer($ssi))) { echo " checked"; } ?>>
              
              <? echo ltext("g_yes"); ?>
              
              <input type="radio" name="ssi" value="0"<? if (($ssi == 0) && (!istleer($ssi))) { echo " checked"; } ?>>
              
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skwap == 1) { ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_wap"); ?>
              </td>
            <td  >
              <input type="radio" name="wap" value="1"<? if (($wap != 0) || (istleer($wap))) { echo " checked"; } ?>>
              
              <? echo ltext("g_yes"); ?>
              
              <input type="radio" name="wap" value="0"<? if (($wap == 0) && (!istleer($wap))) { echo " checked"; } ?>>
              
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? } ?>
<? if($skcoldfusion == 1): ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_coldfusion"); ?>
              </td>
            <td  >
              <input type="radio" name="coldfusion" value="1"<? if (($coldfusion != 0) || (istleer($coldfusion))) { echo " checked"; } ?>>
              
              <? echo ltext("g_yes"); ?>
              
              <input type="radio" name="coldfusion" value="0"<? if (($coldfusion == 0) && (!istleer($coldfusion))) { echo " checked"; } ?>>
              
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
<? 
endif;           
if($skfrontpage == 1){ ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_frontpage"); ?>
              </td>
            <td  >
              <input type="radio" name="frontpage" value="1"<? if (($frontpage != 0) || (istleer($frontpage))) { echo " checked"; } ?>>

              <? echo ltext("g_yes"); ?>

              <input type="radio" name="frontpage" value="0"<? if (($frontpage == 0) && (!istleer($frontpage))) { echo " checked"; } ?>>

              <? echo ltext("g_no"); ?>
              </td>
          </tr>
<?
}
if ($skshell == 1 || $skscponly == 1) { 
?>
  <tr > 
    <td > 
      <? echo ltext("anne_cell_shell"); ?>
    </td>
    <td >
<?
  if(!$shell) $shell=0;	
  $opts[0]=ltext("g_no");
  $max=0;
  $numb=2;

  if ($skshell==1){
    $opts[1]=ltext("g_yes");
    $max=1;
  }

  if ($skscponly==1){
    if ($skshell==1){
      $opts[1]=ltext("anne_cell_std_shell");
      $numb=3;
    }
    $opts[2]=ltext("anne_cell_scp_shell");
    $max=2;
  }

  if ($numb>2){
?>
      <select name="shell"  size="1">
<?
    for($i=0; $i<3; $i++){
      echo "<option value=\"$i\"";
      if($shell==$i) echo " selected ";
      echo "> ".$opts[$i]."</option>\n"; 
    }
?>
      </select>	 
<?    
  }else{
?>	
      <input type="radio" name="shell" value="<? echo $max?>"<?if($shell) echo " checked "; ?>>
        <? echo $opts[$max]; ?>
      <input type="radio" name="shell" value="0"<?if (!$shell)  echo " checked ";  ?>>
        <b><? echo ltext("g_no"); ?>!</b> 
    </td>
  </tr>
<?
  } 
}
if ($skdirlist == 1) { 
?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_dirlist"); ?>
              </td>
            <td  >
              <input type="radio" name="dirlist" value="1"<? if (($dirlist != 0) || (istleer($dirlist))) { echo " checked"; } ?>>
              
              <? echo ltext("g_yes"); ?>
              
              <input type="radio" name="dirlist" value="0"<? if (($dirlist == 0) && (!istleer($dirlist))) { echo " checked"; } ?>>
              
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skstatistik == 1) { ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_webalizer"); ?>
              </td>
            <td  >
              <input type="radio" name="statistik" value="1"<? if (($statistik != 0) || (istleer($statistik))) { echo " checked"; } ?>>
              
              <? echo ltext("g_yes"); ?>
              
              <input type="radio" name="statistik" value="0"<? if (($statistik == 0) && (!istleer($statistik))) { echo " checked"; } ?>>
              
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skpwschutz == 1) { ?>
          <tr >
            <td  height="27">
              <? echo ltext("kune2_cell_pwdir"); ?>
              </td>
            <td   height="27">
              <input type="radio" name="pwschutz" value="1"<? if (($pwschutz != 0) || (istleer($pwschutz))) { echo " checked"; } ?>>
              
              <? echo ltext("g_yes"); ?>
              
              <input type="radio" name="pwschutz" value="0"<? if (($pwschutz == 0) && (!istleer($pwschutz))) { echo " checked"; } ?>>
              
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skfehlerseiten == 1) { ?>
          <tr >
            <td >
              <? echo ltext("kune2_cell_errorfiles"); ?>
              </td>
            <td  > 
              <input type="radio" name="fehlerseiten" value="1"<? if (($fehlerseiten != 0) || (istleer($fehlerseiten))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="fehlerseiten" value="0"<? if (($fehlerseiten == 0) && (!istleer($fehlerseiten))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skwebftp == 1) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_webftp"); ?>
              </td>
            <td  > 
              <input type="radio" name="webftp" value="1"<? if (($webftp != 0) || (istleer($webftp))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="webftp" value="0"<? if (($webftp == 0) && (!istleer($webftp))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skwebmail == 1) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_webmail"); ?>
              </td>
            <td  > 
              <input type="radio" name="webmail" value="1"<? if (($webmail != 0) || (istleer($webmail))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="webmail" value="0"<? if (($webmail == 0) && (!istleer($webmail))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? }
if ($skstdcgi == 1) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_stdscripts"); ?>
              <? if (!istleer($kunde)) { echo ltext("kune2_cell_stdcopy"); } ?>
              </td>
            <td  > 
              <input type="radio" name="stdcgi" value="1"<? if (($stdcgi != 0) || (istleer($stdcgi))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="stdcgi" value="0"<? if (($stdcgi == 0) && (!istleer($stdcgi))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
          <? } ?>
<? if ($skspamfilter == 1 && $skmaxpop != 0) { ?>
          <tr > 
            <td > 
              <? echo ltext("kune2_cell_spamfilter"); ?>
              </td>
            <td  > 
              <input type="radio" name="spamfilter" value="1"<? if (($spamfilter != 0) || (istleer($spamfilter))) { echo " checked"; } ?>>
               
              <? echo ltext("g_yes"); ?>
               
              <input type="radio" name="spamfilter" value="0"<? if (($spamfilter == 0) && (!istleer($spamfilter))) { echo " checked"; } ?>>
               
              <? echo ltext("g_no"); ?>
              </td>
          </tr>
<? } ?>
          <tr > 
            <td >&nbsp;</td>
            <td  > 
	    
	    <table cellpadding="0" cellspacing="0" border="0">
	    <tr>
	    <td><input type=image border=0 src="<?=$strSkinName?>/pics/buttons/bt_img_left.gif"></td>
	    <td background="<?=$strSkinName?>/pics/buttons/bt_img_middle.jpg"><a href="javascript:doChange()"  class="button-1"><? if (!istleer($kunde)) { echo ltext("kune2_button1"); } else { echo ltext("kune2_button2"); } ?></a></td>
	    <td><input type=image border=0 src="<?=$strSkinName?>/pics/buttons/bt_changepass.gif"></td>
	    </tr>
	    </table></a>
            </td>
          </tr>
        </table>
        <? if (!istleer($kunde)) { ?>
        <input type="hidden" name="updaten" value="ja">
        <input type="hidden" name="kunde" value="<? echo $kunde; ?>">
        <? } ?>
        <input type="hidden" name="ident" value="<? echo $ident; ?>">
    </TD>
  </TR>
</TABLE>
</form>
</BODY>
</HTML>
<?
db_close();
?>
