Código:
print "<tr>";
print "<td width=\"15%\" bgcolor=\"#003366\"><font face=\"Tahoma\" size=\"-1\" color=white></b></font></td>";
#ESTA CELDA NO IMPRIME NADA, para colmo está mal el HTML porque pone el </b> pero nunca abrió esa etiqueta !!!!!
print "<td width=\"85%\"><font face=\"Tahoma\" size=\"-1\" color=black>";
if ((@NombreCampo[$i] eq "Email")) {
print "<a href=\"mailto:$dato\"><font face=\"Tahoma\" size=\"-1\" color=\"blue\"><u>";
}
print $dato;
#acá si se imprime el dato.
if ((@NombreCampo[$i] eq "PAGINA")) {
print "</u></font></a>";
}
print "</td></tr>";
}
Para hacerlo fácil...lo cambiaría
Código:
print "<tr>";
print "<td width=\"15%\" bgcolor=\"#003366\"><font face=\"Tahoma\" size=\"-1\" color=white></b></font></td>";
#ESTA CELDA NO IMPRIME NADA, para colmo está mal el HTML porque pone el </b> pero nunca abrió esa etiqueta !!!!!
print "<td width=\"85%\"><font face=\"Tahoma\" size=\"-1\" color=black>";
if ((@NombreCampo[$i] eq "Email")) {
print "<a href=\"mailto:$dato\"><font face=\"Tahoma\" size=\"-1\" color=\"blue\"><u>";
}
print $dato;
print "$NombreCampo[0] : $FLD[0]";
print "$NombreCampo[1] : $FLD[1]";
print "$NombreCampo[2] : $FLD[2]";
print "$NombreCampo[3] : $FLD[3]";
#acá imprimimos todos los campos que tienes el registro (4) que están en el archivo separados por ; como ser esteban;[email protected];argentina;buenos aires
if ((@NombreCampo[$i] eq "PAGINA")) {
print "</u></font></a>";
}
print "</td></tr>";
}
Ahora bien, a esas variables que imprimes le puedes dar el formato que quieras, si quieres una tabla de 4x2 sería algo así:
Código:
<table width=\"80\%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
<tr>
<td>$NombreCampo[0]</td>
<td>$FLD[0]</td>
</tr>
<tr>
<td>$NombreCampo[1]</td>
<td>$FLD[1]</td>
</tr>
<tr>
<td>$NombreCampo[2]</td>
<td>$FLD[2]</td>
</tr>
<tr>
<td>$NombreCampo[3]</td>
<td>$FLD[3]</td>
</tr>
</table>
Bueno, espero que te sirva y cuentame si te funcionó...
Saludos