#!/usr/bin/perl

########################################################
#                                                      #
# Gestdb v1.0 by Michela Fontana                       #
# Website : http://www.calzatura.com                   #
# Created : 15/10/2001                                 #
#                                                      #
########################################################

############   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;
	}

######### RICERCA #########

$identificativo = $FORM{'identificativo'};
$keywords    = $FORM{'keywords'};
$categoria    = $FORM{'categoria'};
$marchi  = $FORM{'marchi'};
$nazione    = $FORM{'nazione'};
$citta    = $FORM{'citta'};
$azienda = $FORM{'azienda'};

$ordine[0] = " ORDER BY RAGIONESOCIALE DESC ";
$ordine[1] = " ORDER BY RAGIONESOCIALE ASC ";
$ordine[2] = " ORDER BY DESCRIZIONEITA DESC ";
$ordine[3] = " ORDER BY DESCRIZIONEITA ASC ";
$ordine[4] = " ORDER BY MAIL DESC ";
$ordine[5] = " ORDER BY MAIL ASC ";
$ordine[6] = " ORDER BY CITTA DESC ";
$ordine[7] = " ORDER BY CITTA ASC ";
$ordine[8] = " ORDER BY NAZIONE DESC ";
$ordine[9] = " ORDER BY NAZIONE ASC ";
$ordine[10] = " ORDER BY INDIRIZZO DESC ";
$ordine[11] = " ORDER BY INDIRIZZO ASC ";

$a = rand 11;

if ($FORM{'B3'} ne '') {
$condizione = ' WHERE ';

if ($azienda ne '') {
   $azienda2 = '%'.$azienda.'%';
   if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';}
      $condizione = $condizione." RAGIONESOCIALE LIKE '$azienda2'";
   }

if ($keywords ne '') {
   $keywords2 = '%'.$keywords.'%';
   if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';}
      $condizione = $condizione." (PAROLECHIAVE LIKE '$keywords2' or DESCRIZIONEITA LIKE '$keywords2' or DESCRIZIONEENG LIKE '$keywords2' or DESCRIZIONESPA LIKE '$keywords2')";
   }

if ($categoria ne '') {
   if ($condizione ne ' WHERE ') {
      $condizione = $condizione." and ";}
    $condizione = $condizione." (CATEGORIA1 = '$categoria' or CATEGORIA2 = '$categoria' or CATEGORIA3 = '$categoria')";
    }

if ($citta ne '') {
   $citta2 = '%'.$citta.'%';
   if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';}
      $condizione = $condizione." CITTA LIKE '$citta2'";
   }

if ($nazione ne '') {
   if ($condizione ne ' WHERE ') {
      $condizione = $condizione." and ";}
    $condizione = $condizione." NAZIONE = '$nazione'";
    }

if ($marchi ne '') {
   $marchi2 = '%'.$marchi.'%';
   if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';}
      $condizione = $condizione." MARCHI LIKE '$marchi2'";
   }

   if ($cond2 ne '') {
      if ($condizione ne ' WHERE ') { $condizione = $condizione.' and';}
      $condizione = $condizione." (".$cond2.")";
   }
}

if (($condizione eq ' WHERE ') or ($condizione eq '')) { $condizione = "WHERE PAGA like 'si'";} else { $condizione = $condizione." and PAGA like 'si'";}


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

print "$heading";

print "<body topmargin=0 bgcolor=#E8E8E8 leftmargin=2 link=#305790 vlink=#4375C0 alink=#305790 text=#305790>
<table border=0 cellpadding=0 cellspacing=3 width=100%>
  <tr>
    <td width=100% bgcolor=#808080><font face=Verdana color=#FFFFFF><p align=center><strong>MEMBERS</strong></font></td>
  </tr>
</table>

