- Código: Seleccionar todo
sub corres {
$rsF=Pg_VB->new();
$rsF->connectdb('dbname=dbname');
print <<"--FIN--";
<html>
<head>
<script language='JavaScript'>
function recarga(){
label = top.opener.document.MyForm.valor.value;
alert("label" + label);
$rsF->execute("select * from folios2 where label = '"+label+"'");
$folio = $rsF->itemvalue('id');-
location.href="https://folios.cgi?folio=$folio";
}
</script>
</head>
<body onload='recarga()'>
</body >
</html>
--FIN--
}