"The secret to our success is simple and a bit old-fashioned:
we treat you like we would want to be treated."
 
Residential Loans
Loan Programs
Current Rates
Prequalification
Loan Application
Our Loan Officers
Tools
Mortgage 101
Market Update
Mortgage Glossary
Books
Software
Commercial Loans
Property Types
Preliminary Review
Application Process
Term Definitions
Other Information
About Us
Search this Site
Home


     

Current Rates

#!/usr/bin/perl # # DEFINE VARIABLES # # # # # # $scriptname='currentrates.cgi'; $pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/'; $datefilename='date.txt'; $convfilename='convrates.txt'; $jumbofilename='jumborates.txt'; $fhavafilename='fhavarates.txt'; # # bgcolor: background color of all pages # textcolor: color of default text # linkcolor: color of url text # thcolor: table header color # thtext: table header text color # sitename: site this script is used for # # # $bgcolor='#FFF3E1'; $textcolor='#000000'; $linkcolor='#0000FF'; $thcolor='#006600'; $thtext='#FFFFFF'; $sitename='Hardin Mortgage Company'; ################### # $convrates=$pathtofiles . $convfilename; $jumborates=$pathtofiles . $jumbofilename; $fhavarates=$pathtofiles . $fhavafilename; $datefile=$pathtofiles . $datefilename; # ####################################### # # BEGIN MAIN # ################### # #Get data from query string # &parse_form; # # What do we display? # if ($input{'action'} eq 'displayconv') { &display_conv; } elsif ($input{'action'} eq 'displayjumbo') { &display_jumbo; } elsif ($input{'action'} eq 'displayfhava') { &display_fhava; } elsif ($input{'action'} eq 'displaydate') { &show_date; } elsif ($input{'action'} eq 'edit') { &edit_rates; } elsif ($input{'action'} eq 'editfile') { &edit_rate_files; } elsif ($input{'action'} eq 'editdate') { &edit_date; } elsif ($input{'action'} eq 'showall') { &show_all_rates; } elsif ($input{'action'} eq 'help') { &show_help; } else { &show_menu_page; } ################### # # SHOW_MENU_PAGE # ################### sub show_menu_page { &print_header; &print_menu; &print_footer; } ################### # # SHOW_ALL RATES # ################### sub show_all_rates { &print_header; print "
"; &show_date; print "
"; print "

"; &display_conv; print "

"; &display_jumbo; print "

"; &display_fhava; print "


"; print "Back to Main Menu"; &print_footer; } ################### # # PRINT_MENU # ################### sub print_menu { print "Edit Date

"; print "Edit Rates

"; print "Show All Rates

"; print "Show Current Rates Page

"; } ################### # # SHOW_DATE # ################### sub show_date { # Get Date open (DTE, "$datefile"); $currdate = ; close (DTE); print "Content-type: text/html\n\n"; print "$currdate" } ################### # # DISPLAY_CONV # ################### sub display_conv { # # Open Conv data file # open (ORGDB,"<$convrates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_JUMBO # ################### sub display_jumbo { # # Open Jumbo data file # open (ORGDB,"<$jumborates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_FHAVA # ################### sub display_fhava { # # Open Conv data file # open (ORGDB,"<$fhavarates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
Texas Vet 30-Year Fixed Rate Loans   Regular VA 30-Year Fixed Rate Loans
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # EDIT_DATE # ################### sub edit_date { if ($input{'dateedit'} ne 'file') { @months = ('January','February','March','April','May','June', 'July','August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $date = "$months[$mon] $mday, "; $newdate = "$date 2000"; &print_header; print "

"; print ""; print ""; print "Today's Date: "; print "

"; print "Back to Main Menu

"; &print_footer; } else { open (DTE, ">$datefile"); print DTE ("$input{'currdate'}"); close (DTE); print "Location: $scriptname\n\n"; } } ################### # # EDIT_RATES # ################### sub edit_rates { &print_header; print "