<table border=0 cellspacing=0 width=100% bgcolor=#E6E6E6>
<form action=membersdisplay.cgi>
  <tr>
    <td width=100%><font face=Arial size=1 color=#000080>
    <strong>Azienda &nbsp;<input type=text name=azienda size=15>&nbsp;&nbsp;
    Testo &nbsp;<input type=text name=keywords size=15>&nbsp;&nbsp;
    Marchi &nbsp;<input type=text name=marchi size=15>&nbsp;&nbsp;
    Città &nbsp;<input type=text name=citta size=15></strong></font></td>
  </tr>
  <tr>
    <td width=100%><font face=Arial size=1 color=#000080><strong>Categoria &nbsp;
    <select name=categoria size=1>
      <option value></option>
      <option value=111>Trading Dettaglio</option>
      <option value=112>Trading Dettaglio Top Style</option>
      <option value=113>Trading Dettaglio Sportivo</option>
      <option value=114>Trading Dettaglio On-Line</option>
      <option value=120>Trading Gruppi di Acquisto</option>
      <option value=130>Trading Franchising</option>
      <option value=140>Trading Grossisti</option>
      <option value=150>Trading Grande Distribuzione</option>
      <option value=160>Trading Importatori</option>
      <option value=170>Trading Catene</option>
      <option value=211>Calzaturifici Bambino</option>
      <option value=212>Calzaturifici Neonato</option>
      <option value=213>Calzaturifici Giovane</option>
      <option value=221>Calzaturifici Donna Casual</option>
      <option value=222>Calzaturifici Donna Classica</option>
      <option value=223>Calzaturifici Donna Comfort</option>
      <option value=224>Calzaturifici Donna Mocassino</option>
      <option value=225>Calzaturifici Donna Sandali</option>
      <option value=226>Calzaturifici Donna Stivali</option>
      <option value=227>Calzaturifici Donna Topstyle</option>
      <option value=228>Calzaturifici Donna Tronchetti</option>
      <option value=229>Calzaturifici Donna Altro</option>
      <option value=231>Calzaturifici Uomo Casual</option>
      <option value=232>Calzaturifici Uomo Classica</option>
      <option value=233>Calzaturifici Uomo Comfort</option>
      <option value=234>Calzaturifici Uomo Mocassino</option>
      <option value=235>Calzaturifici Uomo Sandali</option>
      <option value=236>Calzaturifici Uomo Stivali</option>
      <option value=237>Calzaturifici Uomo Topstyle</option>
      <option value=238>Calzaturifici Uomo Tronchetti</option>
      <option value=239>Calzaturifici Uomo Altro</option>
      <option value=241>Calzaturifici Sportivi Auto &amp; Moto</option>
      <option value=242>Calzaturifici Sportivi Basket</option>
      <option value=243>Calzaturifici Sportivi Calcio</option>
      <option value=244>Calzaturifici Sportivi Ciclismo</option>
      <option value=245>Calzaturifici Sportivi Equitazione</option>
      <option value=246>Calzaturifici Sportivi Golf</option>
      <option value=247>Calzaturifici Sportivi Montagna</option>
      <option value=248>Calzaturifici Sportivi Training &amp; Jogging</option>
      <option value=249>Calzaturifici Sportivi Altro</option>
      <option value=251>Calzaturifici Altro Mare</option>
      <option value=252>Calzaturifici Altro Ortopediche</option>
      <option value=253>Calzaturifici Altro Pantofole</option>
      <option value=254>Calzaturifici Altro Sicurezza</option>
      <option value=255>Calzaturifici Altro Sposa</option>
      <option value=256>Calzaturifici Altro Professionali</option>
      <option value=257>Calzaturifici Altro Militari &amp; Polizia</option>
      <option value=259>Calzaturifici Altro</option>
      <option value=260>Calzaturifici Compagnie di Esportazione</option>
      <option value=311>Pelletterie Borse Classiche</option>
      <option value=312>Pelletterie Borse Lavoro</option>
      <option value=313>Pelletterie Borse Sportive</option>
      <option value=314>Pelletterie Borse Viaggio</option>
      <option value=320>Pelletterie Cinture</option>
      <option value=330>Pelletterie Guanti</option>
      <option value=340>Pelletterie Piccola Pelletteria</option>
      <option value=350>Pelletterie Promozionali</option>
      <option value=360>Pelletterie Valigerie</option>
      <option value=370>Pelletterie Abbigliamento</option>
      <option value=390>Pelletterie Altro</option>
      <option value=401>Componenti Accessori Fibbie</option>
      <option value=402>Componenti Accessori Maniglie</option>
      <option value=403>Componenti Accessori Occhielli</option>
      <option value=404>Componenti Accessori Ornamenti</option>
      <option value=405>Componenti Accessori Rivetti</option>
      <option value=406>Componenti Accessori Serrature</option>
      <option value=407>Componenti Accessori Tendiscarpe</option>
      <option value=409>Componenti Accessori Altro</option>
      <option value=411>Componenti Chimici Adesivi</option>
      <option value=412>Componenti Chimici Adesivi Termoplastici</option>
      <option value=413>Componenti Chimici Compounds</option>
      <option value=414>Componenti Chimici Finissaggio</option>
      <option value=419>Componenti Chimici Altro</option>
      <option value=421>Componenti Componenti Chiodi Viti Semenze</option>
      <option value=422>Componenti Componenti Etichette</option>
      <option value=423>Componenti Componenti Filati</option>
      <option value=424>Componenti Componenti Guardoli</option>
      <option value=425>Componenti Componenti Lacci e Stringhe</option>
      <option value=426>Componenti Componenti Plantari</option>
      <option value=427>Componenti Componenti Solette</option>
      <option value=428>Componenti Componenti Sottopiedi</option>
      <option value=429>Componenti Componenti Altro</option>
      <option value=431>Componenti Passamaneria Cerniere</option>
      <option value=432>Componenti Fasce Mignon</option>
      <option value=433>Componenti Passamaneria Nastri</option>
      <option value=434>Componenti Passamaneria Nastri elastici</option>
      <option value=439>Componenti Passamaneria Altro</option>
      <option value=440>Componenti Pellami Crosta Spalmata</option>
      <option value=441>Componenti Pellami Bovini</option>
      <option value=442>Componenti Pellami Croste</option>
      <option value=443>Componenti Pellami Cuoio</option>
      <option value=444>Componenti Pellami Rettili &amp; Esotici</option>
      <option value=445>Componenti Pellami Ovocaprini</option>
      <option value=446>Componenti Pellami Suini</option>
      <option value=447>Componenti Pellami Wet Blu</option>
      <option value=448>Componenti Pellami Rivenditori</option>
      <option value=449>Componenti Pellami Altro</option>
      <option value=451>Componenti Rinforzi Contrafforti Cuoio Salpa</option>
      <option value=452>Componenti Rinforzi Contrafforti e Puntali Lastre</option>
      <option value=453>Componenti Rinforzi Interfodere</option>
      <option value=454>Componenti Rinforzi Nastri</option>
      <option value=460>Componenti Sintetici Antiscivolo</option>
      <option value=461>Componenti Sintetici Cellulosici</option>
      <option value=462>Componenti Sintetici Cuoio Rigenerato</option>
      <option value=463>Componenti Sintetici Espansi</option>
      <option value=464>Componenti Sintetici Floccati</option>
      <option value=465>Componenti Sintetici Membrane &amp; Films</option>
      <option value=466>Componenti Sintetici PU Coagulati</option>
      <option value=467>Componenti Sintetici PVC Spalmati</option>
      <option value=468>Componenti Sintetici Tessuti non Tessuti</option>
      <option value=469>Componenti Sintetici Altro</option>
      <option value=470>Componenti Suole Cuoio</option>
      <option value=471>Componenti Suole Eva</option>
      <option value=472>Componenti Suole Gomma</option>
      <option value=473>Componenti Suole PU</option>
      <option value=474>Componenti Suole PVC</option>
      <option value=475>Componenti Suole TR</option>
      <option value=476>Componenti Tacchi</option>
      <option value=477>Componenti Suole Lastre</option>
      <option value=478>Componenti Suole &amp; Tacchi Materie Prime</option>
      <option value=479>Componenti Suole Altro</option>
      <option value=481>Componenti Tessuti Esterno</option>
      <option value=482>Componenti Tessuti Fodera</option>
      <option value=483>Componenti Tessuti Tecnici</option>
      <option value=491>Componenti Altro Imballi Cambrioni</option>
      <option value=492>Componenti Altro Carta</option>
      <option value=493>Componenti Altro Sacchetti</option>
      <option value=494>Componenti Altro Scatole</option>
      <option value=495>Componenti Altro Tomaie</option>
      <option value=498>Componenti Altro Rivenditori Componenti</option>
      <option value=499>Componenti Altro</option>
      <option value=500>Macchinari Calzatura</option>
      <option value=510>Macchinari Pelletteria</option>
      <option value=520>Macchinari Conceria</option>
      <option value=530>Macchinari Cad Cam</option>
      <option value=540>Macchinari Suole &amp; Tacchi</option>
      <option value=550>Macchinari Componenti</option>
      <option value=560>Macchinari Imballagio</option>
      <option value=570>Macchinari Ricambi &amp; Accessori</option>
      <option value=580>Macchinari Rivenditori</option>
      <option value=591>Macchinari Altro Laboratorio</option>
      <option value=592>Macchinari Altro Impiantistica</option>
      <option value=599>Macchinari Altro</option>
      <option value=611>Servizi Consulenti Line Builders</option>
      <option value=612>Servizi Consulenti Modellisti</option>
      <option value=613>Servizi Consulenti Stilisti</option>
      <option value=614>Servizi Consulenti Marketing</option>
      <option value=615>Servizi Consulenti Laboratori</option>
      <option value=616>Servizi Consulenti ISO</option>
      <option value=617>Servizi Consulenti Organizzazione</option>
      <option value=618>Servizi Consulenti Softwarehouse</option>
      <option value=621>Servizi Connessi Formifici</option>
      <option value=622>Servizi Connessi Fustellifici</option>
      <option value=623>Servizi Connessi Stampisti</option>
      <option value=624>Servizi Connessi Serigrafie</option>
      <option value=625>Servizi Connessi Alta Frequenza</option>
      <option value=628>Servizi Connessi Sviluppo Modelli</option>
      <option value=629>Servizi Connessi Altro</option>
      <option value=631>Servizi Lav. C/terzi Accoppiatura</option>
      <option value=632>Servizi Lav. C/terzi Ricamifici</option>
      <option value=633>Servizi Lav. C/terzi Tomaifici</option>
      <option value=634>Servizi Lav. C/terzi Trancerie</option>
      <option value=639>Servizi Lav. C/terzi Altro</option>
      <option value=641>Servizi Fornitori Vari Allestitori Stand</option>
      <option value=642>Servizi Fornitori Altro Computer</option>
      <option value=643>Servizi Fornitori Altro Mobili per Ufficio</option>
      <option value=644>Servizi Fornitori Altro Valigie Campionario</option>
      <option value=651>Servizi Logistica Spedizionieri</option>
      <option value=652>Servizi Logistica Corrieri Espressi</option>
      <option value=653>Servizi Logistica Agenti Doganali</option>
      <option value=654>Servizi Logistica Magazzini Doganali</option>
      <option value=655>Servizi Logistica Distribuzione</option>
      <option value=710>Agenti Calzature</option>
      <option value=720>Agenti Pelletterie</option>
      <option value=730>Agenti Componenti</option>
      <option value=740>Agenti Macchinari</option>
      <option value=750>Agenti Calzatura.com</option>
      <option value=790>Agenti Altro</option>
      <option value=811>Utilità Agenzie Viaggi</option>
      <option value=812>Utilità Agenzie Immobiliari</option>
      <option value=819>Utilità Agenzie Altro</option>
      <option value=820>Utilità Associazioni</option>
      <option value=830>Utilità Fiere</option>
      <option value=840>Utilità Hotel</option>
      <option value=841>Utilità Ristoranti</option>
      <option value=850>Utilità Istituzioni</option>
      <option value=860>Utilità Portali</option>
      <option value=870>Utilità Scuole</option>
      <option value=880>Utilità Stampa</option>
      <option value=890>Utilità Altro</option></select>&nbsp;&nbsp;
      Nazione &nbsp;<select name=nazione size=1>
      <option value></option>
      <option value=1>Afghanistan</option>
      <option value=2>Albania</option>
      <option value=3>Algeria</option>
      <option value=4>American Samoa</option>
      <option value=5>Andorra</option>
      <option value=6>Angola</option>
      <option value=7>Anguilla</option>
      <option value=8>Antarctica</option>
      <option value=9>Antartica-Casey</option>
      <option value=10>Antartica-Davis</option>
      <option value=11>Antartica-Mawson</option>
      <option value=12>Antigua and Barbuda</option>
      <option value=13>Argentina</option>
      <option value=14>Armenia</option>
      <option value=15>Aruba</option>
      <option value=16>Ascension</option>
      <option value=17>Australia</option>
      <option value=18>Austria</option>
      <option value=19>Azerbaijan</option>
      <option value=20>Bahamas</option>
      <option value=21>Bahrain</option>
      <option value=22>Bangladesh</option>
      <option value=23>Barbados</option>
      <option value=24>Belarus</option>
      <option value=25>Belgium</option>
      <option value=26>Belize</option>
      <option value=27>Benin</option>
      <option value=28>Bermuda</option>
      <option value=29>Bhutan</option>
      <option value=30>Bolivia</option>
      <option value=31>Bosnia Herzegowina</option>
      <option value=32>Botswana</option>
      <option value=33>Bouvet Island</option>
      <option value=34>Brazil</option>
      <option value=35>British Indian Ter.</option>
      <option value=36>Brunei Darussalam</option>
      <option value=37>Bulgaria</option>
      <option value=38>Burkina Faso</option>
      <option value=39>Burundi</option>
      <option value=40>Cambodia</option>
      <option value=41>Cameroon</option>
      <option value=42>Canada</option>
      <option value=43>Cape Verde</option>
      <option value=44>Cayman Islands</option>
      <option value=45>Central African Rep.</option>
      <option value=46>Chad</option>
      <option value=47>Chile</option>
      <option value=48>China</option>
      <option value=49>Christmas Isl.</option>
      <option value=50>Cocos Keeling Isl.</option>
      <option value=51>Colombia</option>
      <option value=52>Comoros</option>
      <option value=53>Congo</option>
      <option value=54>Cook Islands</option>
      <option value=55>Costa Rica</option>
      <option value=56>Croatia</option>
      <option value=57>Cuba</option>
      <option value=58>Cyprus</option>
      <option value=59>Czech Republic</option>
      <option value=60>Dem. Rep. Congo</option>
      <option value=61>Denmark</option>
      <option value=62>Diego Garcia</option>
      <option value=63>Djibouti</option>
      <option value=64>Dominica</option>
      <option value=65>Dominican Rep.</option>
      <option value=66>East Timor</option>
      <option value=67>Ecuador</option>
      <option value=68>Egypt</option>
      <option value=69>El Salvador</option>
      <option value=70>Equatoria Guinea</option>
      <option value=71>Eritrea</option>
      <option value=72>Estonia</option>
      <option value=73>Ethiopia</option>
      <option value=74>Falkland Isl.</option>
      <option value=75>Faroe Islands</option>
      <option value=76>Fiji</option>
      <option value=77>Finland</option>
      <option value=78>France</option>
      <option value=79>France Metropolitan</option>
      <option value=80>Frech South. Terr.</option>
      <option value=81>French Guiana</option>
      <option value=82>French Polynesia</option>
      <option value=83>Gabon</option>
      <option value=84>Gambia</option>
      <option value=85>Georgia</option>
      <option value=86>Germany</option>
      <option value=87>Ghana</option>
      <option value=88>Gibraltar</option>
      <option value=89>Greece</option>
      <option value=90>Greenland</option>
      <option value=91>Grenada</option>
      <option value=92>Guadeloupe</option>
      <option value=93>Guam</option>
      <option value=94>Guatemala</option>
      <option value=95>Guinea</option>
      <option value=96>Guinea Rep.</option>
      <option value=97>Guinea-Bissau</option>
      <option value=98>Guyana</option>
      <option value=99>Haity</option>
      <option value=100>Heard Mc Donald Isl.</option>
      <option value=101>Honduras</option>
      <option value=102>Hong Kong</option>
      <option value=103>Hungary</option>
      <option value=104>Iceland</option>
      <option value=105>Inamrsat Indiano</option>
      <option value=106>India</option>
      <option value=107>Indonesia</option>
      <option value=108>Inmarsat Atl.o Est</option>
      <option value=109>Inmarsat Atl. Ovest</option>
      <option value=110>Inmarsat Pacifico</option>
      <option value=111>Iran</option>
      <option value=112>Iraq</option>
      <option value=113>Ireland</option>
      <option value=114>Isle of Man</option>
      <option value=115>Israel</option>
      <option value=116>Italy</option>
      <option value=117>Ivory Coast</option>
      <option value=118>Jamaica</option>
      <option value=119>Japan</option>
      <option value=120>Jordan</option>
      <option value=121>Kazakhstan</option>
      <option value=122>Kenya</option>
      <option value=123>Kiribati</option>
      <option value=124>Kuwait</option>
      <option value=125>Kyrgystan</option>
      <option value=126>Laos</option>
      <option value=127>Latvia (Lettonia)</option>
      <option value=128>Lebanon</option>
      <option value=129>Lesotho</option>
      <option value=130>Liberia</option>
      <option value=131>Libya</option>
      <option value=132>Liechtenstein</option>
      <option value=133>Lithuania</option>
      <option value=134>Luxembourg</option>
      <option value=135>Macau</option>
      <option value=136>Macedonia</option>
      <option value=137>Madagascar</option>
      <option value=138>Malawi</option>
      <option value=139>Malaysia</option>
      <option value=140>Maldives</option>
      <option value=141>Mali</option>
      <option value=142>Malta</option>
      <option value=143>Marshall Isl.</option>
      <option value=144>Martinique</option>
      <option value=145>Mauritania</option>
      <option value=146>Mauritius</option>
      <option value=147>Mayotte</option>
      <option value=148>Mexico</option>
      <option value=149>Micronesia</option>
      <option value=150>Moldova</option>
      <option value=151>Monaco</option>
      <option value=152>Mongolia</option>
      <option value=153>Montserrat</option>
      <option value=154>Morocco</option>
      <option value=155>Mozambique</option>
      <option value=156>Myanmar</option>
      <option value=157>Namibia</option>
      <option value=158>Nauru</option>
      <option value=159>Nepal</option>
      <option value=160>Netherlands</option>
      <option value=161>Netherlands Antilles</option>
      <option value=162>New Caledonia</option>
      <option value=163>New Zealand</option>
      <option value=164>Nicaragua</option>
      <option value=165>Niger</option>
      <option value=166>Nigeria</option>
      <option value=167>Niue</option>
      <option value=168>Norfolk Island</option>
      <option value=169>North Korea</option>
      <option value=170>Northern Mariana Isl.</option>
      <option value=171>Norway</option>
      <option value=172>Oman</option>
      <option value=173>Pakistan</option>
      <option value=174>Palau</option>
      <option value=175>Panama</option>
      <option value=176>Papua New Guinea</option>
      <option value=177>Paraguay</option>
      <option value=178>Pasqua Island</option>
      <option value=179>Peru</option>
      <option value=180>Philippines</option>
      <option value=181>Pitcairn</option>
      <option value=182>Poland</option>
      <option value=183>Portugal</option>
      <option value=184>Puerto Rico</option>
      <option value=185>Qatar</option>
      <option value=186>Resto del mondo</option>
      <option value=187>Reunion</option>
      <option value=188>Romania</option>
      <option value=189>Russian Fed.</option>
      <option value=190>Rwanda</option>
      <option value=191>St Helena</option>
      <option value=192>St Kitts Nevis</option>
      <option value=193>St Lucia</option>
      <option value=194>St Pierre Miquelon</option>
      <option value=195>St Vincent Grenadines</option>
      <option value=196>Samoa</option>
      <option value=197>San Marino</option>
      <option value=198>Sao TomePrincipe</option>
      <option value=199>Saudi Arabia</option>
      <option value=200>Senegal</option>
      <option value=201>Seychelles</option>
      <option value=202>Sierra Leone</option>
      <option value=203>Singapore</option>
      <option value=204>Slovakia</option>
      <option value=205>Slovenia</option>
      <option value=206>Solomon Islands</option>
      <option value=207>Somalia</option>
      <option value=208>South Africa</option>
      <option value=209>South Georgia</option>
      <option value=210>South Korea</option>
      <option value=211>Spain</option>
      <option value=212>Sri Lanka</option>
      <option value=213>Sudan</option>
      <option value=214>Suriname</option>
      <option value=215>Svalbard Jan Mayen</option>
      <option value=216>Swaziland</option>
      <option value=217>Sweden</option>
      <option value=218>Switzerland</option>
      <option value=219>Syria</option>
      <option value=220>Taiwan</option>
      <option value=221>Tajikistan</option>
      <option value=222>Tanzania</option>
      <option value=223>Thailand</option>
      <option value=224>Togo</option>
      <option value=225>Tokelau</option>
      <option value=226>Tonga</option>
      <option value=227>Trinidad Tobago</option>
      <option value=228>Tunisia</option>
      <option value=229>Turkey</option>
      <option value=230>Turkmenistan</option>
      <option value=231>Turks Caicos Isl.</option>
      <option value=232>Tuvalu</option>
      <option value=233>Uganda</option>
      <option value=234>Ukraine</option>
      <option value=235>United Arab Emirates</option>
      <option value=236>United Kingdom</option>
      <option value=237>United States</option>
      <option value=238>United States Min.</option>
      <option value=239>Uruguay</option>
      <option value=240>Uzbekistan</option>
      <option value=241>Vanuatu</option>
      <option value=242>Vatican City State</option>
      <option value=243>Venezuela</option>
      <option value=244>Viet Nam</option>
      <option value=245>Virgin Islands</option>
      <option value=246>Virgin Islands USA</option>
      <option value=247>Wallis And Futuna Islands</option>
      <option value=248>Western Sahara</option>
      <option value=249>Yemen</option>
      <option value=250>Yugoslavia</option>
      <option value=251>Zambia</option>
      <option value=252>Zimbabwe</option></select>&nbsp;<input type=submit value=GO name=B3></td>
    </form>
  </tr>
