Bueno ya hiciste esta misma pregunta y te digo lo que necesitas es escribir la cabecera del tipo mime que vas a sacar en tu caso html sería:
Código:
print "Content-type: text/html\n\n";
y luego puedes escribir código html:
Código:
print "<html><head><title>Repuesta</title></head>";
print "<body>$db</body></html>";#$db es una variable de tú código
Para sacar los resultados de una consulta mysql sería algo parecido a esto:
Código:
print "Content-type: text/html\n\n";
print "<html>";
print "<body>";
print "Consulta sql a la tabla test<br>";
$qyh = &execQuery("select * from test");
print "el numero de registros es :".$qyh->rows;
print "<table border=1 align='center'>";
while(@tabla = $qyh->fetchrow_array){
print "<tr>"
foreach @tabla {
print "<td>$_</td>\n";
}
print "</tr>";
}
print "</table>";
print "</body></html>";
$qyh->finish;
#funcion que ejecuta la consulta
sub execQuery
{
local($sth);
my $com = $_[0] if $_[0];
eval{$sth = $dbh->prepare($com); };
if ($@)
{ $dbh->disconnect;
die $@;
}
else
{
$sth->execute
or die "$DBI::errstr";
}
return ($sth);
}
<img src="http://www.fiestacom.com/edit.gif" alt="Edit Editor"> <font face="Symbol">"<font size="7">S[/CODE][/CODE]<font size="6" face="Tahoma">
J[/CODE]
