469,924 Members | 1,492 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,924 developers. It's quick & easy.

CDONTS works intermitantly

Hi Guys

CDONTS works with all sites hosted on my test server bar one (which surely
rules out a miscomputation of the Default SMTP server in IIS). I have tried
uploading the file with make up the site in which CDONTS to one of the IIS
"sites" which is known to work with CDONTS, and still, no email received.
The bad mail dir gets three files each time, the error is:

Unable to deliver this message because the follow error was encountered:
"Error is processing file in pickup directory.".

The specific error code was 0xC00402CE.

The solutions offered in various responses I found after a quick search all
assumed that the SMTP service was configured wrong, but how can mine be when
other sites can use the CDONTS/SMTP components fine.

The last thing it could be I guess is the code, which I assumed was fine as
I copied it from one of the working sites and edited the body section, but
here is just in case:

<%
' Garden Lighting Order Announcement
Dim myMail
Dim myBody

Set myMail = CreateObject("CDONTS.NewMail")

myBody="A new order has been placed using the www.gradenlightingltd.co.uk
website. For more information please visit the Site Maintenance area at
http://www.gardenlightingltd.co.uk/sitem/"

myMail.From="Garden Lighting Website"
myMail.To="ja***@graphics-line.co.uk"
myMail.Subject="Graden Lighting Order Announcement"
myMail.BodyFormat=1
myMail.MailFormat=1
myMail.Body=myBody
myMail.Send
set mymail=nothing
%>
<%
' Garden Lighting Order Announcement
Dim myMail2
Dim myBody2
Dim mySender

mySender = (Orders.Fields.Item("CusEmail").Value)

Set myMail2 = CreateObject("CDONTS.NewMail")

myBody2="Delivery Information:" & VbCrLf &_
"Name: " & (Orders.Fields.Item("CusCountry").Value) & VbCrLf &_
"Company: " & (Orders.Fields.Item("DelCompany").Value) & VbCrLf &_
"Position: " & (Orders.Fields.Item("DelJob").Value) & VbCrLf &_
"Address: " & (Orders.Fields.Item("DelAddr1").Value) & VbCrLf &_
"" & (Orders.Fields.Item("DelAddr2").Value) & VbCrLf &_
"" & (Orders.Fields.Item("DelAddr3").Value) & VbCrLf &_
"County: " & (Orders.Fields.Item("DelCounty").Value) & VbCrLf &_
"Postcode: " & (Orders.Fields.Item("DelPostCode").Value) & VbCrLf &_
"Country: " & (Orders.Fields.Item("DelCountry").Value) & VbCrLf &_
"Telephone: " & (Orders.Fields.Item("DelTel").Value) & VbCrLf &_
"Facsimile: " & (Orders.Fields.Item("DelFax").Value) & VbCrLf &_
"Mobile: " & (Orders.Fields.Item("DelMob").Value) & VbCrLf &_
"E-mail: " & VbCrLf & VbCrLf &_
"Billing Information:" & VbCrLf &_
"Name: " & (Orders.Fields.Item("CusName").Value) & VbCrLf &_
"Company: " & (Orders.Fields.Item("CusCompany").Value) & VbCrLf &_
"Position: " & (Orders.Fields.Item("CusJob").Value) & VbCrLf &_
"Address: " & (Orders.Fields.Item("CusAddr1").Value) & VbCrLf &_
"" & (Orders.Fields.Item("CusAddr2").Value) & VbCrLf &_
"" & (Orders.Fields.Item("CusAddr3").Value) & VbCrLf &_
"County: " & (Orders.Fields.Item("CusCounty").Value) & VbCrLf &_
"Postcode: " & (Orders.Fields.Item("CusPostCode").Value) & VbCrLf &_
"Country: " & (Orders.Fields.Item("CusCountry").Value) & VbCrLf &_
"Telephone: " & (Orders.Fields.Item("CusTel").Value) & VbCrLf &_
"Facsimile: " & (Orders.Fields.Item("CusFax").Value) & VbCrLf &_
"Mobile: " & (Orders.Fields.Item("CusMob").Value) & VbCrLf &_
"E-mail: " & mySender & VbCrLf &_
"Further Information:" & (Orders.Fields.Item("FurtherInformation").Value) &
VbCrLf & VbCrLf &_
"Goods Ordered:"& VbCrLf
While ((Repeat2__numRows <> 0) AND (NOT rsOrderDetails.EOF))
myBody2 = myBody2 & "Item: " &
(rsOrderDetails.Fields.Item("ProductName").Value) & VbCrLf &_
"Finish: " & (rsOrderDetails.Fields.Item("FinishDesc").Value) & VbCrLf &_
"Option: " & (rsOrderDetails.Fields.Item("OptionDesc").Value) & VbCrLf &_
"Quantity: " & (rsOrderDetails.Fields.Item("OrderQuantity").Value ) & " @ " &
FormatCurrency((rsOrderDetails.Fields.Item("odPric e").Value), 2, -2, -2, -2)
& VbCrLf &_
"Price: " & FormatCurrency((rsOrderDetails.Fields.Item("odTota l").Value),
2, -2, -2, -2)
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsOrderDetails.MoveNext()
Wend
myBody2 = myBody2 & VbCrLf & "Total: " &
FormatCurrency((Orders.Fields.Item("ITotal").Value ), 2, -2, -2, -2) & VbCrLf
&_
"Trade Discount: " &
FormatCurrency((Orders.Fields.Item("ITradeDisc").V alue), 2, -2, -2, -2) &
VbCrLf &_
"Delivery: " & FormatCurrency((Orders.Fields.Item("IDelivery").Va lue),
2, -2, -2, -2) & VbCrLf &_
"VAT: " & FormatCurrency((Orders.Fields.Item("IVAT").Value), 2, -2, -2, -2)
& VbCrLf &_
"Grand Total: " & FormatCurrency((Orders.Fields.Item("IGrandTotal"). Value),
2, -2, -2, -2)

