<% @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" %> How to Apply to Diamond Diagnostics

How to Apply

<% errmsg= request.querystring("err") IF errmsg <> "" THEN %>

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.

<% END IF %>

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.

<% IF errorcount < 0 THEN ' hide if error messages %>

Send us an Email

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.


<% END IF %>

Submit the Form

<% IF errorcount > -1 THEN ' error messages %>

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 %>
Attach Resume:
(optional)
 

    All fields below are required.
First Name:  
Last Name:  
Address:   
City:   
State:   
Postal Code:   
Country:  
Tel:  
E-mail:  
Desired Position:  
Desired Salary:   Per Hour Per Year
Date Available:  

">


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

Diamond Diagnostics Inc.
Attn: Human Resources
333 Fiske Street
Holliston, MA 01746-2048 USA

Careers@diamonddiagnostics.com
Tel: +1-508-429-0450
Fax: +1-508-429-0452

 

Career Opportunities - EU

Diamond Diagnostics, Kft.
Attn: Human Resources
Ezred Utca 1-3./ c1 bldg. 7 unit
Budapest, Hungary 1044

Careers@diamonddiagnostics.com
Tel: +36 (1) 787 2222
Fax: +36 (1) 787 2255

Diamond Diagnostics is an Equal Opportunity Employer. Diamond values and encourages diversity in the workplace.

<% end sub %>