<% 'declare form input variables here Dim strRequesting, strEmailAddress, strFirstName, strHmValue, strLastName, strhmphone Dim strwkphone, strLADesired, strmobilephone, strLNPurpose, strTimeToCall, strMtgBalancel, strIntRate Dim strAddress, strCity, strCrdRating, strState, strZip, strRefinance, strCashOut, strNwHmPur Dim strComments, strAdvertising, strHouseType strRequesting = Request.Form("Requesting") strEmailAddress = Request.Form("EmailAddress") strFirstName = Request.Form("FirstName") strHmValue = Request.Form("HomeValue") strLastName = Request.Form("LastName") strHouseType = Request.Form("HouseType") strhmphone = Request.Form("hmphone") strwkphone = Request.Form("wmphone") strLADesired = Request.Form("LADesired") strmobilephone = Request.Form("mobilephone") strLNPurpose = Request.Form("LNPurpose") strTimeToCall = Request.Form("TimeToCall") strMtgBalance = Request.Form("MtgBalance") strIntRate = Request.Form("IntRate") strAddress = Request.Form("Address") strCity = Request.Form("City") strCrdRating = Request.Form("CrdRating") strState = Request.Form("State") strZip = Request.Form("Zip") strRefinance = Request.Form("Refinance") strCashOut = Request.Form("CashOut") strNwHmPur = Request.Form("NwHmPur") strComments = Request.Form("Comments") strAdvertising = Request.Form("Advertising") If strAddress = "" Then %>

Application Inquiry

Please fill out the form below completely and click on "Submit"

What are you requesting?:
Email Address:
  Gross Income per month
First Name:
Home Value:
Last Name:
Type of House:
Home Phone Number:
   
Work Number:
Loan Amount Desired:
Mobile Phone:
Loan Purpose:
Best Time to Call?
First Mortgage Balance:
  Current Interest Rate:
Address:
   
City:
Credit Rating:
State:
Monthly payment (see below) *
Zip:
I'm Interest In:

Refinance
Cash Out
New Home Purchase

Additional Comments / Requests
How did you hear abut us?

Please make sure ALL fields that apply are filled out in order to receive your transaction number.  Transaction numbers MUST be requested within 3 days of the upfront 1003 (Loans) or within 3 days of taking the Real Estate Contract (Real Estate).

*Monthly payment only include credit cards and car loans.

If you do not receive your Transaction Number within 48 hours, please call (916) 732-9080 to check on the status.

<% Else sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "mail.sacramentomortgage.com" .update End With Set objMail = Server.CreateObject("CDO.Message") Set objMail.Configuration = cdoConfig objMail.From = strLastName & " <" & strEmailAddress & ">" objMail.To = "scottwmson@sacramentomortgage.com" objMail.Cc = strEmailAddress objMail.Subject = "Information Requested " & strAddress objMail.TextBody = "Client Submitted Information" & vbcrlf & vbcrlf _ & "What Are You Requesting?: " & strRequesting & vbcrlf _ & "First Name: " & strFirstName & vbcrlf _ & "Last Name: " & strLastName & vbcrlf _ & "Home Phone: " & strhmphone & vbcrlf _ & "Work Phone: " & strwkphone & vbcrlf _ & "Mobile Phone: " & strmobilephone & vbcrlf _ & "Best Time To Call: " & strTimeToCall & vbcrlf _ & "Address: " & strAddress & vbcrlf _ & "City: " & strCity & vbcrlf _ & "State: " & strState & vbcrlf _ & "Zip Code: " & strZip & vbcrlf _ & "Additional Comments: " & strComments & vbcrlf _ & "Email Address: " & strEmailAddress & vbcrlf _ & "Current Home Value: " & strHmValue & vbcrlf _ & "Type of Home: " & strHouseType & vbcrlf _ & "Loan Amount Desired: " & strLADesired & vbcrlf _ & "Loan Purpose: " & strLNPurpose & vbcrlf _ & "Mortgage Balance: " & strMtgBalance & vbcrlf _ & "Current Interest Rate: " & strIntRate & vbcrlf _ & "Credit Rating: " & strCrdRating & vbcrlf _ & "I am interested in: " & strRefinance & vbcrlf _ & "I am interested in: " & strCashOut & vbcrlf _ & "I am interested in: " & strNwHmPur & vbcrlf _ & "How did you hear about us?: " & strAdvertising objMail.Send Set objMail = Nothing Set cdoConfig = Nothing %> <% End If %>