CDONTS Prob.

[Mhtml]

I seem to be having a problem with this script.
I can't find anything wrong. I'm not getting an error but I am getting no email.


<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From ="KB Referer"
objMail.Subject ="Referral Via http://home.graffiti.net/kbs_great_aussie_sites/index.html"
objMail.To =request.form("KbAddr")
objMail.Body = "Sender: "&request.form("Uname")& " "&request.Form("EmailFrom") &_
"Friend: "&request.form("Fname")&" "&request.form("EmailTo")&vbcrlf&vbcrlf&" " & request.form("Uname")&" wrote:"&vbcrlf&_
request.form("message")
objMail.Send
set objMail=nothing
'------------------------------------------------------------------------------------------------------------------------ Message to recipient
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = request.form("Uname")
objMail.Subject ="Invitation from " & request.form("Uname")
objMail.To =request.form("EmailTo")
objMail.Body = "G' Day "&request.form("Uname")&","&_
"Your friend (user/sender's name here) sent you this note via our "&_
"online referral system to recommend our site because "&_
"they enjoyed it so much, and thought you would too. "&_
"Cheers from Aussie! "&_
"KB... "&_
"Here's the URL: http://home.graffiti.net/kbs_great_aussie_sites/index.html "&_
request.form("Message")
objMail.Send
set objMail=nothing
'------------------------------------------------------------------------------------------------------------------------ User who refered the site
Response.redirect("http://24.226.62.28/projectodyssey/")
%>

[Roelf]

is your smtp server configured correctly? if not, the mail will be created, but remains in the queue of the smtp server. You can find it there to make sure the cdonts does its job correctly

[whammy]

Also, try testing it with a valid "FROM" address on the server (like for me webmaster@solidscripts.com).