#!/usr/bin/perl

########################################################
#                                                      #
# Gestdb v1.0 by Michela Fontana                       #
# Website : http://www.calzatura.com                   #
# Created : 01/01/2004                                 #
#                                                      #
########################################################

############   ADJUST THESE VARIABLES   ################

        use CGI;
        use DBI;
        
       
# Get the form variables

	if ($ENV{'REQUEST_METHOD'} eq 'GET') {
        	$buffer = $ENV{'QUERY_STRING'};
	}	
	else {
        	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	}

# Break em up into a format the script can read

	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
        	($name, $value) = split(/=/, $pair);
        	$value =~ tr/+/ /;
        	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        	$FORM{$name} = $value;
	}

# Get the heading information

  $headfile = '/italy/head/head_motore.txt';

   unless (open (DATA,"$headfile")) {die (&error);}
		if ($uselock eq '1') {
			flock DATA, 2;
			seek DATA, 0, 0;
		}
		@headinfo = <DATA>;
		if ($uselock eq '1') {
			flock DATA, 8;
		}
	close (DATA);
	foreach $headline (@headinfo){
		$heading = $heading.$headline;
	}

# Get the footer information

  $footfile = '/italy/head/foot.txt';

   unless (open (DATA,"$footfile")) {die (&error);}
		if ($uselock eq '1') {
			flock DATA, 2;
			seek DATA, 0, 0;
		}
		@footinfo = <DATA>;
		if ($uselock eq '1') {
			flock DATA, 8;
		}
	close (DATA);
	foreach $footline (@footinfo){
		$footing = $footing.$footline;
	}

# Get the Dbase information

$mysql1  = 'calzatura_com_calzatura';
$mysql2  = 'mysql.register.it';
$mysql3  = 'GS1219_CALZATURA';
$mysql4  = 'michela';

#------------------------------------------------- M A I N
print "Content-type: text/html\n\n";
$numero1         = $FORM{'numero1'};
$numero         = $FORM{'numero'};
$username = 'calzatodo';
$password = 'password';
$user1         = $FORM{'user1'};
$psw1         = $FORM{'psw1'};

# Open DB connection
$dbh = DBI->connect("DBI:mysql:$mysql1:$mysql2", $mysql3, $mysql4);
if (!dbh) { print "Errore!"; }