"; print ""; print "Which rates are you modifying?
"; print qq| Conventional
Jumbo
Veterans
|; print "

Enter a row of rates below.. You will have to enter one row at a time. If this is second or third row of rates you are entering, please check the box below the rates. Also, be sure to check which type of rates you are editing above.

"; print "
 
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
 
No need to type the '%'. It will be added automatically.
"; print "

- check this box if this is the second or third row of rates.

"; print "

"; print "Back to Main Menu

"; &print_footer; } #################### # # EDIT_RATE_FILES # #################### sub edit_rate_files { if ($input{'ratetype'} eq 'conv') { ## CONVENTIONAL if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'jumbo') { ## JUMBO if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'fhava') { ## FHA/VA if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } print "Location: $scriptname?action=edit\n\n"; } #################### # # PRINT_HEADER # ################### sub print_header { print "Content-type: text/html\n\n"; print " $sitename - Rate Editor

Rate Editor

"; } #################### # # PRINT_FOOTER # ################### sub print_footer { print " "; } #################### # # PARSE_FORM # ################### sub parse_form { # print "Content-type: text/html\n\n"; # print "$ENV{QUERY_STRING}"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name} = $value; } }

The following Interest Rate Tables provide various interest rates according to the amount of Discount and Origination Points charged.

The rates listed below should only be used as a guide. Your actual rate could be slightly more or less due to fluctuating rates and your particular loan needs.

  • Good Faith Estimate - You should require all prospective lenders to provide you with a written Good Faith Estimate prior to making your final decision.
  • Discount Points - Often called "points" is a one-time charge used to adjust the yield on the loan to lower "buy-down" the interest rate on the loan.
  • Origination Points - Also called "points." This fee usually covers the broker's or lender's administrative costs in processing the loan and is calculated as a percentage of the loan amount.
#!/usr/bin/perl # # DEFINE VARIABLES # # # # # # $scriptname='currentrates.cgi'; $pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/'; $datefilename='date.txt'; $convfilename='convrates.txt'; $jumbofilename='jumborates.txt'; $fhavafilename='fhavarates.txt'; # # bgcolor: background color of all pages # textcolor: color of default text # linkcolor: color of url text # thcolor: table header color # thtext: table header text color # sitename: site this script is used for # # # $bgcolor='#FFF3E1'; $textcolor='#000000'; $linkcolor='#0000FF'; $thcolor='#006600'; $thtext='#FFFFFF'; $sitename='Hardin Mortgage Company'; ################### # $convrates=$pathtofiles . $convfilename; $jumborates=$pathtofiles . $jumbofilename; $fhavarates=$pathtofiles . $fhavafilename; $datefile=$pathtofiles . $datefilename; # ####################################### # # BEGIN MAIN # ################### # #Get data from query string # &parse_form; # # What do we display? # if ($input{'action'} eq 'displayconv') { &display_conv; } elsif ($input{'action'} eq 'displayjumbo') { &display_jumbo; } elsif ($input{'action'} eq 'displayfhava') { &display_fhava; } elsif ($input{'action'} eq 'displaydate') { &show_date; } elsif ($input{'action'} eq 'edit') { &edit_rates; } elsif ($input{'action'} eq 'editfile') { &edit_rate_files; } elsif ($input{'action'} eq 'editdate') { &edit_date; } elsif ($input{'action'} eq 'showall') { &show_all_rates; } elsif ($input{'action'} eq 'help') { &show_help; } else { &show_menu_page; } ################### # # SHOW_MENU_PAGE # ################### sub show_menu_page { &print_header; &print_menu; &print_footer; } ################### # # SHOW_ALL RATES # ################### sub show_all_rates { &print_header; print "
"; &show_date; print "
"; print "

"; &display_conv; print "

"; &display_jumbo; print "

"; &display_fhava; print "


"; print "Back to Main Menu"; &print_footer; } ################### # # PRINT_MENU # ################### sub print_menu { print "Edit Date

