<%@ 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
%>