<% 'declare form input variables here Dim strPosition, strName, strAddress, strCity, strState, strZip, strExpect, strAsset Dim strPhone, strEmail, strDRE, strSalary, strCallTime, strPastEmp, strGoals strPosition = Request.Form("Position") strName = Request.Form("Name") strAddress = Request.Form("Address") strCity = Request.Form("City") strState = Request.Form("State") strZip = Request.Form("Zip") strPhone = Request.Form("Phone") strEmail = Request.Form("Email") strDRE = Request.Form("DRE") strSalary = Request.Form("Salary") strCallTime = Request.Form("CallTime") strPastEmp = Request.Form("PastEmp") strGoals = Request.Form("Goals") strExpect = Request.Form("Expect") strAsset = Request.Form("Asset") If strName = "" Then %>

Employment Request

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

Which position are you applying for?
   
Full Name:
Email Address
Phone Number
   
Address:
City:
State:
ZIP:
   
DRE License Number (If Applicable):
Salary Requirements:
   
What is the Best Time To Call?
   
List of Past Employers, Duties and Salary:
   
What are your Business Goals?:
   
What do you expect from Sacramento Mortgage, Inc.?:
   
What assets are you bringing to Sacramento Mortgage, Inc.?:

Please make sure ALL fields are filled out .

<% Else sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "mail.sacmtg.net" .update End With Set objMail = Server.CreateObject("CDO.Message") Set objMail.Configuration = cdoConfig objMail.From = strName & " <" & strEmail & ">" objMail.To = "scottwmson@sacmtg.net" objMail.Subject = "New Employment Application " & strName objMail.TextBody = "New Employee Submitted Information" & vbcrlf & vbcrlf _ & "Position Applied For: " & strPosition & vbcrlf _ & "Full Name: " & strName & vbcrlf _ & "Address: " & strAddress & vbcrlf _ & "City: " & strCity & vbcrlf _ & "State: " & strState & vbcrlf _ & "Zip Code: " & strZip & vbcrlf _ & "Phone Number: " & strPhone & vbcrlf _ & "Email Address: " & strEmail & vbcrlf _ & "DRE License Number: " & strDRE & vbcrlf _ & "Salary Required: " & strSalary & vbcrlf _ & "Best Time To Call: " & strCallTime & vbcrlf _ & "Past Employment: " & strPastEmp & vbcrlf _ & "Agent Goals: " & strGoals & vbcrlf _ & "Expectations From SMI: " & strExpect & vbcrlf _ & "Agent Assets Being Broght To SMI: " & strAsset objMail.Send Set objMail = Nothing Set cdoConfig = Nothing %> <% End If %>