#!/usr/bin/perl
use CGI;
use strict;
use DBI();
my $q=new CGI();

my $dbh = DBI->connect("DBI:mysql:bthcraft", "#######", "#########");
    print "    Can't connect to database\n" if  ! defined $dbh;
my $nme=$q->param('name');

my  $stht =  $dbh->prepare("SELECT *  FROM images where username = '$nme'");
$stht->execute();
print $q->header();
print $q->start_html('display');
 while (my @dat=$stht->fetchrow_array())
 {
print "<INPUT TYPE=IMAGE NAME=image  height='100'  width='100'
SRC='http://typhoon.he.net/~bthcraft/$dat[0]/images/$dat[1]' >";
  }

print $q->end_html;

$stht->finish;
$dbh->disconnect;