myMail2.From="Vi*****@gardenlightingltd.co.uk"
myMail2.To="ja***@graphics-line.co.uk"
myMail2.Subject="Reciept for gardenlightingltd.co.uk order number:" &
UCII.OrderID
myMail2.BodyFormat=1
myMail2.MailFormat=1
myMail2.Body=myBody2
set mymail2=nothing
%>

Any help, ideas or pointers gratefully appreciated

Regards

James

tgl
Jul 19 '05 #1
1 4501
<james(at)graphics-line.co.uk> wrote in message
news:3f*********************@lovejoy.zen.co.uk...
CDONTS works with all sites hosted on my test server bar one (which surely
rules out a miscomputation of the Default SMTP server in IIS). I have tried uploading the file with make up the site in which CDONTS to one of the IIS
"sites" which is known to work with CDONTS, and still, no email received.
The bad mail dir gets three files each time, the error is:

Unable to deliver this message because the follow error was encountered:
"Error is processing file in pickup directory.".

The specific error code was 0xC00402CE.

The solutions offered in various responses I found after a quick search all assumed that the SMTP service was configured wrong, but how can mine be when other sites can use the CDONTS/SMTP components fine.

The last thing it could be I guess is the code, which I assumed was fine as I copied it from one of the working sites and edited the body section, but
here is just in case:

<%
' Garden Lighting Order Announcement
Dim myMail
Dim myBody

Set myMail = CreateObject("CDONTS.NewMail")

myBody="A new order has been placed using the www.gradenlightingltd.co.uk
website. For more information please visit the Site Maintenance area at
http://www.gardenlightingltd.co.uk/sitem/"

myMail.From="Garden Lighting Website"


Don't you need to provide a properly formatted email address here?
FWIW, CDONTS is working fine - it just places a properly formatted text file
into the SMTP pickup folder.

--
Tom Kaminski IIS MVP
http://www.iistoolshed.com/ - tools, scripts, and utilities for running IIS
http://mvp.support.microsoft.com/
http://www.microsoft.com/windowsserv...y/centers/iis/

Jul 19 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

3 posts views Thread by Guillaume Hanique | last post: by
3 posts views Thread by amith shetty | last post: by
5 posts views Thread by Krishnan | last post: by
7 posts views Thread by Mario Leduc | last post: by
4 posts views Thread by RICHARD BROMBERG | last post: by
12 posts views Thread by Jeff | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.