Using perl Syntax Highlighting
use DBI;
use encoding "iso-8859-1";
$sqlcambiop="UPDATE avisos SET categoria=? WHERE referencia=?";
$sthcambiop= $dbh->prepare($sqlcambiop);
$ref=1;
$frase= "Un niño aniñado día";
print "$frase";
$sthcambio->execute($frase,$ref);
use encoding "iso-8859-1";
$sqlcambiop="UPDATE avisos SET categoria=? WHERE referencia=?";
$sthcambiop= $dbh->prepare($sqlcambiop);
$ref=1;
$frase= "Un niño aniñado día";
print "$frase";
$sthcambio->execute($frase,$ref);
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4