
05/06/2002, 14:02
|
| | Fecha de Ingreso: junio-2002
Mensajes: 4
Antigüedad: 22 años, 9 meses Puntos: 0 | |
Re: Leanlo Por favor y ayudenme es PERL HTML ACCESS Epa viejo pero listo coloco eso y lo de la carpeta esa, mas o menos se por donde, pero dejo el resto como esta, por que el chop es para digitarlos y entrarlos por DOS pero como hago para que el tome esos datos de la pagina web. en alguna parte lei que depronto se hacia asi. no se... ayudeme, a y que quiere decir print "Content-type: text/html\n\n"; ...
----- El Codigo -----
print "Content-type: text/html\n\n";
use Win32::ODBC;
$base=new Win32::ODBC("DSN=BibVir");
$Nombre = $base->param ('Nombre');
$DocIde = $base->param ('DocIde');
$Colegio = $base->param ('Colegio');
$Codigo = $base->param ('Codigo');
if ($Codigo eq $Codigo)
{
$insercion="insert into Usuarios values ('$Nombre','$DocIde','$Colegio','$Codigo')";
$base->Sql($insercion);
}
else
{
print "El Codigo es Diferente";
}
$base->Close(); :) :) :) |