#!/usr/bin/perl
#######################################################################################
# PLAATS_FOTOS_VERVOLG.CGI
#######################################################################################
print "content-type:text/html\n";
require "../setup/cgi-lib.pl";
require "../setup/library.cgi";
require "../setup/setup.cgi";
&DefineVars;
&ReadParse(*contents);
&Read_Formvars;
$width=$contents{'width'};
use DBI;
my ($dbh, $sth);
DBI->trace(2,"$mysql_error_dir/plaats_fotos.dat");
$dbh = DBI->connect ( "DBI:mysql:host=localhost;database=$mysql_database", "$mysql_username", "$mysql_password",
{PrintError => 0, RaiseError => 0});
$sth = $dbh->prepare ( "SELECT * FROM $fotos_database where foto_counter =\"$foto_counter\"");
$sth->execute ();
while (my @val = $sth -> fetchrow_array ()) {
&Read_Record_Fotos(@val);
}
$sth->finish ();
$dbh->disconnect ();
print qq~
Djembefola
$foto_tekst
~;