"; print "Edit Rates

"; print "Show All Rates

"; print "Show Current Rates Page

"; } ################### # # SHOW_DATE # ################### sub show_date { # Get Date open (DTE, "$datefile"); $currdate = ; close (DTE); print "Content-type: text/html\n\n"; print "$currdate" } ################### # # DISPLAY_CONV # ################### sub display_conv { # # Open Conv data file # open (ORGDB,"<$convrates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_JUMBO # ################### sub display_jumbo { # # Open Jumbo data file # open (ORGDB,"<$jumborates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_FHAVA # ################### sub display_fhava { # # Open Conv data file # open (ORGDB,"<$fhavarates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
Texas Vet 30-Year Fixed Rate Loans   Regular VA 30-Year Fixed Rate Loans
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # EDIT_DATE # ################### sub edit_date { if ($input{'dateedit'} ne 'file') { @months = ('January','February','March','April','May','June', 'July','August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $date = "$months[$mon] $mday, "; $newdate = "$date 2000"; &print_header; print "

"; print ""; print ""; print "Today's Date: "; print "

"; print "Back to Main Menu

"; &print_footer; } else { open (DTE, ">$datefile"); print DTE ("$input{'currdate'}"); close (DTE); print "Location: $scriptname\n\n"; } } ################### # # EDIT_RATES # ################### sub edit_rates { &print_header; print "

"; print ""; print "Which rates are you modifying?
"; print qq| Conventional
Jumbo
Veterans
|; print "

Enter a row of rates below.. You will have to enter one row at a time. If this is second or third row of rates you are entering, please check the box below the rates. Also, be sure to check which type of rates you are editing above.

"; print "
 
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
 
No need to type the '%'. It will be added automatically.
"; print "

- check this box if this is the second or third row of rates.

"; print "

"; print "Back to Main Menu

"; &print_footer; } #################### # # EDIT_RATE_FILES # #################### sub edit_rate_files { if ($input{'ratetype'} eq 'conv') { ## CONVENTIONAL if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'jumbo') { ## JUMBO if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'fhava') { ## FHA/VA if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } print "Location: $scriptname?action=edit\n\n"; } #################### # # PRINT_HEADER # ################### sub print_header { print "Content-type: text/html\n\n"; print " $sitename - Rate Editor

Rate Editor

"; } #################### # # PRINT_FOOTER # ################### sub print_footer { print " "; } #################### # # PARSE_FORM # ################### sub parse_form { # print "Content-type: text/html\n\n"; # print "$ENV{QUERY_STRING}"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name} = $value; } }

#!/usr/bin/perl # # DEFINE VARIABLES # # # # # # $scriptname='currentrates.cgi'; $pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/'; $datefilename='date.txt'; $convfilename='convrates.txt'; $jumbofilename='jumborates.txt'; $fhavafilename='fhavarates.txt'; # # bgcolor: background color of all pages # textcolor: color of default text # linkcolor: color of url text # thcolor: table header color # thtext: table header text color # sitename: site this script is used for # # # $bgcolor='#FFF3E1'; $textcolor='#000000'; $linkcolor='#0000FF'; $thcolor='#006600'; $thtext='#FFFFFF'; $sitename='Hardin Mortgage Company'; ################### # $convrates=$pathtofiles . $convfilename; $jumborates=$pathtofiles . $jumbofilename; $fhavarates=$pathtofiles . $fhavafilename; $datefile=$pathtofiles . $datefilename; # ####################################### # # BEGIN MAIN # ################### # #Get data from query string # &parse_form; # # What do we display? # if ($input{'action'} eq 'displayconv') { &display_conv; } elsif ($input{'action'} eq 'displayjumbo') { &display_jumbo; } elsif ($input{'action'} eq 'displayfhava') { &display_fhava; } elsif ($input{'action'} eq 'displaydate') { &show_date; } elsif ($input{'action'} eq 'edit') { &edit_rates; } elsif ($input{'action'} eq 'editfile') { &edit_rate_files; } elsif ($input{'action'} eq 'editdate') { &edit_date; } elsif ($input{'action'} eq 'showall') { &show_all_rates; } elsif ($input{'action'} eq 'help') { &show_help; } else { &show_menu_page; } ################### # # SHOW_MENU_PAGE # ################### sub show_menu_page { &print_header; &print_menu; &print_footer; } ################### # # SHOW_ALL RATES # ################### sub show_all_rates { &print_header; print "
"; &show_date; print "
"; print "

