Velocity Reviews - Computer Hardware Reviews

Velocity Reviews > Newsgroups > Programming > ASP .Net > ASP General > CDONTS works intermitantly

Reply
Thread Tools

CDONTS works intermitantly

 
 
Guest
Posts: n/a
 
      07-25-2003
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="(E-Mail Removed)"
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="(E-Mail Removed)"
myMail2.To="(E-Mail Removed)"
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


 
Reply With Quote
 
 
 
 
Tom Kaminski [MVP]
Guest
Posts: n/a
 
      07-25-2003
<james(at)graphics-line.co.uk> wrote in message
news:3f212af7$0$253$(E-Mail Removed)...
> 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/



 
Reply With Quote
 
 
 
Reply

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
wireless conection intermitantly keeps dropping =?Utf-8?B?VEFaWkVSMDA3?= Wireless Networking 2 07-03-2006 12:46 PM
When I turn on my PC, it works, works, works. Problem! Fogar Computer Information 1 01-17-2006 12:57 AM
Read all of this to understand how it works. then check around on otherRead all of this to understand how it works. then check around on other thelisa martin Computer Support 2 08-18-2005 06:40 AM
[py2exe.i18n] English works, German works, but not French. What do I miss? F. GEIGER Python 3 08-06-2004 10:01 AM
After rebooting my PC works, works, works! Antivirus problem? Adriano Computer Information 1 12-15-2003 05:30 AM



Advertisments