There has been an error with the web site
you were using, please contact that web master
with this. You were never supposed to see
this output, as it was for web site debugging
only, and the web site is misconfigured.
--Joshua
Christian Callejon wrote:
>
> Hello, i dont undestand this error....
>
> please HELP ME..!!
>
> TKS
>
> Errors Output
>
> > Falla al preparar SELECT * from registrado
> , /usr/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1142
>
> Debug Output
>
> > STARTING ASP HANDLER (v0.17) for file
> /usr/apache/htdocs/christian/inicio.html
> > GlobalASA package Apache::ASP::Demo
> > ASP object created - GlobalASA:
> Apache::ASP::GlobalASA=HASH(0x83ba764); Request:
> Apache::ASP::Request=HASH(0x842348c); Response:
> Apache::ASP::Response=HASH(0x8428ff8); Server:
> Apache::ASP::Server=HASH(0x81b4720); app_state: 1; basename:
> inicio.html; buffering_on: 0; cgi_headers: 0; clean: 0;
> compile_includes: 0; dbg: 2; debugs_output: ARRAY(0x83c74e4); errs: 0;
> filename: /usr/apache/htdocs/christian/inicio.html; global:
> /usr/apache/htdocs/christian//.; global_package: Apache::ASP::Demo; id:
> NoCache; includes_dir: ; init_packages: ARRAY(0x83bc95c); mail_alert_to:
> ; mail_errors_to: ; mtime: 942863737; no_cache: 1; no_session: 0;
> no_state: 1; package: Apache::ASP::Demo; pod_comments: 1; r:
> Apache=SCALAR(0x83197e4); stat_inc: 1; stat_inc_match: zzz;
> unique_packages: 0;
> > parsing inicio.html
> > active undefing sub Apache::ASP::Demo::NoCache code CODE(0x840de88)
> before compiling
> > compiling into package Apache::ASP::Demo subid
> Apache::ASP::Demo::NoCache
> > executing NoCache
> > Falla al preparar SELECT * from registrado
> , /usr/lib/perl5/site_perl/5.005/Apache/ASP.pm line 1142
>
> Last 100 Bytes of Buffered Output
>
> tle>CLASIfacil</title>
> </head>
> <body>
>
> <center><img SRC="menusup.gif" height=94 width=489></center>
>
> ASP to Perl Program
>
> 1: package Apache::ASP::Demo; ;; no strict; ;; use vars
> qw($Application $Session $Response $Server $Request); ;; sub
> Apache::ASP::Demo::NoCache { ;; return(1) unless $_[0]; ;;
> 2: $Response->{Buffer}=1;
> 3: $Response->Write('
> 4: <!doctype html public "-//w3c//dtd html 4.0 transitional//en">
> 5: <html>
> 6: <head>
> 7: <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1">
> 8: <meta name="Author" content="Christian Callejon - W3 Consulting
> Group (c)1999">
> 9: <meta name="GENERATOR" content="Mozilla/4.5 [es] (Win98; I)
> [Netscape]">
> 10: <title>CLASIfacil</title>
> 11: </head>
> 12: <body>
> 13:
> 14: <center><img SRC="menusup.gif" height=94 width=489></center>
> 15: ');
> 16:
> 17: $usuario = $Request->Form('use');
> 18: $password = $Request->Form('pas');
> 19: $validacion="";
> 20: $user="informix";
> 21: $passmm="informix";
> 22: $database="/home/informix/clasifacil\@christian";
> 23: $sql="SELECT * from registrado";
> 24: die "Falla al conectar db \n"
> 25: unless ($dbh=DBI->connect("dbi:Informix:$database",$user,$passmm));
>
> 26: die "Falla al preparar $sql \n"
> 27: unless ($sth=$dbh->prepare($sql));
> 28: $sth->execute();
> 29: @name = @{$sth->{NAME}}; # Column names
> 30: while(@row=$sth->fetchrow)
> 31: {
> 32:
> 33: $us=@row[2];
> 34: $pa=@row[3];
> 35:
> 36:
> 37:
> 38: if ($us eq $usuario) {
> 39:
> 40: if ($pa eq $password) {
> 41: $validacion= @row[4].@row[5];
> 42: }
> 43: }
> 44:
> 45: }
> 46:
> 47:
> 48: if ($validacion){
> 49: print "<center><font size=+1><font
> color=\"\#000000\">Bienvenido<br>",$validacion,"</font></font></center>";
>
> 50: } else {
> 51: $url="error.html";
> 52: $Response->Redirect($url);
> 53: }
> 54:
> 55:
> 56: $Response->Write('
> 57:
> 58:
> 59:
> 60:
> 61:
> 62:
> 63:
> 64:
> 65: <center><table WIDTH="608" >
> 66: <tr>
> 67: <td WIDTH="143">
> 68: <center><table BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%"
> BGCOLOR="#408080" >
> 69: <tr>
> 70: <td WIDTH="100%"><font color="#FFFFFF">Bienvenido:</font>
> 71:
> 72: <br>
> 73: <br>
> 74: <br>
> 75: <br><font color="#FFFFFF"></font> </td>
> 76: </tr>
> 77: </table></center>
> 78: </td>
> 79:
> 80: <td WIDTH="457" BGCOLOR="#EBEBEB"><img SRC="avisosclasificados.gif"
> ALT="avisosclasificados.gif (1276 bytes)" height=32 width=180>
> 81: <center><table BORDER CELLSPACING=0 CELLPADDING=0 WIDTH="100%"
> BGCOLOR="#FFFFA6" >
> 82: <tr>
> 83: <td WIDTH="33%">Busquedas:
> 84: <br>
> 85: <br>
> 86: <p> </td>
> 87:
> 88: <td WIDTH="33%">Visualizar un rubro
> 89: <p>completo
> 90: <p> </td>
> 91:
> 92: <td WIDTH="34%">Ver todo el contenido de
> 93: <p>todos los rubros
> 94: <p> </td>
> 95: </tr>
> 96: </table></center>
> 97: </td>
> 98: </tr>
> 99:
> 100: <tr>
> 101: <td WIDTH="143" BGCOLOR="#C0C0C0">
> 102: <center><b><font size=+1>Bienvenidos</font></b> a la mayor guia de
> avisos
> 103: clasificados y Bolsas de Trabajo <b>GRATUITA</b> de Argentina.
> 104: <p>Registrese <b>GRATIS</b> y podra vender, comprar, ofrecer o
> contratar
> 105: servicios de todo tipo. </center>
> 106: </td>
> 107:
> 108: <td WIDTH="457" BGCOLOR="#EBEBEB"><img SRC="bolsasdetrabajo.gif"
> ALT="bolsasdetrabajo.gif (1116 bytes)" height=32 width=180>
> 109: <p><img SRC="ofrecidos.gif" ALT="ofrecidos.gif (578 bytes)"
> height=21 width=91>
> 110: <br>
> 111: <table BORDER CELLSPACING=0 CELLPADDING=0 WIDTH="100%"
> BGCOLOR="#FFFFA6" >
> 112: <tr>
> 113: <td WIDTH="33%"> </td>
> 114:
> 115: <td WIDTH="33%"> </td>
> 116:
> 117: <td WIDTH="34%"> </td>
> 118: </tr>
> 119: </table>
> 120:
> 121: <p><img SRC="solicitados.gif" ALT="solicitados.gif (622 bytes)"
> height=21 width=91>
> 122: <br>
> 123: <table BORDER CELLSPACING=0 CELLPADDING=0 WIDTH="100%"
> BGCOLOR="#FFFFA6" >
> 124: <tr>
> 125: <td WIDTH="33%"> </td>
> 126:
> 127: <td WIDTH="33%"> </td>
> 128:
> 129: <td WIDTH="34%"> </td>
> 130: </tr>
> 131: </table>
> 132:
> 133: <p> </td>
> 134: </tr>
> 135: </table></center>
> 136:
> 137: <center>
> 138: <p><img SRC="banner1.gif" height=51 width=369></center>
> 139:
> 140: <br>
> 141: <br>
> 142: </body>
> 143: </html>'); ;; }
