Submit Resume
<%
Dim strTo, strSubject, strBody 'Strings for recipient, subject, body
Dim objCDOMail 'The CDO object
SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
Errors = ""
name = Request.Form("name")
email = Request.Form("email")
phone1 = Request.Form("phone1")
phone2 = Request.Form("phone2")
phone3 = Request.Form("phone3")
address = Request.Form("address")
position = Request.Form("position")
web_address = Request.Form("web_address")
code_in = Request.Form("code_in")
other_code = Request.Form("other_code")
program_in = Request.Form("program_in")
other_software = Request.Form("other_software")
education = Request.Form("education")
st_1st_emp = Request.Form("st_1st_emp")
st_name_emp = Request.Form("st_name_emp")
st_address_emp = Request.Form("st_address_emp")
st_phone_emp1 = Request.Form("st_phone_emp1")
st_phone_emp2 = Request.Form("st_phone_emp2")
st_phone_emp3 = Request.Form("st_phone_emp3")
st_tile_emp = Request.Form("st_tile_emp")
st_start_end = Request.Form("st_start_end")
nd_1st_emp = Request.Form("nd_1st_emp")
nd_name_emp = Request.Form("nd_name_emp")
nd_address_emp = Request.Form("nd_address_emp")
nd_phone_emp1 = Request.Form("nd_phone_emp1")
nd_phone_emp2 = Request.Form("nd_phone_emp2")
nd_phone_emp3 = Request.Form("nd_phone_emp3")
nd_tile_emp = Request.Form("nd_tile_emp")
nd_start_end = Request.Form("nd_start_end")
rd_1st_emp = Request.Form("rd_1st_emp")
rd_name_emp = Request.Form("rd_name_emp")
rd_address_emp = Request.Form("rd_address_emp")
rd_phone_emp1 = Request.Form("rd_phone_emp1")
rd_phone_emp2 = Request.Form("rd_phone_emp2")
rd_phone_emp3 = Request.Form("rd_phone_emp3")
rd_tile_emp = Request.Form("rd_tile_emp")
rd_start_end = Request.Form("rd_start_end")
th_1st_emp = Request.Form("rd_1st_emp")
th_name_emp = Request.Form("rd_name_emp")
th_address_emp = Request.Form("rd_address_emp")
th_phone_emp1 = Request.Form("rd_phone_emp1")
th_phone_emp2 = Request.Form("rd_phone_emp2")
th_phone_emp3 = Request.Form("rd_phone_emp3")
th_tile_emp = Request.Form("rd_tile_emp")
th_start_end = Request.Form("rd_start_end")
ref_one = Request.Form("ref_one")
ref_one_phone1 = Request.Form("ref_one_phone1")
ref_one_phone2 = Request.Form("ref_one_phone2")
ref_one_phone3 = Request.Form("ref_one_phone3")
ref_two = Request.Form("ref_two")
ref_two_phone1 = Request.Form("ref_two_phone1")
ref_two_phone2 = Request.Form("ref_two_phone2")
ref_two_phone3 = Request.Form("ref_two_phone3")
ref_three = Request.Form("ref_three")
ref_three_phone1 = Request.Form("ref_three_phone1")
ref_three_phone2 = Request.Form("ref_three_phone2")
ref_three_phone3 = Request.Form("ref_three_phone3")
comments = Request.Form("comments")
function selected(string1)
string2 = code_in & ", " & program_in
i = inStr(string1,string2)
if i <> "0" then
response.write " selected>" & string1
else
response.write ">" & string1
end if
end function
' Check for errors
if name = "" then
Errors = "Please enter a name."
elseif (email = "") or (Not IsValidEmail(email)) then
Errors = "Please enter a valid e-mail address."
elseif phone1 = "" then
Errors = "Please enter a phone number."
elseif address = "" then
Errors = "Please enter a address."
elseif position = "" then
Errors = "Please select a position."
elseif code_in = "" then
Errors = "Please select the technologies you have experience with."
elseif program_in = "" then
Errors = "Please select the software you have experience with."
end if
if Errors <> "" then
%>
Thank you for your interest in Design Wonders Networking!
Please fill out the information below to submit your online resume to us.
You may also e-mail your resume to us. Please send your resume in text format
inside the body of the e-mail to hr@designwonders.com.
You may also mail or fax us your resume:
3740 North Josey Lane
Suite 200
Carrollton, TX 75007
Fax: 972-932-9044
<%
If (Errors <> "" and request.form("submit") <> "") Then
%>
<%= Errors %>
<%
end if
%>
<%
Else
if name = "" then name = " "
if email = "" then email = " "
if phone1 <> "" then
phone = phone1 & "-" & phone2 & "-" & phone3
else
phone = " "
end if
if address = "" then address = " "
if position = "" then position = " "
if web_address = "" then web_address = " "
if code_in = "" then code_in = " "
if other_code = "" then other_code = " "
if program_in = "" then program_in = " "
if other_software = "" then other_software = " "
if comments = "" then comments = " "
if st_1st_emp = "" then st_1st_emp = " "
if st_name_emp = "" then st_name_emp = " "
if st_address_emp = "" then st_address_emp = " "
if st_phone_emp1 <> "" then
st_phone_emp = st_phone_emp1 & "-" & st_phone_emp2 & "-" & st_phone_emp3
else
st_phone_emp = " "
end if
if st_tile_emp = "" then st_tile_emp = " "
if st_start_end = "" then st_start_end = " "
if nd_1st_emp = "" then nd_1st_emp = " "
if nd_name_emp = "" then nd_name_emp = " "
if nd_address_emp = "" then nd_address_emp = " "
if nd_phone_emp1 <> "" then
nd_phone_emp = nd_phone_emp1 & "-" & nd_phone_emp2 & "-" & nd_phone_emp3
else
nd_phone_emp = " "
end if
if nd_tile_emp = "" then nd_tile_emp = " "
if nd_start_end = "" then nd_start_end = " "
if rd_1st_emp = "" then rd_1st_emp = " "
if rd_name_emp = "" then rd_name_emp = " "
if rd_address_emp = "" then rd_address_emp = " "
if rd_phone_emp1 <> "" then
rd_phone_emp = rd_phone_emp1 & "-" & rd_phone_emp2 & "-" & rd_phone_emp3
else
rd_phone_emp = " "
end if
if rd_tile_emp = "" then rd_tile_emp = " "
if rd_start_end = "" then rd_start_end = " "
if th_1st_emp = "" then th_1st_emp = " "
if th_name_emp = "" then th_name_emp = " "
if th_address_emp = "" then th_address_emp = " "
if th_phone_emp1 <> "" then
th_phone_emp = th_phone_emp1 & "-" & th_phone_emp2 & "-" & th_phone_emp3
else
th_phone_emp = " "
end if
if th_tile_emp = "" then th_tile_emp = " "
if th_start_end <> "" then th_start_end = " "
if ref_one = "" then ref_one = " "
if ref_one_phone1 <> "" then
ref_one_phone = ref_one_phone1 & "-" & ref_one_phone2 & "-" & ref_one_phone3
else
ref_one_phone = " "
end if
if ref_two = "" then ref_two = " "
if ref_two_phone1 <> "" then
ref_two_phone = ref_two_phone1 & "-" & ref_two_phone2 & "-" & ref_two_phone3
else
ref_two_phone = " "
end if
if ref_three = "" then ref_three = " "
if ref_three_phone1 <> "" then
ref_three_phone = ref_three_phone1 & "-" & ref_three_phone2 & "-" & ref_three_phone3
else
ref_three_phone = " "
end if
if comments = "" then
comments = " "
else
comments = Replace(comments,"'","''")
end if
strSubject = "Design Wonders Networking Resume Submission"
strBody = ""
if name <> " " then
strBody = strBody & "Name: " & name & vbCrLf
end if
if email <> " " then
strBody = strBody & "E-mail: " & email & vbCrLf
end if
if phone <> " " then
strBody = strBody & "Phone: " & phone & vbCrLf
end if
if address <> " " then
strBody = strBody & "Address: " & address & vbCrLf & vbCrLf
end if
if position <> " " then
strBody = strBody & "Position: " & position & vbCrLf & vbCrLf
end if
if web_address <> " " then
strBody = strBody & "Website:" & web_address & vbCrLf
end if
if code_in <> " " then
strBody = strBody & "Programming Experience: " & code_in & vbCrLf
end if
if other_code <> " " then
strBody = strBody & "Other Programming Experience: " & other_code & vbCrLf
end if
if program_in <> " " then
strBody = strBody & "Software Experience: " & program_in & vbCrLf
end if
if other_software <> " " then
strBody = strBody & "Other Software Experience: " & other_software & vbCrLf
end if
if education <> "" then
strBody = strBody & "Level Of Education: " & education & vbCrLf
end if
if st_1st_emp <> "" then
strBody = strBody & "Employer (1st): " & st_1st_emp & vbCrLf
end if
if st_name_emp <> "" then
strBody = strBody & "Name of supervisor: " & st_name_emp & vbCrLf
end if
if st_address_emp <> "" then
strBody = strBody & "Address: " & st_address_emp & vbCrLf
end if
if st_phone_emp <> "" then
strBody = strBody & "Phone: " & st_phone_emp & vbCrLf
end if
if st_tile_emp <> "" then
strBody = strBody & "Title: " & st_tile_emp & vbCrLf
end if
if st_start_end <> " " then
strBody = strBody & "Start-End: " & st_start_end & vbCrLf
end if
if nd_1st_emp <> "" then
strBody = strBody & "Employer (2nd): " & nd_1st_emp & vbCrLf
end if
if nd_name_emp <> "" then
strBody = strBody & "Name of supervisor: " & nd_name_emp & vbCrLf
end if
if nd_address_emp <> "" then
strBody = strBody & "Address: " & nd_address_emp & vbCrLf
end if
if nd_phone_emp <> "" then
strBody = strBody & "Phone: " & nd_phone_emp & vbCrLf
end if
if nd_tile_emp <> "" then
strBody = strBody & "Title: " & nd_tile_emp & vbCrLf
end if
if nd_start_end <> " " then
strBody = strBody & "Start-End: " & nd_start_end & vbCrLf
end if
if rd_1st_emp <> "" then
strBody = strBody & "Employer (3rd): " & rd_1st_emp & vbCrLf
end if
if rd_name_emp <> "" then
strBody = strBody & "Name of supervisor: " & rd_name_emp & vbCrLf
end if
if rd_address_emp <> "" then
strBody = strBody & "Address: " & rd_address_emp & vbCrLf
end if
if rd_phone_emp <> "" then
strBody = strBody & "Phone: " & rd_phone_emp & vbCrLf
end if
if rd_tile_emp <> "" then
strBody = strBody & "Title: " & rd_tile_emp & vbCrLf
end if
if rd_start_end <> " " then
strBody = strBody & "Start-End: " & rd_start_end & vbCrLf
end if
if th_1st_emp <> "" then
strBody = strBody & "Employer (4th): " & th_1st_emp & vbCrLf
end if
if th_name_emp <> "" then
strBody = strBody & "Name of supervisor: " & th_name_emp & vbCrLf
end if
if th_address_emp <> "" then
strBody = strBody & "Address: " & th_address_emp & vbCrLf
end if
if th_phone_emp <> "" then
strBody = strBody & "Phone: " & th_phone_emp & vbCrLf
end if
if th_tile_emp <> "" then
strBody = strBody & "Title: " & th_tile_emp & vbCrLf
end if
if th_start_end <> " " then
strBody = strBody & "Start-End: " & th_start_end & vbCrLf
end if
if ref_one <> "" then
strBody = strBody & "Reference One: " & ref_one & vbCrLf
end if
if ref_one_phone <> "" then
strBody = strBody & "Reference Phone: " & ref_one_phone & vbCrLf
end if
if ref_two <> "" then
strBody = strBody & "Reference Two: " & ref_two & vbCrLf
end if
if ref_two_phone <> "" then
strBody = strBody & "Reference Phone: " & ref_two_phone & vbCrLf
end if
if ref_three <> "" then
strBody = strBody & "Reference Three: " & ref_three & vbCrLf
end if
if ref_three_phone <> "" then
strBody = strBody & "Reference Phone: " & ref_three_phone & vbCrLf
end if
if comments <> " " then
strBody = strBody & "Cover Letter: " & vbCrLf & comments & vbCrLf
end if
strBody = strBody & vbCrLf
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "DBQ=" & Server.MapPath("/data/resumes.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
strSQL = ""
strSQL = strSQL & "INSERT INTO resumes (name, email, phone, address, position, web_address, code_in, " & _
"other_code, program_in, other_software, education, st_1st_emp, st_name_emp, st_address_emp, st_phone_emp, " & _
"st_tile_emp, st_start_end, nd_1st_emp, nd_name_emp, nd_address_emp, nd_phone_emp, nd_tile_emp, nd_start_end, " & _
"rd_1st_emp, rd_name_emp, rd_address_emp, rd_phone_emp, rd_tile_emp, rd_start_end, th_1st_emp, th_name_emp, " & _
"th_address_emp, th_phone_emp, th_tile_emp, th_start_end, ref_one, ref_one_phone, " & _
"ref_two, ref_two_phone, ref_three, ref_three_phone, comments)"
strSQL = strSQL & " VALUES ("
strSQL = strSQL & "'" & name & "',"
strSQL = strSQL & "'" & email & "', "
strSQL = strSQL & "'" & phone & "', "
strSQL = strSQL & "'" & address & "', "
strSQL = strSQL & "'" & position & "', "
strSQL = strSQL & "'" & web_address & "', "
strSQL = strSQL & "'" & code_in & "', "
strSQL = strSQL & "'" & other_code & "', "
strSQL = strSQL & "'" & program_in & "', "
strSQL = strSQL & "'" & other_software & "', "
strSQL = strSQL & "'" & education & "', "
strSQL = strSQL & "'" & st_1st_emp & "', "
strSQL = strSQL & "'" & st_name_emp & "', "
strSQL = strSQL & "'" & st_address_emp & "', "
strSQL = strSQL & "'" & st_phone_emp & "', "
strSQL = strSQL & "'" & st_tile_emp & "', "
strSQL = strSQL & "'" & st_start_end & "', "
strSQL = strSQL & "'" & nd_1st_emp & "', "
strSQL = strSQL & "'" & nd_name_emp & "', "
strSQL = strSQL & "'" & nd_address_emp & "', "
strSQL = strSQL & "'" & nd_phone_emp & "', "
strSQL = strSQL & "'" & nd_tile_emp & "', "
strSQL = strSQL & "'" & nd_start_end & "', "
strSQL = strSQL & "'" & rd_1st_emp & "', "
strSQL = strSQL & "'" & rd_name_emp & "', "
strSQL = strSQL & "'" & rd_address_emp & "', "
strSQL = strSQL & "'" & rd_phone_emp & "', "
strSQL = strSQL & "'" & rd_tile_emp & "', "
strSQL = strSQL & "'" & rd_start_end & "', "
strSQL = strSQL & "'" & th_1st_emp & "', "
strSQL = strSQL & "'" & th_name_emp & "', "
strSQL = strSQL & "'" & th_address_emp & "', "
strSQL = strSQL & "'" & th_phone_emp & "', "
strSQL = strSQL & "'" & th_tile_emp & "', "
strSQL = strSQL & "'" & th_start_end & "', "
strSQL = strSQL & "'" & ref_one & "', "
strSQL = strSQL & "'" & ref_one_phone & "', "
strSQL = strSQL & "'" & ref_two & "', "
strSQL = strSQL & "'" & ref_two_phone & "', "
strSQL = strSQL & "'" & ref_three & "', "
strSQL = strSQL & "'" & ref_three_phone & "', "
strSQL = strSQL & "'" & comments & "');"
MyConn.Execute strSQL, adAffectAll, adCmdText Or adExecuteNoRecords
' Create an instance of the NewMail object.
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "" & request.form("name") & " <" & email & ">"
objCDOMail.To = "Design Wonders Networking "
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.MailFormat = 0 ' CdoMailFormatMime
objCDOMail.Send
Set objCDOMail = Nothing
strBody2 = "Thank you for your interest in Design Wonders Networking! We have received your resume and will be reviewing your " _
& "qualifications shortly. If we feel your qualifications fit what we are looking for at this time, we will be in touch with you shortly. " _
& "Otherwise we will keep your resume on file for 6 months in case any positions become available. Please do not call or e-mail asking " _
& "if we have received your resume or if you are still in consideration for a particular job. If we feel your qualifications fit into our " _
& "company's needs at this time, we will be in touch with you." & vbCrLf & vbCrLf
strBody2 = strBody2 & "This request was received from the resume submission section at www.designwonders.com. "
strBody2 = strBody2 & "If you have received this message in error, please contact us immediately at "
strBody2 = strBody2 & "updates@designwonders.com or 972-492-0444." & vbCrLf & vbCrLf
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "Design Wonders Networking "
objCDOMail.To = "" & request.form("name") & " <" & email & ">"
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody2
objCDOMail.MailFormat = 0 ' CdoMailFormatMime
objCDOMail.Send
Set objCDOMail = Nothing
Response.Write "Thank you for your interest in Design Wonders Networking! "
response.write "You have now submitted your resume. If your qualifications match any of our available positions, we "
response.write "will be in touch with you shortly. Otherwise, we will keep your resume on file for 6 months in case any other opportunities become"
response.write " available. "
response.write "Back to Design Wonders Networking home page. "
End If
' End page logic
%>
<%
Function IsValidEmail(strEmail)
Dim bIsValid
bIsValid = True
If Len(strEmail) < 5 Then
bIsValid = False
Else
If Instr(1, strEmail, " ") <> 0 Then
bIsValid = False
Else
If InStr(1, strEmail, "@", 1) < 2 Then
bIsValid = False
Else
If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then
bIsValid = False
End If
End If
End If
End If
IsValidEmail = bIsValid
End Function
%>
|
