~;
&footer;
}
sub view {
print qq~
Connect.EagleSold.com - Mortgage Apps Area
~;
&header;
print qq~
~;
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $aasth = $dbh->prepare("SELECT * FROM mortgage_apps WHERE ID = '$INPUT{ID}'");
$aasth->execute;
while (($ID,$DateTime,$Email_Address,$LoanType_Purchase,$LoanType_DebtConsolidation_Refinancing,$LoanType_SecondMortgage,$PropertyType,$CreditReportAgree,$Borrower_FirstName,$Borrower_MiddleName,$Borrower_LastName,$Borrower_SSNP1,$Borrower_SSNP2,$Borrower_SSNP3,$Borrower_PhoneP1,$Borrower_PhoneP2,$Borrower_PhoneP3,$Borrower_PhoneBestTimeToCall,$Borrower_Address,$Borrower_City,$Borrower_State,$Borrower_Zip,$Borrower_Bankruptcy_Status,$Borrower_Bankruptcy_Date_Month,$Borrower_Bankruptcy_Date_Year,$Borrower_WGIncome,$Borrower_WGIncome_Type,$Borrower_MDebt,$Borrower_ChildSPWPaid,$Borrower_ChildSPWReceived,$Borrower_EmployedBy,$Borrower_Salaried,$Borrower_SelfEmployed,$Borrower_EmployedYears,$Borrower_EmployedMonths,$CoBorrower_FirstName,$CoBorrower_MiddleName,$CoBorrower_LastName,$CoBorrower_SSNP1,$CoBorrower_SSNP2,$CoBorrower_SSNP3,$CoBorrower_PhoneP1,$CoBorrower_PhoneP2,$CoBorrower_PhoneP3,$CoBorrower_PhoneBestTimeToCall,$CoBorrower_Address,$CoBorrower_City,$CoBorrower_State,$CoBorrower_Zip,$CoBorrower_Bankruptcy_Status,$CoBorrower_Bankruptcy_Date_Month,$CoBorrower_Bankruptcy_Date_Year,$CoBorrower_WGIncome,$CoBorrower_WGIncome_Type,$CoBorrower_MDebt,$CoBorrower_ChildSPWPaid,$CoBorrower_ChildSPWReceived,$CoBorrower_EmployedBy,$CoBorrower_Salaried,$CoBorrower_SelfEmployed,$CoBorrower_EmployedYears,$CoBorrower_EmployedMonths,$add_info,$assignedto,$app_status) = $aasth->fetchrow_array()) {
my $casth = $dbh->prepare("SELECT DATE_FORMAT(DateTime, '%b %D, %Y at %h\:%i%p') FROM mortgage_apps WHERE ID = '$INPUT{ID}'");
$casth->execute;
while (($showdatetime) = $casth->fetchrow_array()) {
print <
$CoBorrower_EmployedYearsyrs
$CoBorrower_EmployedMonths
mo
Information About Your Situation
$add_info
Allow us to view
your credit report
By checking the I agree box below, I
agree to allow one of The ORR Team's Preferred Local Lenders view my credit report. Your application will only be received by one local lender. All information received will be kept confidential.
VERIFY
}
}
$dbh->disconnect;
&footer;
}
sub print {
print<The ORR Home Selling Team -- EZ Online Loan Application -- RE/MAX Real Estate Groups
topform
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $aasth = $dbh->prepare("SELECT * FROM mortgage_apps WHERE ID = '$INPUT{ID}'");
$aasth->execute;
while (($ID,$DateTime,$Email_Address,$LoanType_Purchase,$LoanType_DebtConsolidation_Refinancing,$LoanType_SecondMortgage,$PropertyType,$CreditReportAgree,$Borrower_FirstName,$Borrower_MiddleName,$Borrower_LastName,$Borrower_SSNP1,$Borrower_SSNP2,$Borrower_SSNP3,$Borrower_PhoneP1,$Borrower_PhoneP2,$Borrower_PhoneP3,$Borrower_PhoneBestTimeToCall,$Borrower_Address,$Borrower_City,$Borrower_State,$Borrower_Zip,$Borrower_Bankruptcy_Status,$Borrower_Bankruptcy_Date_Month,$Borrower_Bankruptcy_Date_Year,$Borrower_WGIncome,$Borrower_WGIncome_Type,$Borrower_MDebt,$Borrower_ChildSPWPaid,$Borrower_ChildSPWReceived,$Borrower_EmployedBy,$Borrower_Salaried,$Borrower_SelfEmployed,$Borrower_EmployedYears,$Borrower_EmployedMonths,$CoBorrower_FirstName,$CoBorrower_MiddleName,$CoBorrower_LastName,$CoBorrower_SSNP1,$CoBorrower_SSNP2,$CoBorrower_SSNP3,$CoBorrower_PhoneP1,$CoBorrower_PhoneP2,$CoBorrower_PhoneP3,$CoBorrower_PhoneBestTimeToCall,$CoBorrower_Address,$CoBorrower_City,$CoBorrower_State,$CoBorrower_Zip,$CoBorrower_Bankruptcy_Status,$CoBorrower_Bankruptcy_Date_Month,$CoBorrower_Bankruptcy_Date_Year,$CoBorrower_WGIncome,$CoBorrower_WGIncome_Type,$CoBorrower_MDebt,$CoBorrower_ChildSPWPaid,$CoBorrower_ChildSPWReceived,$CoBorrower_EmployedBy,$CoBorrower_Salaried,$CoBorrower_SelfEmployed,$CoBorrower_EmployedYears,$CoBorrower_EmployedMonths,$add_info,$assignedto,$app_status) = $aasth->fetchrow_array())
{
my $casth = $dbh->prepare("SELECT DATE_FORMAT(DateTime, '%b %D, %Y at %h\:%i%p') FROM mortgage_apps WHERE ID = '$INPUT{ID}'");
$casth->execute;
while (($showdatetime) = $casth->fetchrow_array())
{
print <
EZ-Online Loan Application Printout Below a copy of an online loan app submited
$CoBorrower_EmployedYearsyrs
$CoBorrower_EmployedMonths
mo
Information About Your Situation
$add_info
Allow us to view
your credit report
By checking the I agree box below, I
agree to allow one of The ORR Team's Preferred Local Lenders view my credit report. Your application will only be received by one local lender. All information received will be kept confidential.
