% if not isempty(request.form.item("ContactName")) then ' on error resume next nLoanAmt = cdbl(emptystr(request.form.item("LoanAmt"),"0")) nPropVal = cdbl(emptystr(request.form.item("PropertyValue"),"0")) if nLoanAmt > 0 and nPropval > 0 then nLTV = nLoanAmt / nPropVal else nLTV = 0 end if sMail = "" sMail = sMail & "LOAN REQUEST FROM RTFUNDING.COM" & CRLF sMail = sMail & "-------------------------------------------------------------" & CRLF sMail = sMail & "Loan To Value: " & cstr(round(nLTV * 100,0)) & "%" & CRLF sMail = sMail & "Timing for Financing: " & emptyStr(request.form.item("FinanceTiming"),"") & CRLF & CRLF sMail = sMail & "CONTACT INFORMATION" & CRLF sMail = sMail & "Name: " & emptystr(request.form.item("ContactName"),"") & CRLF sMail = sMail & "Email: " & emptystr(request.form.item("ContactEmail"),"") & CRLF sMail = sMail & "Street Address: " & emptystr(request.form.item("ContactStreet"),"") & CRLF sMail = sMail & "City, ST. Zip: " & emptystr(request.form.item("ContactCity"),"") & ", " & _ emptyStr(request.form.item("ContactState"),"") & " " & _ emptyStr(request.form.item("ContactZip"),"") & CRLF sMail = sMail & "Day Phone: " & emptystr(request.form.item("ContactDayPhone"),"") & CRLF sMail = sMail & "Evening Phone: " & emptystr(request.form.item("ContactEveningPhone"),"") & CRLF sMail = sMail & "Comments: " & emptystr(request.form.item("Details"),"") & CRLF sMail = sMail & "Loan Amount: " & emptystr(request.form.item("LoanAmt"),"") & CRLF sMail = sMail & "Property Value: " & emptystr(request.form.item("PropertyValue"),"") & CRLF sMail = smail & "Type of Loan: " & emptystr(request.form.item("TypeOfLoan"),"") & CRLF & CRLF sMail = sMail & "PROPERTY INFORMATION" & CRLF sMail = sMail & "Property Type: " & emptystr(request.form.item("PropertyType"),"") & CRLF sMail = sMail & "Property Use: " & emptystr(request.form.item("StreetAddress"),"") & CRLF sMail = sMail & "City, ST. Zip: " & emptystr(request.form.item("City"),"") & ", " & _ emptystr(request.form.item("State"),"") & " " & _ emptystr(request.form.item("Zip"),"") & CRLF & CRLF sMail = sMail & "TRANSACTION INFORMATION" & CRLF sMail = sMail & "Found home to purchase yet? " & emptystr(request.form.item("FoundHome"),"") & CRLF sMail = sMail & "Can you document your income? " & emptystr(request.form.item("DocumentIncome"),"") & CRLF & CRLF sMail = sMail & "DESCRIBE CURRENT FINANCING" & CRLF sMail = sMail & "Your current loan is a: " & emptystr(request.form.item("CurrentLoanType"),"") & CRLF sMail = sMail & "Current mortgage balance: " & emptystr(request.form.item("CurrMortgageBalance"),"") & CRLF sMail = sMail & "Current monthly payment: " & emptystr(request.form.item("CurrMonthlyPmt"),"") & CRLF sMail = sMail & "Current interest rate: " & emptystr(request.form.item("CurrInterestRate"),"") & CRLF sMail = sMail & "How long have you had this loan? " & emptystr(request.form.item("HowLongHadLoan"),"") & CRLF sMail = sMail & "Do you already have a second mortgage? " & emptystr(request.form.item("Have2ndMortgage"),"") & CRLF & CRLF sMail = sMail & "ABOUT THE INQUIRER" & CRLF sMail = sMail & "Type of employment: " & emptystr(request.form.item("EmploymentType"),"") & CRLF sMail = sMail & "Years/Months at this work: " & emptystr(request.form.item("YearMonthsWithCmpy"),"") & CRLF sMail = sMail & "Annual Gross Income: " & emptystr(request.form.item("AnnualGrossIncome"),"") & CRLF sMail = sMail & "Credit Rating: " & emptystr(request.form.item("CreditRating"),"") set oMail = createobject("Persits.MailSender") oMail.Host = "rtfunding.com" oMail.From = "larry@rtfunding.com" oMail.FromName = "larry@rtfunding.com" 'oMail.addAddress "mhowley@rtfunding.com" oMail.addAddress "larry@rtfunding.com" oMail.Subject = "Loan Inquiry From RTFunding.com" oMail.Body = sMail oMail.Send if Err <> 0 then sErr = "An error occurred while processing your inquiry request." end if end if %>
|
Mortgage, RT Funding,
Boca Raton, Florida, FL, loans, mortgage lender |
About RT Funding Corp.
|
|
|
|
RT Funding Corp. |
||
|
Website Hosting and Promotion by: Blizzard Internet Marketing, Inc. |
||