|
Thank you for choosing Acsys to meet your information technology staffing need. Please take a moment to fill out the form below. A representative from your local Acsys office will contact you shortly to review your specific needs and begin the search process.
<%
' create the Loader object to read data from the form
Dim load
Set load = new Loader
' calling initialize method
load.initialize
submitted = load.getValue("submitted")
if submitted = "1" then
body = ""
body = body & "| Salutation: | " & Server.HTMLEncode(load.getValue("salutation")) & " | "
body = body & "| First Name: | " & Server.HTMLEncode(load.getValue("firstname")) & " | "
body = body & "| Last Name: | " & Server.HTMLEncode(load.getValue("lastname")) & " | "
body = body & "| Title: | " & Server.HTMLEncode(load.getValue("title")) & " | "
body = body & "| Company: | " & Server.HTMLEncode(load.getValue("company")) & " | "
body = body & "| Address: | " & Server.HTMLEncode(load.getValue("address")) & " | "
body = body & "| City: | " & Server.HTMLEncode(load.getValue("city")) & " | "
body = body & "| State: | " & Server.HTMLEncode(load.getValue("state")) & " | "
body = body & "| Zip: | " & Server.HTMLEncode(load.getValue("zip")) & " | "
body = body & "| Phone: | " & Server.HTMLEncode(load.getValue("phone")) & " | "
body = body & "| Email Address: | " & Server.HTMLEncode(load.getValue("email")) & " | "
body = body & "| Position Looking to Fill: | " & Server.HTMLEncode(load.getValue("positiontofill")) & " | "
interestedIn = ""
interestedIn = interestedIn & Server.HTMLEncode(load.getValue("type1"))
if interestedIn <> "" then
interestedIn = interestedIn & "
"
end if
interestedIn = interestedIn & Server.HTMLEncode(load.getValue("type2"))
body = body & "| Position Status: | " & interestedIn & " | "
body = body & "| Comments: | " & Server.HTMLEncode(load.getValue("comments")) & " | "
body = body & " "
status = true
if status = true then
'determine where to send email
'choose closest branch by zip code
'if not found then by state
' email = ""
'branchName = ""
'offices = getOffices(load.getValue("zip"))
'if UBound(offices) >= 0 then
'office found
' email = offices(0).getAttr("directoremail")
' branchName = offices(0).getAttr("name")
'else
'office not found, use state
' offices = getOffices(false)
'for i = 0 to UBound(offices)
' if offices(i).getAttr("state") = load.getValue("state") then
' email = offices(i).getAttr("directoremail")
' branchName = offices(i).getAttr("name")
'exit for
' end if
'next
' end if
' if still no email then use the generic contact email
'if email = "" then
' email = "contactacsys@acsysinc.com"
'end if
email = "contactIT@acsysinc.com"
'send email
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Acsys Client Search Submission"
objMessage.From = "contactacsys@acsysinc.com"
objMessage.To = email
objMessage.BCC = "klachman@acsysinc.com"
objMessage.HTMLBody = body
objMessage.Send
' save submission data
result = saveSubmissionData(5, load.getValue("title"), load.getValue("positiontofill"), load.getValue("type1"), "", load.getValue("type2"), load.getValue("salutation"), load.getValue("firstname"), load.getValue("lastname"), load.getValue("address"), load.getValue("city"), load.getValue("state"), load.getValue("zip"), load.getValue("email"), load.getValue("education"), load.getValue("company"), load.getValue("phone"), load.getValue("comments"), branchName, "")
%>
Thank you for your submission.
<%
else
%>
There was an error with your submission. Please click the back button and try again.
<%
end if
else
%>
<%
end if
%>
|
 |
