#!/usr/bin/perl


if ($port)
{
 $ENV{"MYSQL_TCP_PORT"}=$port;
}

if ($sock)
{
 $ENV{"MYSQL_UNIX_PORT"}="$sock";
}

use Mysql; # use the Mysql Perl Adaptor

require "cgi-lib.pl"; # Form processing library
require "cgi-lib.sol"; # Additional dunctions library
require "mail-lib.pl"; # UNIX sendmail processing library
require "library_func.pl";
require "cookie.lib";

$dbh = Mysql->Connect("$host","$mercantor_database","$user", "$pass");

&ReadParse; #subroutine from cgi-lib.pl for parsing form variables into the %in associative array

print "Content-type: text/html;\n";



$javascript = "<script type=\"text/javascript\"><!--

//-->     
</script>";


$stout  .= "<table><tr valign=top><td>";

$stout  .= "Thank you";

$stout .= "</td></tr></table>";


print "\n";


&include("inwww-head.txt");

print "<link rel=\"stylesheet\" href=\"inwww-styles.css\" type=\"text/css\">";

print "$javascript";




&include("inwww-top.txt");

print "<table class=trame cellpadding=4 cellspacing=0>

<tr valign=top>

<td height=100 class=highlight2 style=\"background-color: #FAFAFA;\" width=25%>";

&include("inwww-order-menu.txt");

print "</td>

<td height=250 width=75%>
<div class=homehead><IMG SRC=\"icon.gif\" WIDTH=13 HEIGHT=11 BORDER=0> Hosting Order Form</div>";


print "$stout";


print "</td>

</tr>

<tr valign=top>
<td height=4 colspan=2><hr><img src=spacer.GIF height=4 width=1 border=0></td>
</tr>

</table>";



&include("inwww-bot.txt");