Hi everyone

I'm new to CDONTS and I have a quick question that I hope you can answer!

I have recently written some code to format the information from an online 

form and send it to the appropriate address.  I uploaded it to my ISP (who 

supports ASP) and it worked great for about a week with no problems at 

all.  But all of sudden, this week, it has died - for no reason I can 

see.  I haven't changed my code at all, and unfortunately my ISP is 

incrediably slack about looking at their server configuration (which is 

very frustrating), so I am hanging in limbo a bit. I don't know much about 

configuring your server for CDONTS to run, and I was wondering if you 

wouldn't mind checking my code, just to make sure that it isn't my code 

causing the problem.  

Thanks in advance for taking hte time to read my problem...(if you have 

any ideas I would love to hear them!)

Regards 

Dee

Anywhere, after all that, here it is:



Dim name

name = Request.Form("Name")

Dim email

email = Request.Form("Email")

Dim address

address = Request.Form("Address")

Dim order 

order = Request.Form("Order Number")

Dim store 

store = Request.Form("Store")

Dim totalPrice 

totalPrice = Request.Form("TOTALPRICE")



Dim item(21)

item(0) = "Product Quality - Trainer Pad"

'There are 21 items here...

Dim itemAmt(21)

itemAmt(0) = Request.Form("ProductQualityT")

'There are 21 items here too...

Dim itemPrice(21)

itemPrice(0) = Request.Form("total_Product_QualityT")

'There are 21 items here as well!



Dim test

test = "Order Form" & vbCrLf & vbCrLf



For i = 0 to 21 

If item(i) <> "" And itemAmt(i) <> "" And itemPrice(i) <> "" Then

test = test & "Item: " & item(i) & vbCrLf & "Item Amount:" & itemAmt(i) & 

vbCrLf & "Item Total Price:" & itemPrice(i) & vbCrLf

test = test & "------------------------------------------------------------

--" & vbCrLf



end If

next 





test = test & "TOTAL PRICE: " &totalPrice & vbCrLf

test = test & "------------" & vbCrLf



test = test & "Order Details: "& vbCrLf

test = test & "--------------" & vbCrLf



test = test & "Name: " & name & vbCrLf



test = test & "Email: " & email & vbCrLf



test = test & "Store: " & store & vbCrLf



test = test & "Order Number: " & order & vbCrLf



test = test & "Address: " & address & vbCrLf

Dim MyCDONTSMail

Set MyCDONTSMail = CreateObject("CDONTS.NewMail")

MyCDONTSMail.From= email

MyCDONTSMail.To="email@e..."

MyCDONTSMail.Subject="Order Form"

MyCDONTSMail.BodyFormat=1

MyCDONTSMail.MailFormat=1

MyCDONTSMail.Body=test

MyCDONTSMail.Send

set MyCDONTSMail= Nothing

Response.Redirect "http://www.somewhere/postForm.html"