#!/usr/bin/perl use strict; use warnings; use DBI; use CGI; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); my $cgi = CGI->new; my %FORM = $cgi->Vars; print $cgi->header; warningsToBrowser(1); DBI->trace(15); # value can be between 0 and 15 my $dsn = 'DBI:mysql:bcpadb:instance28854.db.xeround.com:18847'; my $dbh = DBI->connect($dsn, 'maxwell175', 'qwertyuiop', { RaiseError => 1 }) || die "Could not connect to the database " . $DBI::errstr; my $LName = $FORM{'LName'}; my $FName = $FORM{'FName'}; my $query = "SELECT * FROM people2 WHERE LName LIKE '$LName' AND FName LIKE '$FName'"; my $query1 = $dbh->prepare($query); $query1->execute || die "Error executing 'select' query: " . $query1->errstr; #print "$query"; #try replaceing the while with this. my $results = $query1->fetchrow_hashref(); #my $FName = $results->{FName}; --- Not needed because passed in args #my $LName = $results->{LName}; --- Same as above line my $AddrLine1 = $results->{AddrLine1}; my $AddrLine2 = $results->{AddrLine2}; my $City = $results->{City}; my $Zip = $results->{Zip}; my $WAddrLine1 = $results->{WAddrLine1}; my $WAddrLine2 = $results->{WAddrLine2}; my $WCity = $results->{WCity}; my $WZip = $results->{WZip}; my $HPhone = $results->{HPhone}; my $MPhone = $results->{MPhone}; my $WPhone = $results->{WPhone}; my $Email = $results->{Email}; my $Company = $results->{Company}; my $Job_Title = $results->{Job_Title}; #} print < BCPA page - MDTech

Edit your information and click "Submit":

First Name: Last Name:

Email:

Your Address:

Address Line 1:

Address Line 2:

City: Zip:
(state not needed)

Work Info:

Company:

Job Title:

Work Address:

Address Line 1:

Address Line 2:

City: Zip:
(state not needed)

Phone numbers:

Home Phone:

Mobile Phone:

Work Phone:

HTMLPAGE exit;