<%@ language="VBScript" %>
<html>
<head>
</head>
<body>
<%
FromName=request.Form("FromName")
EmailFrom=request.Form("EmailFrom")
EmailTo="sales@trisys.com.my"
'request.Form("EmailTo")
CC=request.Form("CC")
Subject=request.Form("Subject")
Important=request.Form("Important")
Content=request.Form("Content")
myType=request.QueryString("myType")
'CC="trisys@trisys.com.my"
Important="1"
' Declare Variables
Dim objNewMail, strFilePath
' Create Instance of NewMail Object
Set objNewMail = Server.CreateObject("CDO.Message")
' Set Email Priority (1 = Normal)
objNewMail.Importance = 1
' Send plain text email
objNewMail.BodyFormat = 1
' Senders email address
objNewMail.From = EmailFrom
' Recipients email address
objNewMail.To = EmailTo
'objNewMail.CC = CC
' Email Subject
objNewMail.Subject = Subject
' Email Body
objNewMail.TextBody = "From:" & FromName & " " & vbcrlf & "Email:" &
mailFrom &
vbcrlf & Content
' Send Email
objNewMail.Send()
' Destroy object to release it from memory
Set objNewMail = Nothing
'response.Write "send to:" & strEmailTo
'response.End
response.Redirect("Result.asp?myType=" & myType & "&AppMsg=<div align=center>
<font color=gray size=2><b><p><p><p>THANK YOU<br>Your enquiry has been sent
viaemail.<br>We will contact you as soon as possible.</b></font></div>")
%>
Above is the code from enquiry.asp
from my company website which I assume nobody have check it for a long time. and when I try to edit it, the email won't even work. So I am aware this is because of CDONT
. So I need someone to help or guide me in changing it to CDOSYS
.
Hope you guys can help me.
this is the error that i get after i click submit at Enquiry page on the website
enter image description here
i already try to check the custom error documents button in my plesk.is this what you guys mean?by this message what it trying to say exactly?