CDOSYS ve ASPEmail ileti gönderme kodu ?

Sorun devam ediyor Hostta desteklendiği söylendi ama Sunucuya bağlanamadı hatası veriyor aşağıdaki kod. Hata nerde acaba ...

<%

Set oMail = Server.CreateObject("CDO.Message") 
Set oMailConfig = Server.CreateObject ("CDO.Configuration") 
 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
oMailConfig.Fields.Update 

Set oMail.Configuration = oMailConfig 
oMail.From = "your-email@your-domain.com"
oMail.To = "recipient@another-domain.com"
oMail.Subject = "Here goes the email subject..."
oMail.HTMLBody = "Here goes the email body..."
oMail.Send 

Set oMail = Nothing 
Set oMailConfig = Nothing 

%>

<%
set NesneMail = server.createobject("CDO.Message")
NesneMail.From = "mail adresiniz"
NesneMail.To = "gidecek mail"
NesneMail.HtmlBody = "yazı iceriği"
NesneMail.Subject = "Konu Adı"
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
%>

Bu kodu deneyin hostunuz cdosys destekliyorsa mutlaka çalışması gerekir.

Teşekkürler hocam 2 gün önce yazmıştım ve araştırdım hosting firmasıylada yazıştım sonunda hallettim o işi. Seninki gibi bişi evet. Teşekkür ederim cevap için.

önemli değil.

Serverda Windows 2003 kurulu ise CDosys mutlaka vardır. server ile ilgisi olabilecek tek şey port tan kaynaklıdır.
Ama sizin kodunuzda sorun vardı.
Sorun hallolduğuna göre iyi çalışmalar