Ver Mensaje Individual
  #3 (permalink)  
Antiguo 05/06/2002, 14:02
Darwin
 
Fecha de Ingreso: junio-2002
Mensajes: 4
Antigüedad: 21 años, 11 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(); :) :) :)