Errors Output
- error executing code for include /var/www/html/gentiuno.com/www/includes/tope.asp: Can't call method "prepare" on an undefined value at /var/www/html/gentiuno.com/www/cgi-bin/libreriaasp.pl line 14.
; compiled to SCALAR(0x9344394) at /usr/lib/perl5/site_perl/5.8.0/Apache/ASP/Response.pm line 838.
, /usr/lib/perl5/site_perl/5.8.0/Apache/ASP.pm line 1518
Debug Output
- error executing code for include /var/www/html/gentiuno.com/www/includes/tope.asp: Can't call method "prepare" on an undefined value at /var/www/html/gentiuno.com/www/cgi-bin/libreriaasp.pl line 14.
; compiled to SCALAR(0x9344394) at /usr/lib/perl5/site_perl/5.8.0/Apache/ASP/Response.pm line 838.
, /usr/lib/perl5/site_perl/5.8.0/Apache/ASP.pm line 1518
ASP to Perl Script
-: no strict;;use vars qw($Application $Session $Response $Server $Request);;
-: #line 1 /var/www/html/gentiuno.com/www/articulo.asp
1: ;;
2:
3: if ($param->{texto}) {
4:
5: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
6: $year += 1900;
7: $mes = '00' . ++$mon;
8: $mes = substr($mes,-2);
9: $dia = '00' . $mday;
10: $dia = substr($dia,-2);
11: $min = '00' . $min;
12: $min = substr($min,-2);
13: $hora = '00' . $hour;
14: $hora = substr($hora,-2);
15: $seg = '00' . $sec;
16: $seg = substr($seg,-2);
17:
18: my $fecha = "$year$mes$dia$hora$min$seg";
19:
20: $db -> do("INSERT INTO comentarios VALUES (NULL, $param->{articulo}, '$Session->{email}', '$fecha', '$param->{texto}', '$param->{nombre}', '$param->{apellido}', '$param->{email}', '$param->{pais}', '$ENV{'REMOTE_ADDR'}')");
21:
22: }
23:
24: if (!$_[0]) {
25: # Registra el Hit...
26: $cdh = $db -> selectrow_array("SELECT cantidad FROM hits WHERE articulo=" . $param->{'articulo'});
27: if ($cdh) {
28: $cdh++;
29: $db -> do("UPDATE hits SET cantidad=$cdh WHERE articulo=" . $param->{'articulo'});
30: } else {
31: $db -> do("INSERT INTO hits VALUES (" . $param->{'articulo'} . ",1)");
32: }
33: $cdh1 = $db -> selectrow_array("SELECT COUNT(*) FROM hits1 WHERE articulo=" . $param->{'articulo'} . " AND dip='$ENV{'REMOTE_ADDR'}'");
34: if (!$cdh1) { $db -> do("INSERT INTO hits1 VALUES (" . $param->{'articulo'} . ",'$ENV{'REMOTE_ADDR'}')"); }
35: }
36:
37: my $articulo = $param->{'articulo'};
38: $articulo = $_[1] if $_[1];
39: @articulo = $db -> selectrow_array("SELECT * FROM articulos WHERE articulo=$articulo");
40: $cs = $db -> selectrow_array("SELECT seccion FROM subsecciones WHERE subseccion=$articulo[1]");
41: $seccion = $db -> selectrow_array("SELECT nombre FROM secciones WHERE seccion=$cs");
42: $fecha = &fecha($articulo[3]);
43: if ($articulo[11]) { $autor = $articulo[11]; } else { $autor = "Redacción Gente del Siglo XXI"; }
44:
45: ; &Apache::ASP::WriteRef($main::Response, \('
46: <table cellspacing="2" cellpadding="2">
47: <tr><td heigth="20" colspan="2"><img src="'.($home).'/i/trans.gif"></td></tr>
48: <tr>
49: <td>
50: <img src="'.($home).'/articulos/articulo'.($articulo[0]).'/imagenes/'.($articulo[6]).'">
51: </td>
52: <td width="590" align="center">
53: <span class="subtitulos">
54: <font size="4">
55: '.($articulo[2]).'
56: </font>
57: <br><br>
58: '));
59:
60: if ($articulo[0] != 2600) {
61:
62: ; &Apache::ASP::WriteRef($main::Response, \('
63: <a href="'.($home).'/seccion.asp?seccion='.($cs).'" class="style1" style="color: #063A77">
64: <font size="2">'.($seccion).'</font>
65: </a>
66: <br><br>
67: '));
68:
69: }
70:
71: ; &Apache::ASP::WriteRef($main::Response, \('
72: </span>
73: '));
74:
75: if ($articulo[0] != 2600) {
76:
77: ; &Apache::ASP::WriteRef($main::Response, \('
78: <font face="Verdana" size="1">Publicado el <b>'.($fecha).'</b><br>Por <b>'.($autor).'</b></font>
79: <br><br><a href="'.($home).'/enviar.asp?articulo='.($articulo[0]).'"><img src="'.($home).'/i/enviar.gif" border="0"></a>
80:
81: '));
82:
83: }
84:
85: ; &Apache::ASP::WriteRef($main::Response, \('
86: </td>
87: </tr>
88: <tr><td heigth="20" colspan="2"><img src="'.($home).'/i/trans.gif"></td></tr>
89: </table>
90: '.($articulo[7]).'
91: '));
92:
93: ; &Apache::ASP::WriteRef($main::Response, \('
94: </td>
95: </tr>
96: '));
97:
98: $cuantoses=$db->selectrow_array("SELECT count(*) FROM articulos_links where art_papa=$articulo[0] order by orden");
99: if ($cuantoses>0){
100:
101: ; &Apache::ASP::WriteRef($main::Response, \('
102: <tr>
103: <td>
104: '));
105:
106: if ($eef) {
107:
108: ; &Apache::ASP::WriteRef($main::Response, \('
109: <hr color=\'#CCCCCC\' width=\'50%\' align=\'left\'>
110: '));
111:
112: }
113:
114: ; &Apache::ASP::WriteRef($main::Response, \('
115: <br><font size=\'2\' face=\'Arial, Helvetica, sans-serif\'><strong>Artículos Relacionados </strong></font>
116: '));
117:
118: $dbh1 = &busqueda_sql("SELECT * FROM articulos_links where art_papa=$articulo[0]");
119: while (@resu1=$dbh1->fetchrow_array){
120: ($tit,$fecha) = $db->selectrow_array("SELECT titulo,fecha from articulos where articulo=$resu1[1]");
121: $fecha=substr($fecha,6,2)."/".substr($fecha,4,2)."/".substr($fecha,0,4);
122:
123: ; &Apache::ASP::WriteRef($main::Response, \('
124: <br><font size=\'1\' face=\'Arial, Helvetica, sans-serif\'>'.($fecha).'- <a href=\''.($home).'/articulo.asp?articulo='.($resu1[1]).'\' class="style1"><b><strong>'.($tit).'</strong></b></a></font>
125: '));
126:
127: }
128:
129: }
130:
131: ; &Apache::ASP::WriteRef($main::Response, \('
132: <tr>
133: <td>
134: <table width="600">
135: <tr>
136: <td width="300">
137: <span class="subtitulos"><font size=\'4\'>Comentarios:</font>
138: </td>
139: <td align="right">
140: <a href="#" onClick=\'javascript: window.open("comentario.asp?articulo='.($articulo[0]).'", "comentario", "width=640, height=380, scrollbars=yes");\' class="style1" style="font-size: 12px">Escriba su comentario aquí</a>
141: </td>
142: </tr>
143: <tr>
144: <td colspan="2">
145: '));
146:
147: my $nohay = 1;
148: $dbh1 = &busqueda_sql("SELECT * FROM comentarios WHERE articulo=$articulo[0] ORDER BY fecha");
149: while (@comentario = $dbh1 -> fetchrow_array) {
150:
151: my @nombre = $db -> selectrow_array("SELECT nombre, apellido FROM usuarios1 WHERE email='$comentario[2]'");
152: $nohay = 0;
153: $comentario[3] =~ /^(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$/;
154: my $fecha = "$3.$2.$1 a las $4:$5:$6";
155: if ($nombre[0] eq "" && $comentario[5] eq "") {
156:
157: $nombre[0] = "usuario";
158: $nombre[1] = "anónimo";
159:
160: } elsif ($nombre[0] eq "" && $comentario[5] ne "") {
161:
162: $nombre[0] = $comentario[5];
163: $nombre[1] = $comentario[6];
164:
165: }
166:
167: ; &Apache::ASP::WriteRef($main::Response, \('
168: <br>
169: <span class="subtitulos"><span class="style1"><font size="2">Comentario escrito por '.($nombre[0]).' '.($nombre[1]).' el '.($fecha).':</font></span></span><br><br><div align="left">'.($comentario[4]).'</div>
170: '));
171:
172: }
173:
174: ; &Apache::ASP::WriteRef($main::Response, \('
175: </td>
176: </tr>
177: </table>
178: <br>
179: '));
180:
181: if ($nohay) {
182:
183: ; &Apache::ASP::WriteRef($main::Response, \('
184: <font face="Verdana" size="2" color="#666666"><b>No hay comentarios...</b></font>
185: '));
186:
187: }
188:
189: ; &Apache::ASP::WriteRef($main::Response, \('
190: <br><br>'));
An error has occured with the Apache::ASP script just run.
If you are the developer working on this script, and cannot work
through this problem, please try researching it at the
Apache::ASP web site,
specifically the FAQ section.
Failing that, check out your
support options, and
if necessary include this debug output with any query.