</table>";

######### VISUALIZZAZIONE #########

# Open DB connection
$dbh = DBI->connect("DBI:mysql:calzatura_com_calzatura:mysql.register.it", GS1219_CALZATURA, michela);
if (!dbh) { print "Errore!"; }

$count = $dbh->do("SELECT * FROM Base
                   $condizione");

if ($count < 1) {
   print "<body topmargin=0 bgcolor=#E8E8E8 leftmargin=2 link=#305790 vlink=#4375C0 alink=#305790 text=#305790>

<p>&nbsp;</p>
<p align=center><b><font face=Arial>RICERCA IMMEDIATA</font></b></p>
<div align=center>
  <center>
  <table border=0 cellspacing=0 style=border-collapse: collapse bordercolor=#111111 width=100% id=AutoNumber1>
    <tr>
      <td width=1% valign=top bgcolor=#C8DCF0><img
    src=http://www.calzatura.com/images/angle1.gif width=7 height=8></td>
      <td width=98% valign=top bgcolor=#C8DCF0>&nbsp;</td>
      <td width=1% valign=top align=right bgcolor=#C8DCF0><img
    src=http://www.calzatura.com/images/angle2.gif width=7 height=8></td>
    </tr>
    <tr>
      <td width=1% bgcolor=#C8DCF0>&nbsp;</td>
      <td width=98%>
      <p align=center><br>
      <br>      <b><small><font face=Arial><u><em>ATTENZIONE:</em></u></font></small></b></p>
      <p align=center><em style=font-style: normal>
      <font face=Arial style=font-size: smaller>La ricerca effettuata ha 
      trovato:&nbsp; <b>0 Nominativi</b></font></em></p>
      <p align=center><em><font face=Arial style=font-size: smaller>Prova 
      ad effettuare una nuova ricerca</font></em><i><br>
      </i><br>
&nbsp;</td>
      <td width=1% align=right bgcolor=#C8DCF0>&nbsp;</td>
    </tr>
    <tr>
      <td width=1% valign=bottom bgcolor=#C8DCF0><img
    src=http://www.calzatura.com/images/angle3.gif width=7 height=8></td>
      <td width=98% valign=bottom bgcolor=#C8DCF0>&nbsp;</td>
      <td width=1% valign=bottom align=right bgcolor=#C8DCF0><img
    src=http://www.calzatura.com/images/angle4.gif width=7 height=8></td>
    </tr>
  </table>
  </center>
</div></body>";
exit;

print "$footing";

}

$pagina       = $FORM{'pagina'};
$iniziopagina = $FORM{'iniziopagina'};

if ($pagina eq '') {
   $pagina = 1;
}

if ($iniziopagina eq '') {
   $iniziopagina = 1;
}

if ($pagina < $iniziopagina) {
   $pagina = $iniziopagina;
}

$inizio = ($pagina * 10) - 10;
$fine = 10;

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,
                                 USER, PASSWORD, PAROLECHIAVE, PAGA, IMMAGINE, LINGUA,
                                 LINGUADESC, DESCRIZIONE, FIERE
                          FROM Base $condizione
                          $ordine[$a] LIMIT $inizio,10");

my $return = $stat->execute;

if ($count > 0) {
   $npag = int($count/10);
   if ($npag < ($count/10)) {
      $npag = $npag + 1;
   }
}

print "<div align=center><center>
       <table border=0 cellpadding=0 cellspacing=0 width=100%><tr>
       <td width=50% align=left><small><font face=Arial>Pag. <strong>$pagina</strong> di <strong>$npag</strong></font></small></td>
       <td width=50% align=right><font face=Arial size=1 color=#000080>Pag.&nbsp;&nbsp;</font>";

if ($iniziopagina > 1) {
    $iniziopaginanew = $iniziopagina - 10;
    print "<small><font face=Arial>[<a href=membersdisplay.cgi?keywords=$keywords&categoria=$categoria&marchi=$marchi&nazione=$nazione&citta=$citta&azienda=$azienda&ordine=$ordine&condizione=$condizione&pagina=$iniziopaginanew&iniziopagina=$iniziopaginanew>prec</a>]&nbsp;</font></small>";
}

$init = $iniziopagina;
until (($init > $npag) || ($init > ($iniziopagina + 10)) || ($npag == 1)) {
    print "<small><font face=Arial><a href=membersdisplay.cgi?keywords=$keywords&categoria=$categoria&marchi=$marchi&nazione=$nazione&citta=$citta&azienda=$azienda&ordine=$ordine&condizione=$condizione&pagina=$init&iniziopagina=$iniziopagina>$init</a>&nbsp;</font></small>";
    $init = $init + 1;
}

if ($init < $npag) {
    $iniziopaginanew = $iniziopagina + 10;
    print "<small><font face=Arial>[<a href=membersdisplay.cgi?keywords=$keywords&categoria=$categoria&marchi=$marchi&nazione=$nazione&citta=$citta&azienda=$azienda&ordine=$ordine&condizione=$condizione&pagina=$iniziopagina&iniziopagina=$iniziopaginanew>succ</a>]&nbsp;</font></small>";
}

print "</td></table>";

	unless (open (DATA,"/easysearch/password.txt")) {die (&error);}
		if ($uselock eq '1') {
			flock DATA, 2;
			seek DATA, 0, 0;
		}
		@input = <DATA>;
		if ($uselock eq '1') {
			flock DATA, 8;
		}
                $currentline = @input;
	close (DATA);

while (($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, $user, $password,
$parolechiave, $paga, $immagine, $lingua, $linguadesc, $descrizione, $fiere) = $stat->fetchrow_array) {

$i = $currentline;
$trovato = 'no';
$ident = '';

$esiste = '';

($esiste) = $dbh->selectrow_array("SELECT NOME FROM Myway WHERE PASSWORD like '$password'");

$urlnazione = '';

if ($nazione ne '') {
   ($nomenazione,$urlnazione) = $dbh->selectrow_array("SELECT NAZIONE, IMMAGINE FROM Nazioni WHERE ID='$nazione'");
}

if ($citta ne '') {
   ($cittaimg) = $dbh->selectrow_array("SELECT IMG FROM Mappy WHERE CITTA='$citta'");
}

print "<body topmargin=0 bgcolor=#E8E8E8 leftmargin=2 link=#305790 vlink=#4375C0 alink=#305790 text=#305790>
<div align=center><center>

<table border=0 cellspacing=0 width=100% height=1 cellpadding=0>
  <tr>
    <td width=2% valign=top height=3></td>
    <td width=10% height=3></td>
    <td width=79% height=3>&nbsp; </td>
    <td width=2% align=right valign=top height=3></td>
  </tr>
  <tr>
    <td width=2% valign=top bgcolor=#C8DCF0 height=1><img src=http://www.calzatura.com/images/angle1.gif width=7 height=8></td>
    <td width=10% height=1 bgcolor=#C8DCF0 valign=middle>";

if ($urlnazione =~ 'http') {
        print "<p align=right><img src=$urlnazione width=18 height=12 border=0 alt='$nomenazione'>&nbsp;</p>";
}

print "</td>
    <td width=79% height=1 bgcolor=#C8DCF0 rowspan=2>
<table border=0 width=100% cellspacing=0 cellpadding=0 height=11>
  <tr>
    <td width=66% height=11><font face=Arial size=2><b>&nbsp;";

$visuale = $rag;

if ($esiste ne '') { 
$collegamyway = "http://www.calzatura.com/".$esiste.".it";
}

if (($url eq '') && ($esiste ne '')) {
   $url = $collegamyway;
}

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

if ($url ne '') { 
print "<a href=$url target=_blank>$visuale </a></b>"; 
}
else { 
print "$visuale </b>";
}

print " </font></td><td width=33% height=11 valign=middle>
<a href=http://www.calzatura.com/cgi-bin/search/AReasydisp.cgi?user1=$user1&psw1=&numero1=$id target=_blank><img src=http://www.calzatura.com/images/search/view.gif alt='VISUALIZZA' border=0></a>&nbsp;
<a href=http://www.calzatura.com/cgi-bin/search/vcard.cgi?numero=$id target=_blank><img src=http://www.calzatura.com/images/search/vcard.gif alt=VCARD border=0></a>&nbsp;";
 
if ($marchi ne '') {
print "<a href=http://www.calzatura.com/cgi-bin/search/easydispmark.cgi?user1=$user1&psw1=$psw1&numero1=$id target=_blank><img src=http://www.calzatura.com/images/search/registered.gif alt=MARCHI border=0></a>&nbsp;";
}

if ($mail =~ '\@') {
print " <a href=http://www.calzatura.com/cgi-bin/search/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=MAIL border=0></a>&nbsp;";
}

if ($url ne '') {
print "<a href=$url target=_blank><img src=http://www.calzatura.com/images/search/url.gif alt=URL border=0></a>&nbsp;";
}

if ($esiste ne '') {
        $collegamyway = "http://www.calzatura.com/".$esiste.".it";
        print "<a href=$collegamyway target=_blank><img src=http://www.calzatura.com/images/iconamyway.gif width=18 height=18 alt='SITO su MYWAY' border=0></a>&nbsp;";
}

if ($cittaimg ne '') {
        print "<a href=http://www.calzatura.com/cgi-bin/search/AReasydispmappy.cgi?user1=$user1&psw1=&numero1=$id target=_blank><img src=http://www.calzatura.com/images/search/mappy.gif width=18 height=18 alt='MAPPA CITTA' border=0></a>&nbsp;";
}

if ($paga eq 'si') {
   print "<img src=http://www.calzatura.com/images/search/member.gif width=18 height=18 alt='MEMBRO DI CALZATURA.COM'>&nbsp;";
}

print "</td>
    <td width=15% height=11><p align=center><font face=Verdana color=#575757 size=1><strong>$click</strong></font></td>
  </tr>
</table>
    </td>
    <td width=2% align=right valign=top bgcolor=#C8DCF0 height=1><img src=http://www.calzatura.com/images/angle2.gif width=11 height=12></td>
  </tr>
  <tr>
    <td width=2% bgcolor=#C8DCF0 height=1></td>
    <td width=10% height=1 bgcolor=#E1E1E1 rowspan=2 valign=top><font face=Arial size=3> ";

####################################
if (($immagine =~ 'http://') && ($url ne '')) {
print" <a href=$url target=_blank><img SRC=$immagine ALT='$rag' width=120 height=60 BORDER=0></a>";
   }

if (($immagine =~ 'http://') && ($url eq '')) {
print" <img SRC=$immagine ALT='$rag' width=120 height=60 BORDER=0></a>";
   }

if (($immagine !~ 'http://') && ($url ne '')) {
$immagine = 'http://www.calzatura.com/images/banner/banner_motore/clicca.gif';
print" <a href=$url target=_blank><img SRC=$immagine ALT='$rag' width=120 height=60 BORDER=0></a>";
   }

if (($immagine !~ 'http://') && ($url eq '')) {
$immagine = 'http://www.calzatura.com/images/banner/banner_motore/clicca.gif';
print" <img SRC=$immagine ALT='$rag' width=120 height=60 BORDER=0></a>";
   }

print "</font></td>
    <td width=2% align=right bgcolor=#C8DCF0 height=1></td>
  </tr>
  <tr>
    <td width=2% bgcolor=#C8DCF0 height=21></td>
    <td width=79% height=21 bgcolor=#E1E1E1>
<table border=0 width=100% cellspacing=0 cellpadding=5>
  <tr>
    <td width=100%><font face=Arial size=2>";

$dita = substr($descrizioneita,0,200);
$dita = $dita." ...";

$deng = substr($descrizioneeng,0,200);
$deng = $deng." ...";

$dspa = substr($descrizionespa,0,200);
$dspa = $dspa." ...";

$dport = substr($descrizioneport,0,200);
$dport = $dport." ...";

$dling = substr($descrizione,0,200);
$dling = $dling." ...";

if ($descrizioneita ne '') { print " $dita"; }
else { if ($descrizioneeng ne '') { print " $deng"; }
         else { if ($descrizionespa ne '') { print " $dspa"; }  
                else { if ($descrizioneport ne '') { print " $dport"; }
                      else { if ($descrizione ne '') { print " $dling"; }
                      }
                 }
         }
}

print "</font></td>
  </tr>
</table></td>
    <td width=2% align=right bgcolor=#C8DCF0 height=21></td>
  </tr>
  <tr>
    <td width=2% valign=bottom bgcolor=#C8DCF0 height=1><img src=http://www.calzatura.com/images/angle3.gif width=11 height=12></td>
    <td width=10% height=1 bgcolor=#C8DCF0></td>
    <td width=79% height=1 bgcolor=#C8DCF0></td>
    <td width=2% align=right valign=bottom bgcolor=#C8DCF0 height=1><img src=http://www.calzatura.com/images/angle4.gif width=11 height=12></td>
  </tr>
</table>";
}

print "</body>";

print "$footing";

$dbh->disconnect;

exit;

##################################################################################


sub error {    
	$noshow = 1;
	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;
}