godaddy cdonts problemi

godaddy windows hosting kullanıyorum site iletişim içim cdonts kullanıyorum ama mailler gitmiyor. Kullandığım form ve kodlar aşağıdadır;

İletisim formu;
<form method="post" action="gonder.asp">
Ad ve Soyad :<input type="text" name="ad" id="ad">
E-mail :<input type="text" name="email" id="email">
Konu :<input type="text" name="konu" id="konu">
Mesaj :<textarea name="mesaj" cols="40" rows="10" id="mesaj"></textarea>
<input name="B1" id="B1" type="submit" class="go2" value="gönder">
</form>

gonder.asp;
Set objMail = Server.CreateObject("CDONTS.Newmail")
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.To = "info@siteadi.com"
objMail.Subject = request.form ("konu")
objMail.From = request.form ("email")
objMail.Body = mesaj
objMail.Send
Set objMail = Nothing
if err then
Session("msg")= ("E-posta gönderilemedi. !")
else
Session("msg")= ("Mesajınız g&ouml;nderildi.")
end if

Hata mesajıda almıyorum,ilginiz için teşekkürler.

gonder.asp yi bu şekilde değiştirin.


set NesneMail = server.createobject("CDO.Message")
NesneMail.From = request.form ("email")
NesneMail.To = "info@siteadi.com"
NesneMail.HTMLBody = mesaj
NesneMail.Subject = request.form ("konu")
with NesneMail.Configuration
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"
.Fields.Update
end with
On Error Resume Next
NesneMail.Send
If Err <> 0 Then
Response.Write "Error: " & Err.Description
End If
set NesneMail = Nothing

cdo ile çalışıyor şu anda öyle kullanıyorum, anlamadığım iki sitem var birinde cdontd çalışırken diğerinde mail göndermemesi :S ilginiz için teşekkürler

Hmm farklı sunucularında barınıyor olabilir..

rica ederim.