<%@LANGUAGE="VBSCRIPT"%>
<%OPTION EXPLICIT%>
<% Dim sName, sEmail, sDesgn, sComm, sCmpName
sName=Request.Form("txtName")
sEmail=Request.Form("txtEmail")
sDesgn=Request.Form("txtDesgn")
sComm=Request.Form("txtComments")
sCmpName=Request.Form("txtCmpName")
Response.Write(sName)
Response.Write(sEmail)
Response.Write(sDesgn)
Response.Write(sComm)
Response.Write(sCmpName)
Dim sEmailText
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & "HTML Email"
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & "Feedback message from: " & sName & "
"
sEmailText = sEmailText & "Company name: " & sCmpName & "
"
sEmailText = sEmailText & "Designation: " & sDesgn & "
"
sEmailText = sEmailText & "Message:" & sComm & "
"
sEmailText = sEmailText & "Date & Time:" & Now() & "
"
sEmailText = sEmailText & "IP :" & Request.ServerVariables("REMOTE_ADDR")
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
sEmailText = sEmailText & ""
Dim NewMailObj
Set NewMailObj=Server.CreateObject("CDONTS.NewMail")
NewMailObj.From=sEmail 'This is the email of the feedback sender
NewMailObj.To = "careers@svlinfotech.com" 'change to your address
NewMailObj.Subject = "Feedback"
NewMailObj.Body = sEmailText
NewMailObj.BodyFormat = 0
NewMailObj.MailFormat = 0
NewMailObj.Send
Set NewMailObj=Nothing
Response.write "Thank you for sending your feedback.
"
Response.write "We will get back to you if necessary.
"
Private Sub cmdOpen_Click()
'CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNPathMustExist + cdlOFNFileMustExist
' Set filters
CommonDialog1.Filter = "All Files (*.*)|*.*|RTF (*.rtf)|*.rtf|Text Files (*.txt)|*.txt"
' Display the Save dialog box
CommonDialog1.Filename = ""
CommonDialog1.ShowOpen
txtAttach.Text = "File Selected: " & CommonDialog1.Filename
Exit Sub
%>
SVL Infotech.....Resume Submission
