<%@ Language=VBScript %> <% str = str & "
" str = str & "" str = str & "" str = str & "" str = str & "
" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "" str = str & "
" str = str & "" str = str & "A p p l i c a t i o n    F O R M" str = str & "
" str = str & "" str = str & "Personal details" str = str & "
" str = str & "Name" str = str & "" str = str & "" str = str & Request.Form("txtname") str = str & "
" str = str & "Address " str = str & Request.Form("txtstreet") str = str & "
" str = str & Request.Form("txtstreet_1") str = str & "
" str = str & "City" str = str & "" str = str & Request.Form("txtcity") str = str & "
" str = str & "Postal Code/ ZIP" str = str & "" str = str & Request.Form("txtpincode") str = str & "
" str = str & "Daytime Tel:" str = str & Request.Form("txtdaytime") str = str & "
" str = str & "Evening Tel:" str = str & Request.Form("txteveningtime") str = str & "
" str = str & "Fax:" str = str & "" str = str & Request.Form("txtfax") str = str & "
" str = str & "Email:" str = str & "" str = str & Request.Form("txtemail") str = str & "
" str = str & "How would you like to be contacted?" str = str & "" str = str & Request.Form("how_contact") str = str & "
" str = str & "Educational background" str = str & "
" str = str & "Degree 1" str = str & "" str = str & Request.Form("deg1") str = str & "
" str = str & "Area of Specialization" str = str & "" str = str & Request.Form("txtspl1") str = str & "
" str = str & "Degree 2" str = str & "" str = str & Request.Form("deg2") str = str & "
" str = str & "Area of Specialization" str = str & "" str = str & Request.Form("txtspl2") str = str & "
" str = str & "Other" str = str & "" str = str & Request.Form("txtother_deg") str = str & "
" str = str & "Area of Specialization" str = str & "" str = str & Request.Form("txtspl3") str = str & "
" str = str & "Technical Skills (indicate if not applicable to the position that you are applying for)" str = str & "
" str = str & "Work Experience" str = str & "" str = str & Request.Form("yrsofexp") str = str & "
" str = str & "Technical Knowledge" str = str & "" str = str & Request.Form("techknow") str = str & "
" str = str & "Nature of work and position held at your last job" str = str & "" str = str & Request.Form("natureofwork") str = str & "
" str = str & "Have you applied at CMS Traffic before?" str = str & "" str = str & Request.Form("applied") str = str & "
" str = str & "If yes, when have you applied ?" str = str & "" str = str & Request.Form("txtwhen") str = str & "
" str = str & "If Yes, for which position did you apply ?" str = str & " " str = str & Request.Form("txtposfor") str = str & "
" str = str & "
" 'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser Response.Buffer = True 'Dimension variables Dim str 'Holds the body of the e-mail Dim objCDOMail 'Holds the mail server object Dim strMyEmailAddress 'Holds your e-mail address 'Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail 'Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail 'Dim strReturnEmailAddress 'Holds the return e-mail address of the user '----------------- Place your e-mail address in the following sting ---------------------------------- strMyEmailAddress = "tslhrd@cms.co.in" '----------- Place Carbon Copy e-mail address's in the following sting, separated by ; -------------- strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail '----------- Place Blind Copy e-mail address's in the following sting, separated by ; -------------- 'strBCCEmailAddress = "" 'Use this string only if you want to send the blind copies of the e-mail '----------------------------------------------------------------------------------------------------- 'Read in the users e-mail address 'strReturnEmailAddress = Request.Form("txtemail") 'Response.Write strBody 'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected 'If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then 'Set the return e-mail address to your own ' strReturnEmailAddress = strMyEmailAddress 'End If 'Send the e-mail 'Create the e-mail server object Set objCDOMail = Server.CreateObject("CDONTS.NewMail") 'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent) objCDOMail.From = "tslhrd@cms.co.in" 'objCDOMail.From = Request.Form("txtemail") 'Response.Write Request.Form("txtname") & "
" 'Who the e-mail is sent to objCDOMail.To = strMyEmailAddress 'Response.Write strMyEmailAddress 'Who the carbon copies are sent to 'objCDOMail.Cc = strCCEmailAddress 'Who the blind copies are sent to 'objCDOMail.Bcc = strBCCEmailAddress 'Set the e-mail body format (0=HTML 1=Text) objCDOMail.BodyFormat = 0 'Set the mail format (0=MIME 1=Text) objCDOMail.MailFormat = 0 'Set the subject of the e-mail 'added dt 30-Jan-04 for multiple locations objCDOMail.Subject = "Resume of " & Request.Form("txtname") & ", for the position of " & Request.Form("resumefor") & " at " & Request.Form("location") 'if Request.Form("txtfile") <> "" then ' Send attachment with mail. ' objCDOMail.AttachFile(Request.Form("txtfile")) 'end if 'Set the main body of the e-mail objCDOMail.Body = str 'Response.Write str & "
" 'Importance of the e-mail (0=Low, 1=Normal, 2=High) objCDOMail.Importance = 1 'Send the e-mail objCDOMail.Send 'Close the server object Set objCDOMail = Nothing %> CMS Traffic Systems Ltd. - Traffic Solutions <% strLoc=Request.QueryString("loc") %>
CMS Traffic - Careers@cmstraffic
Careers@cmstraffic

Thank you <%=Request.Form("txtname")%>, for sending your resume at CMS Traffic Systems Ltd. Your resume will be reviewed and if it is determined that your qualifications match our needs, you will be contacted by our Human Resources Department.

Thank you again for your interest in employment with CMS Traffic Systems Ltd.