Hi,
I have a form which submits an email using CDONTS.
For some reason following a submission it also sends an additional email which is blank.
It doesnt always do this, and I can't find out why it might be happening.

Heres the send page: www.wearetickledpink.co.uk/ordersample.asp

Does anyone have any ideas ?..
I'm new to ASP..
Steve

Hi Steve

Can you post the code you're using please?

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
<b>Lee Diggins</b> - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Hi Lee,
Heres the code:

&lt;%
'Set the response buffer to true so we execute all asp code before sending the HTML to the clients browser
Response.Buffer = True

'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send carbon copies of the e-mail
Dim strBCCEmailAddress 'Holds any blind copy e-mail addresses if you wish to send blind copies of the e-mail
Dim strReturnEmailAddress 'Holds the return e-mail address of the user


'----------------- Place your e-mail address in the following sting ----------------------------------

strMyEmailAddress = " "

'----------- Place Carbon Copy e-mail address's in the following sting, separated by ; --------------

strCCEmailAddress = "" 'Use this string only if you want to send the carbon copies of the e-mail

'----------- Place Blind Copy e-mail address's in the following sting, separated by ; --------------

strBCCEmailAddress = " " 'Use this string only if you want to send the blind copies of the e-mail

'-----------------------------------------------------------------------------------------------------


'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email"


'Initialse strBody string with the body of the e-mail
strBody = "&lt;h2&gt;Please send me a sample&lt;/h2&gt;"
strBody = strBody & "&lt;b&gt;Name: &lt;/b&gt;" & Request.Form("First name" & "&lt;br&gt;&lt;b&gt;Last name &lt;/b&gt;" & Replace (Request.Form("Last Name", vbCrLf, "&lt;br&gt;" & "&lt;br&gt;&lt;b&gt;Tel no: &lt;/b&gt;" & Request.Form("tel" & "&lt;br&gt;&lt;b&gt;Address &lt;/b&gt;" & Request.Form("Address" & "&lt;br&gt;&lt;b&gt;Town &lt;/b&gt;" & Request.Form("Town Name" & "&lt;br&gt;&lt;b&gt;Post Code &lt;/b&gt;" & Request.Form("postcode" & "&lt;br&gt;&lt;b&gt;How did you hear about us ? &lt;/b&gt;" & Request.Form("Where did you hear from us ?"& "&lt;br&gt;&lt;b&gt;Date of Wedding &lt;/b&gt;" & Replace (Request.Form("date", vbCrLf, "&lt;br&gt;"
strBody = strbody & "&lt;br&gt;&lt;br&gt;They would like one of the following samples ! "& Replace (Request.Form("", vbCrLf, "&lt;br&gt;"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Bridal Gown ? &lt;/b&gt;" & Replace (Request.Form("bridal_gown", vbCrLf, "&lt;br&gt;"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Civil Partnership ? &lt;/b&gt;" & Replace (Request.Form("Civil_partnership", vbCrLf, "&lt;br&gt;"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Entwined_Hearts ? &lt;/b&gt;" & Replace (Request.Form("Entwined_Hearts", vbCrLf, "&lt;br&gt;"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Happy_couple ? &lt;/b&gt;" & Request.Form("Happy_couple"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Two_Hearts ? &lt;/b&gt;" & Request.Form("Two_Hearts"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Wedding_Cake ? &lt;/b&gt;" & Request.Form("Wedding_Cake"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Anne_mae ? &lt;/b&gt;" & Request.Form("anne_mae"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Flutterby_butterfly ? &lt;/b&gt;" & Request.Form("Flutterby_butterfly"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Flower_Power ? &lt;/b&gt;" & Request.Form("Flower_Power"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Handbag ? &lt;/b&gt;" & Request.Form("Handbag"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Gerbera ? &lt;/b&gt;" & Request.Form("Gerbera"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Single_Heart ? &lt;/b&gt;" & Request.Form("Single_Heart"
strBody = strBody & "&lt;br&gt;&lt;b&gt;Cake_stand ? &lt;/b&gt;" & Request.Form("Cake_stand"
strBody = strBody & "&lt;br&gt;&lt;br&gt;&lt;b&gt;Question - &lt;/b&gt;&lt;br&gt;" & Replace(Request.Form("Question", vbCrLf, "&lt;br&gt;"


'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
'If Len(strReturnEmailAddress) &lt; 5 OR NOT Instr(1, strReturnEmailAddress, " " = 0 OR InStr(1, strReturnEmailAddress, "@", 1) &lt; 2 OR InStrRev(strReturnEmailAddress, "." &lt; InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own
'strReturnEmailAddress = strMyEmailAddress
'End If


'Send the e-mail

'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail"

'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("first" & " &lt;" & strReturnEmailAddress & "&gt;"

'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress

'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress

'Who the blind copies are sent to
objCDOMail.Bcc = strBCCEmailAddress

'Set the e-mail body format (0=HTML 1=Text)
objCDOMail.BodyFormat = 0

'Set the mail format (0=MIME 1=Text)
objCDOMail.MailFormat = 0

'Set the subject of the e-mail
objCDOMail.Subject = "Please send me a sample"

'Set the main body of the e-mail
objCDOMail.Body = strBody

'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1

if instr(Request.ServerVariables("PATH_TRANSLATED","domains\w\wearetickledpink.co.uk" &gt; 0 then
objCDOMail.Send
else
Response.write("send failed"

end if
'Close the server object
Set objCDOMail = Nothing
%&gt;

Steve

Hi Steve

I can't replicate this problem using your code, I only get 1 email, your code is fine.

I have heard in the past about email client bugs where they process an email as two items, think this affected Outlook or Outlook Express, can't remember which.

Can you try with a different client or add my email address to a test send -

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
<b>Lee Diggins</b> - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Hi Lee,
Thanks for your support over this....

Touch-wood I dont seem to have had any duplicates since removing this line of code:

'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
'If Len(strReturnEmailAddress) &lt; 5 OR NOT Instr(1, strReturnEmailAddress, " " = 0 OR InStr(1, strReturnEmailAddress, "@", 1) &lt; 2 OR InStrRev(strReturnEmailAddress, "." &lt; InStr(1, strReturnEmailAddress, "@", 1) Then

'Set the return e-mail address to your own
'strReturnEmailAddress = strMyEmailAddress
'End If

I have however had a few spam emails which have populated all fields with a random email addres eg
Do you think using CAPTCHA will eliminate this ?

Steve

Hi Steve

Your spam issue is probably due to having a mailto link in your footer or spammers just chancing on being delivered.

CAPTCHA helps with automated form submission attempts so if you're getting completed forms submitted then it's definately worth adding to the page to block these.

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
<b>Lee Diggins</b> - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Hi Lee,
The mailto link is coded in hex, rather than plain text which I thought helped ?

I will add the CAPTCHA in the next couple of days...

If you have more than one form using CDONTS, when submitted I assume it will only send that particular form (not all forms on the site which use CDONTS). I just read something somewhere which said if CDONTS is used it can submit all your forms at the same time ?

Steve

Hi Steve

Mailto - sorry didn't notice.

CDONTS - never heard that before, depends on how you handle form submission I would've thought.

Sharing Knowledge Saves Valuable Time!!!
~ ~ ~ ~ ~ ~
<b>Lee Diggins</b> - <i>DMXzone Manager</i>
<font size="1">[ Studio MX/MX2004 | ASP -> VBScript/PerlScript/JavaScript | SQL | CSS ]</font>

Hi Lee,
Thanks for all your support over this
<img src=../images/dmxzone/forum/icon_smile_big.gif border=0 align=middle>

kind regards
Steve