% @Language = "VBScript" %>
<%
j= request.querystring("j")
je= request.querystring("je")
REGION = request("REGION")
COUNTRY = request("REGION")
COUNTRY = Mid(COUNTRY, 4)
JOB = request("JOB")
ADDRESS = request("address")
CITY = request("CITY")
FSTATE = request("FSTATE")
ZIP = request("ZIP")
FEMAIL = request("femail")
TEL = request("TEL")
FAX = request("FAX")
NAMEF = request("namef")
NAMEL = request("namel")
grecaptcha = request("g-recaptcha-response")
reCAPTCHAsitekey = "6Le2WQoTAAAAANHOXz5Cx2QzhF_UxG2gio0BJAKm"
reCAPTCHAsecretkey = "6Le2WQoTAAAAAJVEvT-DsKI8tlQpCwc9dzy1GRP9"
%>
<%
dim errormsg(15),errorcount,i
errorcount=-1
if request.form("flag")="1" then
if validate() = 0 then
call email
else
call mainform
end if
else
call mainform
end if
%>
<% function validate()
i=0
IF request("namef")<>"test" THEN
if grecaptcha = "" then
errormsg(i)="You did not check: I'm not a robot.
"
i=i+1
end if
if request("namef") = "" then
errormsg(i)="You did not enter your First Name.
"
i=i+1
end if
if request("namel") = "" then
errormsg(i)="You did not enter your Last Name.
"
i=i+1
end if
if request("femail") = "" then
errormsg(i)="You did not enter your E-mail address.
"
i=i+1
end if
if request("femail") <> "" then
if InStr(1, request("femail"), "@", 1) < 2 then
errormsg(i)="Your E-mail address is missing the @ character.
"
i=i+1
end if
else
end if
if request("femail") <> "" then
if InStr(1, request("femail"), ".", 1) < 4 then
errormsg(i)="Your E-mail address is not complete.
"
i=i+1
end if
else
end if
if request("ADDRESS") = "" then
errormsg(i)="You did not enter your Address.
"
i=i+1
end if
if request("CITY") = "" then
errormsg(i)="You did not enter your City.
"
i=i+1
end if
if request("ZIP") = "" then
errormsg(i)="You did not enter your Postal Code.
"
i=i+1
end if
if request("REGION") = "" then
errormsg(i)="You did not choose your Country.
"
i=i+1
end if
if request("TEL") = "" then
errormsg(i)="You did not enter your Telephone Number.
"
i=i+1
end if
if request("JOB") = "" then
errormsg(i)="You did not choose your Desired Position.
"
i=i+1
end if
if request("SALARY") = "" then
errormsg(i)="You did not choose your Desired Salary.
"
i=i+1
end if
if request("AVAILABLE") = "" then
errormsg(i)="You did not choose your Date Available.
"
i=i+1
end if
if request("message") = "" then
errormsg(i)="You did not add a Resume.
"
i=i+1
end if
END IF ' test
errorcount=i-1
if i = 0 then
validate=0
else
validate=1
end if
end function %>
<% sub email %>
<%
dim sender,recipient,subject,message
message = "Submitted: " & now & " EDT" & VbCrLf
message = message & "--------------------------------------------------------------" & VbCrLf
message = message & "COUNTRY: " & COUNTRY & " " & VbCrLf
message = message & "STATE: " & request("FSTATE") & " " & VbCrLf
message = message & "JOB: " & JOB & " " & VbCrLf
message = message & "--------------------------------------------------------------" & VbCrLf & VbCrLf
message = message & "NAME: " & request("namef") & " " & request("namel") & VbCrLf
IF request("ADDRESS") <> "" THEN
message = message & "ADDR: " & request("ADDRESS") & VbCrLf
END IF
IF request("CITY") <> "" THEN
message = message & "CITY: " & request("CITY") & VbCrLf
END IF
IF request("FSTATE") <> "" THEN
message = message & "STATE: " & request("FSTATE") & VbCrLf
END IF
IF request("ZIP") <> "" THEN
message = message & "ZIP: " & request("ZIP") & VbCrLf
END IF
message = message & "COUNTRY: " & COUNTRY & VbCrLf
message = message & "TEL: " & request("TEL") & VbCrLf
message = message & "EMAIL: " & request("femail") & VbCrLf
IF request("JOB") <> "" THEN
message = message & "JOB WANTED: " & request("JOB") & VbCrLf
END IF
IF request("SALARY") <> "" THEN
message = message & "DESIRED SALARY: " & request("SALARY") & " " & request("SALARYper") & VbCrLf
END IF
IF request("AVAILABLE") <> "" THEN
message = message & "AVAILABLE: " & request("AVAILABLE") & VbCrLf
END IF
message = message & "RESUME: " & VbCrLf
message = message & request("message") & VbCrLf& VbCrLf
message = message & "--------------------------------------------------------------" & VbCrLf & VbCrLf
Dim myCDOSYS
Set myCDOSYS = Server.CreateObject("CDO.Message")
femail = request("femail")
myCDOSYS.From = femail
myCDOSYS.To = "Careers@diamonddiagnostics.com"
myCDOSYS.Bcc = "sbarry@diamonddiagnostics.com"
myCDOSYS.Subject = "Careers - " & COUNTRY & " (" & CITY & ", " & FSTATE & ") - " & JOB
myCDOSYS.TextBody = message
myCDOSYS.Send
Set myCDOSYS = Nothing
%>
<% response.redirect("thanks.asp?tt=c" ) %>
<% end sub %>
<% sub mainform %>
<% cat = "au" %>
<% METAdesc = "How to Apply for a Career at Diamond Diagnostics. " %>
<% METAkey = "Diamond Diagnostics, Careers, jobs" %>
Sorry, your message was not sent because you did not enter all information.
<% IF errmsg = "2" THEN %>
Remember to check: I'm not a robot.
<% END IF %>
Please click here to go back and edit Required information.
Tell us about Yourself
To apply, please either Send us an Email, or Submit the Form below.
Please send all information in English (but specify if you are fluent in other languages).
We will review your information and contact you if your experience matches the position requirements.
Please click here and tell us about yourself. Be sure to let us know:
Note: If you have a Resume/ CV in Word format, please attach it to the email.
Click here to Apply by email with attached Resume/CV
If you do not have a prepared Resume, please use the Form below to send your information.
Review Contact Form
Sorry, your message was not sent because
<% for i = 0 to errorcount %> •
<% =errormsg(i) %>
<% next %>
Please click here to go back and edit Required information
<% END IF %>
Contact Human Resources
If you have a question about Careers at Diamond Diagnostics, or if you have questions about the resume review process,
please contact us.
Career Opportunities - USA |
Career Opportunities - EU |
Diamond Diagnostics is an Equal Opportunity Employer. Diamond values and encourages diversity in the workplace.