<% use DBI; $dbh = DBI->connect("dbi:Pg:dbname=azimuth; host=boris.azimuth.be", 'azimuth','BerVxARG' ) or die $DBI::errstr; $cursor = $dbh->prepare ("SELECT * from azimuth_news order by date_news desc,numauto desc LIMIT 4"); $cursor->execute; while(@row = $cursor->fetchrow) { print ""; print ""; print ""; } $cursor->finish; $dbh->disconnect; %>
"; print "Posted at $row[1]

"; print "$row[4]
"; print "$row[5]
"; print " 
"; print "