my $stat = $dbh->prepare("SELECT ID, RAGIONESOCIALE, INDIRIZZO, CAP, CITTA, PROVINCIA, NAZIONE, 
                                 MAIL, URL, TELEFONO, FAX,
                                 DESCRIZIONEITA, DESCRIZIONEENG, DESCRIZIONESPA, DESCRIZIONEPORT,
                                 MARCHI, CATEGORIA1, CATEGORIA2, CATEGORIA3, 
                                 NOMECONTATTO, COGNOMECONTATTO, POSIZIONECONTATTO, DATANASCITACONTATTO, CELLULARECONTATTO, MAILCONTATTO,
                                 NOMEACQUISTI, COGNOMEACQUISTI, CELLULAREACQUISTI, MAILACQUISTI,
                                 NOMEVENDITE, COGNOMEVENDITE, CELLULAREVENDITE, MAILVENDITE,
                                 PAROLECHIAVE, PAGA, IMMAGINE, LINGUA,
                                 LINGUADESC, DESCRIZIONE, FIERE  FROM Base
                          WHERE ID='$numero1'");

my $return = $stat->execute;

($id, $rag, $indirizzo, $cap, $citta, $provincia, $nazione, $mail, $url, $telefono, $fax, 
$descrizioneita, $descrizioneeng,$descrizionespa,$descrizioneport, $marchi, $cat1, $cat2, $cat3,
$nomecontatto, $cognomecontatto, $posizionecontatto, $datacontatto, $cellularecontatto, $mailcontatto,
$nomeacquisti, $cognomeacquisti, $cellulareacquisti, $mailacquisti,
$nomevendite, $cognomevendite, $cellularevendite, $mailvendite,
$parolechiave, $paga, $immagine, $lingua, $linguadesc, $descrizione, $fiere) = $stat->fetchrow_array;

($nomenazione,$nazioneimmagine) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazione'");
($nazionedesc,$nazioneimgdesc) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$linguadesc'");
($c1ita, $c1eng, $c1spa,) = $dbh->selectrow_array("SELECT DEFITA, DEFENG, DEFSPA FROM Categorie WHERE ID='$cat1'");
($c2ita, $c2eng, $c2spa,) = $dbh->selectrow_array("SELECT DEFITA, DEFENG, DEFSPA FROM Categorie WHERE ID='$cat2'");
($c3ita, $c3eng, $c3spa,) = $dbh->selectrow_array("SELECT DEFITA, DEFENG, DEFSPA FROM Categorie WHERE ID='$cat3'");

@fiera = split (/-/,$fiere);
($fiera1, $cittafiera1, $nazionefiera1, $urlfiera1) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[0]'");
($fiera2, $cittafiera2, $nazionefiera2, $urlfiera2) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[1]'");
($fiera3, $cittafiera3, $nazionefiera3, $urlfiera3) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[2]'");
($fiera4, $cittafiera4, $nazionefiera4, $urlfiera4) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[3]'");
($fiera5, $cittafiera5, $nazionefiera5, $urlfiera5) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[4]'");
($fiera6, $cittafiera6, $nazionefiera6, $urlfiera6) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[5]'");
($fiera7, $cittafiera7, $nazionefiera7, $urlfiera7) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[6]'");
($fiera8, $cittafiera8, $nazionefiera8, $urlfiera8) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[7]'");
($fiera9, $cittafiera9, $nazionefiera9, $urlfiera9) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[8]'");
($fiera10, $cittafiera10, $nazionefiera10, $urlfiera10) = $dbh->selectrow_array("SELECT FIERA, CITTA, NAZIONE, URL FROM Fiere WHERE ID='$fiera[9]'");

($nazfiera1, $nazimgfiera1) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera1'");
($nazfiera2, $nazimgfiera2) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera2'");
($nazfiera3, $nazimgfiera3) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera3'");
($nazfiera4, $nazimgfiera4) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera4'");
($nazfiera5, $nazimgfiera5) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera5'");
($nazfiera6, $nazimgfiera6) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera6'");
($nazfiera7, $nazimgfiera7) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera7'");
($nazfiera8, $nazimgfiera8) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera8'");
($nazfiera9, $nazimgfiera9) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera9'");
($nazfiera10, $nazimgfiera10) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazionefiera10'");

$dbh->disconnect;

$image = 'http://www.calzatura.com/images/banner/banner_motore/clicca.gif';

if ($immagine =~ 'http://') {
   $image = $immagine;
}

$collega = '';

if ($url =~ 'http://') {
   $collega = $url;
}

print "<body bgcolor=#cccccc link=#B30000 vlink=#B30000 alink=#B30000 topmargin=2 leftmargin=2>

<table width=100% height=1 border=0 cellspacing=0 cellpadding=0>
  <tr>
    <td width=1% height=1 valign=top bgcolor=#C8DCF0><font size=1>
    <img src=http://www.calzatura.com/images/angle1.gif width=7 height=8></font></td>
    <td width=98% height=1 bgcolor=#C8DCF0></td>
    <td width=1% align=right valign=top bgcolor=#C8DCF0 height=1>
    <font size=1><img src=http://www.calzatura.com/images/angle2.gif width=11 height=12></font></td>
  </tr>
</table>

<table width=100% height=1 border=0 cellspacing=0 cellpadding=0>
  <tr>
    <td width=1% height=1 valign=top bgcolor=#C8DCF0>&nbsp;</td>
    <td width=98% height=1 bgcolor=#E1E1E1>
    <div align=center><center>

<table width=100% height=274 border=0 cellpadding=0 cellspacing=10 border=1 bordercolor=#111111>
  <tr>
    <td width=16% valign=top height=264><font face=Arial color=000000 size=2>";

if ($image =~ 'http://') {
    if ($url =~ 'http://') {
       print " <a href=$collega target=_blank>";
     }
   print "<img SRC=$image ALT='$rag' BORDER=0>";
    if ($url =~ 'http://') {
       print " </a>";
     }
   }
else {
print "<img SRC=http://www.calzatura.com/images/banner/banner_motore/clicca.gif BORDER=0>";
}

print "</font></td>
    <td width=84% valign=top height=264><font face=Arial color=000000 size=2>";

if ($nomenazione ne '') {
print "    <img SRC=$nazioneimmagine ALT=$nomenazione width=23 height=12 BORDER=0>";
}

print" &nbsp;&nbsp; </font>
    <b><strong><font face=Verdana size=2 color=#B30000>";

if ($collega ne '') {
print "    <a href=$collega target=_blank>$rag</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
}
else {
print " $rag &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
}

if ($url =~ 'http://') {
print "&nbsp;&nbsp;&nbsp;<a href=$collega target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a>";
}

if ($mail ne '') {
print " &nbsp;&nbsp;&nbsp;
    <a href=AReasymail.cgi?user1=$user1&psw1=$psw1&numero=$numero&numero1=$id&opz=az target=_blank><img SRC=http://www.calzatura.com/images/search/mail.gif ALT='INVIA MAIL' BORDER=0></a>";
}

print " </font></strong><br>&nbsp;</b>

<div align=center><center>
<table width=100% border=2 cellspacing=1 cellpadding=0 bordercolor=#C8DCF0 bordercolorlight=#C8DCF0 bordercolordark=#C8DCF0>
  <tr>
    <td width=20% valign=top bgcolor=#FFFFFF>
    <font face=Verdana color=#000080 size=1><strong>Dati Azienda</strong></font></td>
    <td width=80% valign=top bgcolor=#FFFFFF>
    <font face=Arial color=#000080 size=2>";

if ($indirizzo ne '') {
print " $indirizzo<br>";
}

print "    $cap $citta $provincia $nomenazione<br>";

if ($telefono ne '') {
print " <strong>Tel:</strong> $telefono&nbsp;-&nbsp;";
}
if ($fax ne '') {
print " <strong>Fax:</strong> $fax</font>";
}

print "</td>
  </tr>
  <tr>";

if ($nomecontatto ne '') {
print "    <td width=20% valign=top bgcolor=#FFFFFF>
    <font face=Verdana color=#000080 size=1>
    <strong>Contatto</strong></font></b></td>
    <td width=80% valign=top bgcolor=#FFFFFF>
    <font face=Verdana color=#000080 size=2>";

if ($nomecontatto ne '') {
print "    $nomecontatto ";
}

if ($cognomecontatto ne '') {
print "$cognomecontatto ";
}

print " <br>";

if ($cellularecontatto ne '') {
print "    <strong>Mob:</strong> $cellularecontatto &nbsp;&nbsp;&nbsp;";
}

print"</font>";

if ($mailcontatto ne '') {
print "    <a href=AReasymail.cgi?user1=$user1&psw1=$psw1&numero=$numero&numero1=$id&opz=cont target=_blank><img SRC=http://www.calzatura.com/images/search/mail.gif ALT='INVIA MAIL A CONTATTO' BORDER=0></a>";
}

print"</td>"; }

print "  </tr>
  <tr>";

if ($nomevendite ne '') {
print "    <td width=20% valign=top bgcolor=#FFFFFF>
    <font face=Verdana color=#000080 size=1>
    <strong>Contatto Vendite</strong></font></b></td>
    <td width=80% valign=top bgcolor=#FFFFFF>
    <font face=Verdana color=#000080 size=2>";

if ($nomevendite ne '') {
print "    $nomevendite ";
}

if ($cognomevendite ne '') {
print "$cognomevendite ";
}
print "<br>";

if ($cellularecontatto ne '') {
print "    <strong>Mob:</strong> $cellularevendite &nbsp;&nbsp;&nbsp;";
}

print"</font>";

if ($mailvendite ne '') {
print "
    <a href=AReasymail.cgi?user1=$user1&psw1=$psw1&numero=$numero&numero1=$id&opz=vend target=_blank><img SRC=http://www.calzatura.com/images/search/mail.gif ALT='INVIA MAIL A CONTATTO VENDITE' BORDER=0></a>";
}

print "</td>"; }

print "  </tr>
  <tr>";

if ($nomeacquisti ne '') {
print "     <td width=20% valign=top bgcolor=#FFFFFF>
    <font face=Verdana color=#000080 size=1>
    <strong>Contatto Acquisti</strong></font></b></td>
    <td width=80% valign=top bgcolor=#FFFFFF>
    <font face=Verdana color=#000080 size=2>";

if ($nomeacquisti ne '') {
print "    $nomeacquisti ";
}

if ($cognomeacquisti ne '') {
print "$cognomeacquisti ";
}

print "<br>";

if ($cellulareacquisti ne '') {
print "    <strong>Mob:</strong> $cellulareacquisti &nbsp;&nbsp;&nbsp;";
}

print " </font>";

if ($mailacquisti ne '') {
print "    <a href=AReasymail.cgi?user1=$user1&psw1=$psw1&numero=$numero&numero1=$id&opz=acq target=_blank><img SRC=http://www.calzatura.com/images/search/mail.gif ALT='INVIA MAIL A CONTATTO ACQUISTI' BORDER=0></a>";
}

print " </td>"; }

print "  </tr>
</table></center></div>

<div align=center><center>
<table width=100% border=0 cellpadding=10 cellspacing=4 bordercolor=#111111>";

if ($descrizioneita ne '') {
print "  <tr>
    <td width=95% valign=top bgcolor=#E1F0FF>
    <font face=Verdana size=2 color=#000080>$descrizioneita</font></td>
    <td width=5% align=center valign=middle bgcolor=#E1F0FF>
    <img border=0 src=http://www.calzatura.com/images/bandiere/database/italy.gif width=20 height=10 alt=Italy></td>
  </tr>";
}
if ($descrizioneeng ne '') {
print "  <tr>
    <td width=95% valign=top bgcolor=#FFE8FF>
    <font face=Verdana size=2 color=#000080>$descrizioneeng</font></td>
    <td width=5% align=center valign=middle bgcolor=#FFE8FF>
    <img border=0 src=http://www.calzatura.com/images/bandiere/database/english.gif width=20 height=10 alt=English></td>
  </tr>";
}
if ($descrizionespa ne '') {
print "  <tr>
    <td width=95% valign=top bgcolor=#FFFFDF><font face=Verdana size=2 color=#000080>$descrizionespa</font></td>
    <td width=5% align=center valign=middle bgcolor=#FFFFDF>
    <img border=0 src=http://www.calzatura.com/images/bandiere/database/spain.gif width=20 height=10 alt=Spanish></td>
  </tr>";
}
if ($descrizioneport ne '') {
print "  <tr>
    <td width=95% valign=top bgcolor=#DFFFEF>
    <font face=Verdana size=2 color=#000080>$descrizioneport</font></td>
    <td width=5% align=center valign=middle bgcolor=#DFFFEF>
    <font face=Arial color=000000 size=1>
    <img border=0 src=http://www.calzatura.com/images/bandiere/database/brazil.gif width=20 height=10 alt=Portuguese></font></td>
  </tr>";
}
if ($descrizione ne '') {
print "  <tr>
    <td width=95% valign=top bgcolor=#FFE3D7>
    <font face=Verdana size=2 color=#000080>$descrizione</font></td>
    <td width=5% align=center valign=middle bgcolor=#FFE3D7>
    <font face=Arial color=000000 size=1>
    <img border=0 src=$nazioneimgdesc width=20 height=10 alt='$nazionedesc'></font></td>
  </tr>";
}

print " </table></center></div><div align=center><center>

<table border=0 cellspacing=1 width=100%>
  <tr>
    <td width=100%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
   </tr>
</table></center></div>

<div align=center><center>
<table width=100% border=2 cellspacing=1 cellpadding=5 bordercolorlight=#C8DCF0 bordercolordark=#C8DCF0>
  <tr>
    <td width=50% align=center bgcolor=#FFFFCC valign=top>
    <font face=Verdana color=#000080 size=1>
    <strong>MARCHI</strong></font><p align=left>
    <font face=Arial color=#000080 size=2>";

if ($marchi ne '') {
print "$marchi";
}
else {
print " NESSUN MARCHIO INSERITO ";
}

print "</font></td>
    <td width=50% align=center bgcolor=#FFE1FF valign=top>
    <font face=Verdana color=#000080 size=1>
    <strong>CATEGORIE DI APPARTENENZA</strong></font><p align=left>
    <font face=Arial color=#000080 size=2>$c1ita<br>$c2ita<br>$c3ita</font></td>
  </tr>
</table></center></div>

<div align=center><center>
<table width=100% border=0 cellspacing=1>
  <tr>
    <td width=100%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </td>
  </tr>
</table></center></div>";

if ($fiere ne '') {
print " <div align=center><center>
<table border=0 cellspacing=1 width=100%>
  <tr>
    <td width=100% bgcolor=#C8DCF0><p align=center>
    <font face=Verdana color=#000080 size=1>
    <strong>FIERE A CUI PARTECIPA</strong></font></p><p align=left>
    <font face=Arial color=#000080 size=1>";

if ($nazfiera1   ne '') { print "&nbsp; <img SRC=$nazimgfiera1 ALT='$nazfiera1' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera1 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera1 </strong></font> ";
   if ($cittafiera1 ne '') { print "- $cittafiera1 "; }
   if ($urlfiera1   ne '') { print "&nbsp; <a href=$urlfiera1 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera2   ne '') { print "&nbsp; <img SRC=$nazimgfiera2 ALT='$nazfiera2' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera2 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera2 </strong></font> ";
   if ($cittafiera2 ne '') { print "- $cittafiera2 "; }
   if ($urlfiera2   ne '') { print "&nbsp; <a href=$urlfiera2 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera3   ne '') { print "&nbsp; <img SRC=$nazimgfiera3 ALT='$nazfiera3' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera3 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera3 </strong></font> ";
   if ($cittafiera3 ne '') { print "- $cittafiera3 "; }
   if ($urlfiera3   ne '') { print "&nbsp; <a href=$urlfiera3 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera4   ne '') { print "&nbsp; <img SRC=$nazimgfiera4 ALT='$nazfiera4' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera4 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera4 </strong></font> ";
   if ($cittafiera4 ne '') { print "- $cittafiera4 "; }
   if ($urlfiera4   ne '') { print "&nbsp; <a href=$urlfiera4 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera5   ne '') { print "&nbsp; <img SRC=$nazimgfiera5 ALT='$nazfiera5' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera5 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera5 </strong></font> ";
   if ($cittafiera5 ne '') { print "- $cittafiera5 "; }
   if ($urlfiera5   ne '') { print "&nbsp; <a href=$urlfiera5 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera6   ne '') { print "&nbsp; <img SRC=$nazimgfiera6 ALT='$nazfiera6' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera6 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera6 </strong></font> ";
   if ($cittafiera6 ne '') { print "- $cittafiera6 "; }
   if ($urlfiera6   ne '') { print "&nbsp; <a href=$urlfiera6 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera7   ne '') { print "&nbsp; <img SRC=$nazimgfiera7 ALT='$nazfiera7' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera7 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera7 </strong></font> ";
   if ($cittafiera7 ne '') { print "- $cittafiera7 "; }
   if ($urlfiera7   ne '') { print "&nbsp; <a href=$urlfiera7 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera8   ne '') { print "&nbsp; <img SRC=$nazimgfiera8 ALT='$nazfiera8' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera8 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera8 </strong></font> ";
   if ($cittafiera8 ne '') { print "- $cittafiera8 "; }
   if ($urlfiera8   ne '') { print "&nbsp; <a href=$urlfiera8 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera9   ne '') { print "&nbsp; <img SRC=$nazimgfiera9 ALT='$nazfiera9' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera9 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera9 </strong></font> ";
   if ($cittafiera9 ne '') { print "- $cittafiera9 "; }
   if ($urlfiera9   ne '') { print "&nbsp; <a href=$urlfiera9 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

if ($nazfiera10   ne '') { print "&nbsp; <img SRC=$nazimgfiera10 ALT='$nazfiera10' widht=20 height=10 BORDER=0>&nbsp;";   }
if ($fiera10 ne '') { print " <font face=Verdana color=#000080 size=1><strong>&nbsp; $fiera10 </strong></font> ";
   if ($cittafiera10 ne '') { print "- $cittafiera10 "; }
   if ($urlfiera10   ne '') { print "&nbsp; <a href=$urlfiera10 target=_blank><img SRC=http://www.calzatura.com/images/search/url.gif ALT=URL BORDER=0></a><br>"; }
}

print " </font></td>
  </tr>
</table></center></div>";
}

print "</td>
  </tr>
</table></center></div></td>
    <td width=1% height=1 align=right valign=top bgcolor=#C8DCF0>&nbsp;</td>
  </tr>
</table>

<table width=100% height=1 border=0 cellspacing=0 cellpadding=0>
  <tr>
    <td width=1% height=1 valign=bottom bgcolor=#C8DCF0>
    <font face=Arial color=000000 size=1>
    <img src=http://www.calzatura.com/images/angle3.gif width=11 height=12></font></td>
    <td width=98% height=1 bgcolor=#C8DCF0 valign=bottom></td>
    <td width=1% align=right valign=bottom bgcolor=#C8DCF0 height=1>
    <font face=Arial color=000000 size=1>
    <img src=http://www.calzatura.com/images/angle4.gif width=11 height=12></font></td>
  </tr>
</table>
</body>";

print "$footing";

exit;

#------------------------------------------------- E N D  M A I N

sub error {    
	$noshow = 1;
	&heading;
	print "<CENTER><FONT $font><h2>File Access Error</h2><P><B>You have an error in your PATH configuration variables in the $ENV{'SCRIPT_NAME'} file.</B><P>Your server reports that your BASE path is : $ENV{'DOCUMENT_ROOT'}<BR>Note that this is reported as your BASE path, not the FULL path to your files.<P>If you require help installing this script please consider purchasing the professional version of this script. Your purchase includes full tech support and installation.<P><B>Get it at : <A HREF=http://www.getperl.com/easysearch/>http://www.getperl.com/easysearch/</A></B></FONT></CENTER><P>\n";
	&footer;
}