• Home
• About Us
• Products
• Services
• Careers
• Events
• Contact Us
  • Driving Direction 1
  • Driving Direction 2

<%@ language=vbscript %> <% On error resume next Dim position Dim positionValue position=Request.QueryString("position") If position = 1 Then positionValue="Java Architect" ElseIf position = 2 Then positionValue="Database Engineer" ElseIf position = 3 Then positionValue="UI/UX Engineer" ElseIf position = 4 Then positionValue="Sr. Java Developers" ElseIf position = 5 Then positionValue="Java Developers" ElseIf position = 6 Then positionValue="Fresh Engineers" End If Set Upload = Server.CreateObject("Persits.Upload") Upload.IgnoreNoPost = True Upload.Save Server.MapPath("\") Set File = Upload.Files("FILE1") If Not File Is Nothing Then Filename = file.Filename If Upload.FileExists(Server.MapPath("\") & "\resume\" & filename) Then 'Response.Write "File with this name already exists." Else File.SaveAs Server.MapPath("\") & "\resume\" & filename 'Response.Write "File saved as " & File.Path End If Else 'Response.Write "File not selected." End If if (Upload.Form("submit") <> "") Then Dim Message Dim objCDOMail Message = "" Message = Message &"Position: "& trim(Upload.Form("txtPosition")) & "
" Message = Message &"Name: "& trim(Upload.Form("txtFName")) & " " & trim(Upload.Form("txtLName")) & "
" Message = Message &"Email Address: "& trim(Upload.Form("txtEmail")) & "
" ' Message = Message &"Phone Number: "& trim(Upload.Form("txtPhone")) & "
" Message = Message &"Mobile Number: "& trim(Upload.Form("txtPhone")) & "
" Message = Message &"Cover Notes: "& replace(Upload.Form("txtMessage"),vbCrLf,"
") & "
" Message = Message + "================================="& "
" Message = Message + "Date and Time: "& now & "
" Message = Message + "IP Address: "& Request.ServerVariables("REMOTE_ADDR") & "
" & "
" Message = Message + "" ' ' The below code is to be enabled at KSI Server 'if (trim(Request.form("txtName")) <> "" and trim(Request.form("txtemail")) <> "" and trim(Request.form("txtMessage")) <> "") then 'dim SMTP 'Set SMTP = Server.CreateObject("IceWarpCOM.Mailer") 'SMTP.RemoteHost = "localhost" 'SMTP.FromAddress = txtName &"<"& trim(Request.form("txtemail")) &">" 'SMTP.AddRecipient "maddipati@indussoftware.net", " " 'SMTP.IsHTML = True 'html format 'SMTP.Subject = "Submitted Enquiry, from the site - Indus Business Systems Limited" 'email subject 'SMTP.BodyText = Message 'email body 'SMTP.SendMail() 'set SMTP=nothing 'end if if (trim(Upload.Form("txtFName")) <> "" and trim(Upload.Form("txtLName")) <> "" and trim(Upload.Form("txtemail")) <> "" and trim(Upload.Form("txtMessage")) <> "") then Set objCDOMail = Server.CreateObject("CDO.Message") objCDOMail.From = txtName &"<"& trim(Upload.Form("txtemail")) &">" 'objCDOMail.To = "venkat@indussoftware.net,mangareddy@indussoftware.net,prasad@indussoftware.com,maddipati@indussoftware.net" objCDOMail.To = "venkat@indussoftware.net,mangareddy@indussoftware.net,hr@indussoftware.net, sharath@indussoftware.net" objCDOMail.Subject = "Submit Resume, from the site - Indus Business Systems Limited" 'email subject objCDOMail.HTMLBody = Message ' objCDOMail.AddAttachment FileName ' objCDOMail.AddAttachment "E:\indus_rvs\website\RAE-3326-Potential Conflict of Interest-ePChange.docx" objCDOMail.AddAttachment Server.MapPath("\") & "\resume\" & filename objCDOMail.Send Set objCDOMail = Nothing end if Response.redirect("careers.html") End If %>