Godaddy ile mail göndermek hk! Yardım!

S.A

Arkadaşlar godaddy hesabım var sitem üzerinden mail göndermek istiyorum. CDONTS CDO JMAİL hepsini denedim ama bir türlü mail gönderme işlemi gerçekleşmedi. Acaba ben mi hata yapıyorum. Yoksa Godaddy paketlerinde email desteği var olarak gözüküyor ama sunucu mail bileşenlerini desteklemiyormu? Yardımcı olursanız sevinirim. Mail gönderimi için kullandığım kod aşağıda!

<%
Dim Mail
set Mail=server.createobject("CDO.Message")
Mail.From = "test@gmail.com"
Mail.To= "test2@hotmail.com"
Mail.Subject = "test email"
Mail.TextBody = "<h1>test</h1>"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1 
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="mail@domain.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="sifre"
Mail.Configuration.Fields.Update
Mail.Send
set Mail=nothing
%>

sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"


' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
' objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 ' cdoSendUsingPort
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="xxxx@emailadres.com"
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="sifreni gir"
objConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objConfig.Fields.Update


' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From="Adı <xxxx@email.com>"
objMail.ReplyTo="xxxx@email.com"
objMail.To="giden@eposta.com"
objMail.BodyPart.Charset = "windows-1254"
' objMail.BodyPart.CharSet = "iso-8859-9"
objMail.Subject="Konu"
' objMail.TextBody="ÜĞİŞÇÖığüişçö"
objMail.HTMLBody="Bilgiler içerik"
objMail.Send

set objMail=nothing