<% 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 "
Posted at $row[1]
"; print "
$row[4]
"; print "
$row[5]
"; print "
"; print "
"; print "
"; } $cursor->finish; $dbh->disconnect; %>
