#!/usr/bin/perl print "Content-type: text/html\n\n"; $database = "catalogo"; #just the name of the file $data_location = "/home/.sites/148/site16/web/ofertas"; print "ALQUBILBO S.L. - RENT A CAR
\n"; print "

ALQUIBILBO S.L.

 

PRODUCTO
DESCRIPCION
PRECIO
\n"; open(DATABASE , "$data_location/$database"); while () { $row = $_; chop $row; @fields = split (/\|/, $row); $cuentaseparaciones++; print "\n"; $count=0; foreach $fields(@fields) { $campo++; print "\n";} if ($campo == 2){print "width=\"250\">$fields\n";} if ($campo == 3){print "width=\"100\" align=center>$fields\n";} # --------------------------------------------------------- $count++; } print "\n"; $campo=0; } close (DATABASE); $count=0; foreach $split_table_fields (@split_table_fields) { if ($form{$count} ne "") { print "";} $count++; } print "
$fields

 

\"Alquiler

[Home] [Turismos] [Industriales] [Reservas] [Ofertas] [Condiciones]

 

\n";