"; &display_conv; print "

"; &display_jumbo; print "

"; &display_fhava; print "


"; print "Back to Main Menu"; &print_footer; } ################### # # PRINT_MENU # ################### sub print_menu { print "Edit Date

"; print "Edit Rates

"; print "Show All Rates

"; print "Show Current Rates Page

"; } ################### # # SHOW_DATE # ################### sub show_date { # Get Date open (DTE, "$datefile"); $currdate = ; close (DTE); print "Content-type: text/html\n\n"; print "$currdate" } ################### # # DISPLAY_CONV # ################### sub display_conv { # # Open Conv data file # open (ORGDB,"<$convrates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_JUMBO # ################### sub display_jumbo { # # Open Jumbo data file # open (ORGDB,"<$jumborates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_FHAVA # ################### sub display_fhava { # # Open Conv data file # open (ORGDB,"<$fhavarates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
Texas Vet 30-Year Fixed Rate Loans   Regular VA 30-Year Fixed Rate Loans
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # EDIT_DATE # ################### sub edit_date { if ($input{'dateedit'} ne 'file') { @months = ('January','February','March','April','May','June', 'July','August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $date = "$months[$mon] $mday, "; $newdate = "$date 2000"; &print_header; print "

"; print ""; print ""; print "Today's Date: "; print "

"; print "Back to Main Menu

"; &print_footer; } else { open (DTE, ">$datefile"); print DTE ("$input{'currdate'}"); close (DTE); print "Location: $scriptname\n\n"; } } ################### # # EDIT_RATES # ################### sub edit_rates { &print_header; print "

"; print ""; print "Which rates are you modifying?
"; print qq| Conventional
Jumbo
Veterans
|; print "

Enter a row of rates below.. You will have to enter one row at a time. If this is second or third row of rates you are entering, please check the box below the rates. Also, be sure to check which type of rates you are editing above.

"; print "
 
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
 
No need to type the '%'. It will be added automatically.
"; print "

- check this box if this is the second or third row of rates.

"; print "

"; print "Back to Main Menu

"; &print_footer; } #################### # # EDIT_RATE_FILES # #################### sub edit_rate_files { if ($input{'ratetype'} eq 'conv') { ## CONVENTIONAL if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'jumbo') { ## JUMBO if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'fhava') { ## FHA/VA if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } print "Location: $scriptname?action=edit\n\n"; } #################### # # PRINT_HEADER # ################### sub print_header { print "Content-type: text/html\n\n"; print " $sitename - Rate Editor

Rate Editor

"; } #################### # # PRINT_FOOTER # ################### sub print_footer { print " "; } #################### # # PARSE_FORM # ################### sub parse_form { # print "Content-type: text/html\n\n"; # print "$ENV{QUERY_STRING}"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name} = $value; } }

HMC has numerous "A" quality conventional Adjustable Rate Mortgage (ARM) loan programs. Contact your nearest HMC Loan Officer for rates and information.

