Errors Output
  1. could not connect to server: Connection refused at /var/www/azimuth.be/html/news.asp line 93. , /usr/lib/perl5/site_perl/5.8.5/Apache/ASP.pm line 1518
Debug Output
  1. could not connect to server: Connection refused at /var/www/azimuth.be/html/news.asp line 93. , /usr/lib/perl5/site_perl/5.8.5/Apache/ASP.pm line 1518 
ASP to Perl Script 

  -: no strict;;use vars qw($Application $Session $Response $Server $Request);;
  -: #line 1 /var/www/azimuth.be/html/news.asp
  1: ;;&Apache::ASP::WriteRef($main::Response, \('<!-- DATE DE CREATION: 26/07/02 -->
  2: <HTML>
  3: <HEAD>
  4: <TITLE></TITLE>
  5: <META NAME="Description" CONTENT="">
  6: <META NAME="Keywords" CONTENT="">
  7: <META NAME="Author" CONTENT="BEP">
  8: <META NAME="Generator" CONTENT="WebExpert">
  9: <SCRIPT LANGUAGE="JavaScript">
 10: 
 11: <!-- debut du script
 12: 
 13: function VersionNavigateur(Netscape, Explorer) {
 14: 
 15:   if ((navigator.appVersion.substring(0,3) >= Netscape && navigator.appName == \'Netscape\') ||
 16: 
 17:       (navigator.appVersion.substring(0,3) >= Explorer && navigator.appName.substring(0,9) == \'Microsoft\'))
 18: 
 19:     return true;
 20: 
 21: else return false;
 22: 
 23: }
 24: 
 25: //  fin du script -->
 26: 
 27: </SCRIPT>
 28: 
 29: <SCRIPT LANGUAGE="JavaScript">
 30: 
 31: function verScroll(dir, spd, loop) {
 32: loop = true;
 33: direction = "up";
 34: speed = 10;
 35: scrolltimer = null;
 36: if (document.layers) {
 37: var page = eval(document.contentLayer);
 38: }
 39: else {
 40: if (document.getElementById) {
 41: var page= eval("document.getElementById(\'contentLayer\').style");
 42: }
 43: else {
 44: if (document.all) {
 45: var page = eval(document.all.contentLayer.style);
 46:       }
 47:    }
 48: }
 49: direction = dir;
 50: speed = parseInt(spd);
 51: var y_pos = parseInt(page.top);
 52: if (loop == true) {
 53: if (direction == "dn") {
 54: page.top = (y_pos - (speed));
 55: } else {
 56: if (direction == "up" && y_pos < 10) {
 57: page.top = (y_pos + (speed));
 58: } else {
 59: if (direction == "top") {
 60: page.top = 10;
 61:       }
 62:    }
 63: }
 64: scrolltimer = setTimeout("verScroll(direction,speed)", 1);
 65:    }
 66: }
 67: function stopScroll() {
 68: loop = false;
 69: clearTimeout(scrolltimer);
 70: }
 71: 
 72: </script>
 73: </HEAD>
 74: <BODY>
 75: 
 76: <TABLE WIDTH=160 HEIGHT=370 BORDER=0 CELLPADDING=0 CELLSPACING=0>
 77:   <COL SPAN=2>
 78:     <TR>
 79:       <TD WIDTH=150 HEIGHT=370 ROWSPAN=2><IMG SRC="images/new_site/transp.gif" BORDER=0 WIDTH=150 HEIGHT=370></TD>
 80:       <TD WIDTH=10 HEIGHT=10% BGCOLOR="#ECC0C0" ALIGN="RIGHT" VALIGN="TOP"><a href="#" onMouseOver="verScroll(\'up\',\'5\',\'true\')" onMouseOut="stopScroll()"><IMG SRC="images/new_site/fleche2-up.gif" BORDER=0 WIDTH=9 HEIGHT=38></a> 
 81:       <a href="#" onMouseOver="verScroll(\'up\',\'1\',\'true\')" onMouseOut="stopScroll()"><IMG SRC="images/new_site/fleche-up.gif" BORDER=0 WIDTH=9 HEIGHT=30></a></TD>
 82:     </TR>
 83:     <TR>
 84:       <TD WIDTH=10 HEIGHT=10% BGCOLOR="#ECC0C0" ALIGN="RIGHT" VALIGN="BOTTOM"><a href="#" onMouseOver="verScroll(\'dn\',\'1\',\'true\')" onMouseOut="stopScroll()"><IMG SRC="images/new_site/fleche-down.gif" BORDER=0 WIDTH=9 HEIGHT=30></a> 
 85:       <a href="#" onMouseOver="verScroll(\'dn\',\'5\',\'true\')" onMouseOut="stopScroll()"><IMG SRC="images/new_site/fleche2-down.gif" BORDER=0 WIDTH=9 HEIGHT=38></a></TD>
 86:     </TR>
 87: </TABLE>
 88: 
 89:    <div id="contentLayer" style="position:absolute; width:150px; z-index:1; left: 0px; top: 0px">
 90:      <table width=150>
 91: '));
 92: use DBI;
 93: $dbh = DBI->connect("dbi:Pg:dbname=azimuth; host=boris.azimuth.be", 'azimuth','BerVxARG' ) or die $DBI::errstr;
 94: $cursor = $dbh->prepare ("SELECT * from azimuth_news order by date_news desc,numauto desc LIMIT 4");
 95: $cursor->execute;
 96: while(@row = $cursor->fetchrow)
 97: {
 98:         
 99: 		print "<tr>";
100: 		print "<td bgcolor=\"#ffffff\">";
101: 		print "<font size=1 face=\"Arial, arial, sans-serif, Helvetica\"><b>Posted at $row[1]</b><br><BR></font>";
102: 		print "<font size=2 face=\"Arial, arial, sans-serif, Helvetica\"><u><b>$row[4]</b></u><br></font>";
103: 		print "<font size=2 face=\"Arial, arial, sans-serif, Helvetica\" COLOR=\"#800000\">$row[5]<br></font>";
104: 		print "&nbsp;<br>";
105: 		print "</td>";
106: 		print "</tr>";
107: 	   
108: }
109: $cursor->finish;
110:     $dbh->disconnect;
111: ; &Apache::ASP::WriteRef($main::Response, \('
112:     </table></DIV>
113: 
114: </BODY>
115: </HTML>'));
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.