FOOTER

#/usr/bin/perl -w use strict; use DBI; use CGI qw(:standard); use POSIX qw(ceil floor); my $LastName=param('LastName'); my $reqpage= param('reqpage'); unless ($reqpage > 1) {$reqpage = "1"; &count; } if ($reqpage > 1) { &search; } sub count { my $dbh = DBI->connect('dbi:mysql:membersdb','member','memberpasswd') or die "Connection Error: $DBI::errstr\n"; # Count how many rows are there in a table, so that we can use it for $pagenum. my $LastName=param('LastName'); my $n="3"; my $LastName= substr($LastName,0,$n); my $query="$LastName\%"; my $sql = "select count(*) from members WHERE (Location = 'Phoenix, AZ USA' and LastName LIKE ?)"; my $sth = $dbh->prepare ("$sql"); $sth->execute($query) || quit(); my $result_count = $sth->fetchrow_array; $sth->finish; my $pagesize = "5"; if ($result_count != 0) { my $pagecount = int($result_count / $pagesize); if (($pagecount * $pagesize) != $result_count) { $pagecount++; } $sth->finish; $dbh->disconnect (); &search; sub search { my $dbh = DBI->connect('dbi:mysql:membersdb','member','memberpasswd') or die "Connection Error: $DBI::errstr\n"; my $reqpage= param('reqpage'); unless ($reqpage > 1) {$reqpage = "1";} my $pagesize = "5"; my $firstresult = (($reqpage - 1) * $pagesize) + 1; my $lastresult = $firstresult + $pagesize - 1; if ($lastresult > $result_count) { $lastresult = $result_count; } my $offset = (($reqpage-1) * $pagesize); my $limit = "5"; my $result; my @result; my $LastName=param('LastName'); my $n="3"; my $LastName= substr($LastName,0,$n); my $query="$LastName%"; my $sql = "Select AccountID,LastName,FirstName,Location,Specialty,Introduction,View from members WHERE (Location = 'Phoenix, AZ USA' and LastName LIKE ?) Limit $offset,$limit"; my $sth=$dbh->prepare("$sql"); $sth->execute($query) or die "Connection Error: $DBI::errstr\n"; print header(), start_html; my $page = "E:/companyname/website/htdocs/resources/header_1.htm"; open (PAGE, "$page") || die "Couldn't open $page"; while () {print;} print "

Your Search Results

"; while (my @results = $sth->fetchrow_array) { my $AccountID = $results [0]; my $LastName = $results [1]; my $FirstName = $results [2]; my $Location = $results [3]; my $Specialty = $results [4]; my $Introduction = $results [5]; my $View = $results [6]; my $Image = $results [0]; print <<"(END TABLE HTML)";

Name ---- $FirstName $LastName
Location ---- $Location
Specialty ---- $Specialty

$Introduction

$View

(END TABLE HTML) ##++$count; } my $prev_page; my $next_page; my $prev_link; my $next_link; my $pagelinks; my $pageno; my $thislink; my $pagesize = "5"; $prev_page = $reqpage - 1; $next_page = $reqpage + 1; if ($reqpage == 1) { $prev_link = ""; } else { $prev_link = "Previous "; } if ($reqpage == $pagecount) { $next_link = ""; } else { $next_link = "NEXT"; } if ($pagecount > 1) { $pagelinks = $prev_link; $pageno = 0; while ($pageno < $pagecount) { $pageno++; if ($pageno == $reqpage) { $thislink = " $pageno "; } else { $thislink = "$pageno " } $pagelinks = $pagelinks . $thislink; } $pagelinks = $pagelinks . " " . $next_link; print "

$pagelinks

"; } else { $pagelinks = ""; } } print <<"(END FOOTER HTML)"; FOOTER

Home

(END FOOTER HTML) end_html (); $sth->finish; $dbh->disconnect (); } } exit;