#!/usr/bin/perl # # DEFINE VARIABLES # # # # # # $scriptname='currentrates.cgi'; $pathtofiles='/var/web/hardin/hardinmortgage.com/cgi-bin/rates/'; $datefilename='date.txt'; $convfilename='convrates.txt'; $jumbofilename='jumborates.txt'; $fhavafilename='fhavarates.txt'; # # bgcolor: background color of all pages # textcolor: color of default text # linkcolor: color of url text # thcolor: table header color # thtext: table header text color # sitename: site this script is used for # # # $bgcolor='#FFF3E1'; $textcolor='#000000'; $linkcolor='#0000FF'; $thcolor='#006600'; $thtext='#FFFFFF'; $sitename='Hardin Mortgage Company'; ################### # $convrates=$pathtofiles . $convfilename; $jumborates=$pathtofiles . $jumbofilename; $fhavarates=$pathtofiles . $fhavafilename; $datefile=$pathtofiles . $datefilename; # ####################################### # # BEGIN MAIN # ################### # #Get data from query string # &parse_form; # # What do we display? # if ($input{'action'} eq 'displayconv') { &display_conv; } elsif ($input{'action'} eq 'displayjumbo') { &display_jumbo; } elsif ($input{'action'} eq 'displayfhava') { &display_fhava; } elsif ($input{'action'} eq 'displaydate') { &show_date; } elsif ($input{'action'} eq 'edit') { &edit_rates; } elsif ($input{'action'} eq 'editfile') { &edit_rate_files; } elsif ($input{'action'} eq 'editdate') { &edit_date; } elsif ($input{'action'} eq 'showall') { &show_all_rates; } elsif ($input{'action'} eq 'help') { &show_help; } else { &show_menu_page; } ################### # # SHOW_MENU_PAGE # ################### sub show_menu_page { &print_header; &print_menu; &print_footer; } ################### # # SHOW_ALL RATES # ################### sub show_all_rates { &print_header; print "
"; &show_date; print "
"; print "

"; &display_conv; print "

"; &display_jumbo; print "

"; &display_fhava; print "


"; print "Back to Main Menu"; &print_footer; } ################### # # PRINT_MENU # ################### sub print_menu { print "Edit Date

"; print "Edit Rates

"; print "Show All Rates

"; print "Show Current Rates Page

"; } ################### # # SHOW_DATE # ################### sub show_date { # Get Date open (DTE, "$datefile"); $currdate = ; close (DTE); print "Content-type: text/html\n\n"; print "$currdate" } ################### # # DISPLAY_CONV # ################### sub display_conv { # # Open Conv data file # open (ORGDB,"<$convrates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Conforming "A" Quality Conventional Loan Rates
For loans from \$150,000 to \$333,700
Rates on loan amounts under \$150,000 may be slightly higher than reflected on the chart below.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_JUMBO # ################### sub display_jumbo { # # Open Jumbo data file # open (ORGDB,"<$jumborates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
"A" Quality Jumbo Loan Rates For Loans
From \$333,701 to \$650,000 range
Please call 214-946-3454 or 888-945-4136 for loan amounts above \$650,000.
30-Year Fixed Loans - 30 day lock.   15-Year Fixed Loans - 30 day lock.
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # DISPLAY_FHAVA # ################### sub display_fhava { # # Open Conv data file # open (ORGDB,"<$fhavarates"); @ODB=; close (ORGDB); print "Content-type: text/html\n\n"; # # Print Table Header # print qq| |; $counter = 1; foreach $rec (@ODB){ chomp($rec); ($rate01,$discpts01,$orig01,$apr01,$rate02,$discpts02,$orig02,$apr02)=split(/\|/,$rec); if (($counter % 2) ne 0) { print ""; } else { print ""; } ++$counter; } print "
Texas Veterans Loans & Regular Veterans Loans
Loan amounts from \$100,000 to \$240,000.
Above \$240,000 possible via combo conventional loan.
Texas Vet 30-Year Fixed Rate Loans   Regular VA 30-Year Fixed Rate Loans
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
$rate01$discpts01$orig01 $apr01 $rate02 $discpts02$orig02 $apr02
"; } ################### # # EDIT_DATE # ################### sub edit_date { if ($input{'dateedit'} ne 'file') { @months = ('January','February','March','April','May','June', 'July','August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $date = "$months[$mon] $mday, "; $newdate = "$date 2000"; &print_header; print "

