<% if Request("Submit") = "SUBMIT" then
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
' Change email address here
objMail.From = "complaints@fndi.ae"
' Change email address here
objMail.To = "fndi@emirates.net.ae"
objMail.Subject = "Complaint!"
' THIS is where you can customize
message = " RESPONSE FROM COMPLAINTS FORM | | | | Name: | " & Request("name") & " | | Email: | " & Request("email") & " | | Complaint: | " & Request("complaint") & " |
"
'BELOW 2 Lines have to be added in the other files
objMail.MailFormat = 0
objMail.BodyFormat = 0
' THATS THE END OF the new additions
objMail.Body = message
objMail.Send
set objMail = nothing
Response.write("You complaint has been received.")
else %>
<%end if %>
|