We help IT Professionals succeed at work.
Get Started

I have a cdonts form  I get 2 email but should only get one

DDean
DDean asked
on
144 Views
Last Modified: 2015-06-23
I have a form that send a cdonts email used to work but moved it to a different hosting company and now I get 2 email instead of one. I have look for an answer but I cant find a solution for my issue. The code is below. I would appreciate any help.

Thanks

<%@ Language=VBScript %>
<%
Dim name,email,phone,comment,objMail

Email = Request.Form("Email")
Name = Request.Form("Name")
Phone = Request.Form("Phone")
Comments = Request.Form("Comments")
ContactBy = Request.Form("ContactBy")
DateSent = Date()


sBody = "Today is: " & DateSent
sBody = sBody & vbCrLf & "============================================"
sBody = sBody & vbCrLf & "My name is: " & Name
sBody = sBody & vbCrLf & "My phone number is: " & Phone
sBody = sBody & vbCrLf & "My email Is: " & Email
sBody = sBody & vbCrLf & vbCrLf & "Here is my Question / Comment: "
sBody = sBody & vbCrLf & Comments
sBody = sBody & vbCrLf& vbCrLf & "I prefer to be contacted " & ContactBy

Set objMail = CreateObject("CDO.Message")

objMail.From = Request.Form("Email")
objMail.Subject = "Question/Comment from GVMC Website"
objMail.TextBody = sBody

objMail.To = "dgd@abctools.com"
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.bc-alter.net"
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
'Authentication
objMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "dgd@abctools.com"
objMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "so what"
objMail.Configuration.Fields.Update
objMail.Send
objMail.Send()
Set objMail = Nothing
Response.Redirect "commentthanks.php"

%>
Comment
Watch Question
Web Ninja at large
CERTIFIED EXPERT
Commented:
This problem has been solved!
Unlock 1 Answer and 2 Comments.
See Answer
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE