CONTINIUS ERROR

Sun, 17 Jan 1999 01:13:27 -0800 

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">&nbsp;
 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>&nbsp;</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>&nbsp;
 81: <center><table BORDER CELLSPACING=0 CELLPADDING=0 WIDTH="100%"
BGCOLOR="#FFFFA6" >
 82: <tr>
 83: <td WIDTH="33%">Busquedas:
 84: <br>&nbsp;
 85: <br>&nbsp;
 86: <p>&nbsp;</td>
 87:
 88: <td WIDTH="33%">Visualizar un rubro
 89: <p>completo
 90: <p>&nbsp;</td>
 91:
 92: <td WIDTH="34%">Ver todo el contenido de
 93: <p>todos los rubros
 94: <p>&nbsp;</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.&nbsp;</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>&nbsp;
111: <table BORDER CELLSPACING=0 CELLPADDING=0 WIDTH="100%"
BGCOLOR="#FFFFA6" >
112: <tr>
113: <td WIDTH="33%">&nbsp;</td>
114:
115: <td WIDTH="33%">&nbsp;</td>
116:
117: <td WIDTH="34%">&nbsp;</td>
118: </tr>
119: </table>
120:
121: <p><img SRC="solicitados.gif" ALT="solicitados.gif (622 bytes)"
height=21 width=91>
122: <br>&nbsp;
123: <table BORDER CELLSPACING=0 CELLPADDING=0 WIDTH="100%"
BGCOLOR="#FFFFA6" >
124: <tr>
125: <td WIDTH="33%">&nbsp;</td>
126:
127: <td WIDTH="33%">&nbsp;</td>
128:
129: <td WIDTH="34%">&nbsp;</td>
130: </tr>
131: </table>
132:
133: <p>&nbsp;</td>
134: </tr>
135: </table></center>
136:
137: <center>
138: <p><img SRC="banner1.gif" height=51 width=369></center>
139:
140: <br>&nbsp;
141: <br>&nbsp;
142: </body>
143: </html>'); ;; }

Reply via email to