"; print ""; print ""; print "Today's Date: "; print "

"; print "Back to Main Menu

"; &print_footer; } else { open (DTE, ">$datefile"); print DTE ("$input{'currdate'}"); close (DTE); print "Location: $scriptname\n\n"; } } ################### # # EDIT_RATES # ################### sub edit_rates { &print_header; print "

"; print ""; print "Which rates are you modifying?
"; print qq| Conventional
Jumbo
Veterans
|; print "

Enter a row of rates below.. You will have to enter one row at a time. If this is second or third row of rates you are entering, please check the box below the rates. Also, be sure to check which type of rates you are editing above.

"; print "
 
Rate Disc. Pts. Origination APR   Rate Disc. Pts. Origination APR
 
No need to type the '%'. It will be added automatically.
"; print "

- check this box if this is the second or third row of rates.

"; print "

"; print "Back to Main Menu

"; &print_footer; } #################### # # EDIT_RATE_FILES # #################### sub edit_rate_files { if ($input{'ratetype'} eq 'conv') { ## CONVENTIONAL if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$convrates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'jumbo') { ## JUMBO if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$jumborates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } elsif ($input{'ratetype'} eq 'fhava') { ## FHA/VA if ($input{'appendrows'} eq 'yesappend') { open (DATAFILE, ">>$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } else { open (DATAFILE, ">$fhavarates"); print DATAFILE "$input{'rate01'}%|$input{'discpts01'}%|$input{'orig01'}%|$input{'apr01'}%|$input{'rate02'}%|$input{'discpts02'}%|$input{'orig02'}%|$input{'apr02'}%\n"; close (DATAFILE); } } print "Location: $scriptname?action=edit\n\n"; } #################### # # PRINT_HEADER # ################### sub print_header { print "Content-type: text/html\n\n"; print " $sitename - Rate Editor

Rate Editor

"; } #################### # # PRINT_FOOTER # ################### sub print_footer { print " "; } #################### # # PARSE_FORM # ################### sub parse_form { # print "Content-type: text/html\n\n"; # print "$ENV{QUERY_STRING}"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name} = $value; } }

Please call 214-946-3454 or 888-945-4136 for details on both VA loan programs
as well as free written detailed good faith estimate and free prequalification.

"SubPrime" Loans

We have numerous loan programs for applicants with prior credit problems, hard to qualify borrowers and borrowers with high debts in relation to income.

It is important for you to know that no mortgage lender can give you an accurate rate quote and/or Good Faith Estimate on a SUBPRIME loan until the lender has taken a complete application from you and has secured an in-file credit bureau report from the three main credit reporting agencies. For this reason we do not quote rates on SUBPRIME loans until our underwriters have reviewed the application and credit report.

If you would like us to prequalify you for a SUBPRIME loan, please call one of our loan officers or go to our Prequalification form.

We look forward to working with you and providing you with honest and accurate information about SUBPRIME loans.

  • A- paper loans to 90% LTV with Debt Ratios 45%
  • B paper loans to 85% LTV with Debt Ratios to 50%
  • C paper loans to 80% LTV with Debt Ratios to 55%
  • D paper loans to 65% LTV with Debt Ratios to 65%
  • Prior Bankruptcy or Foreclosure is OK.
  • 100% Gift Down Payment is OK.
  • Stated Income 90% LTV, No Reserves & No Ratio programs available.

All rates and terms are subject to change without notice.

Please remember, the rates listed above should only be used as a guide. Your actual rate could be slightly more or less due to fluctuating rates and your particular loan needs. Always require each prospective lender to provide you with a written Good Faith Estimate when comparing lenders.
 


Equal Housing Lender Equal Housing Lender
 
Questions or Comments
Website Questions 		Privacy Policy
Terms & Conditions
© 2007 Hardin Mortgage Company.