CDONTS não envia email

Ola galera !

queria pedir ajuda com um sistema que estou usando

ele esta funcionando certinho cadastro de emails e tudo mais so que na hora de enviar ele ate da

a menssagem de envio mas nada dos emails chegarem http://forum.imasters.com.br/public/style_emoticons/default/pinch.gif

testei envio para outlook com email da minha empresa e um do yahoo em nehum dos dois chegou a menssagem

o codigo responsável por esta ação é este:

<%@Language=VBScript%>
<% If Session("project1_status") <> "login" Then Response.Redirect "login.asp" %>
<%

Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="db.asp"-->

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
strsql = "SELECT * FROM [emails]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
%>

<!--#include file="header.asp"-->
<form>
<%

recActual = 0
Do While (NOT rs.EOF)
recCount = recCount + 1
%>

<%
'Load Key for record
key = rs("ID")
x_Name = rs("Name")
x_Email = rs("Email")
%>

<%
response.write x_Email %>
<br>
<%

if TechnoDreamsCDONTS = "yes" then

Set oMail = Server.CreateObject("SMTPsvg.Mailer")
oMail.FromName = technodreams_company
oMail.FromAddress= technodreams_email
oMail.RemoteHost = technodreams_mail
oMail.AddRecipient "", x_Email
oMail.Subject = Trim(Request.Form("txtSubject"))
oMail.BodyText = Trim(Request.Form("txtMessage"))
oMail.SendMail
oMail.ClearAllRecipients
oMail.ClearBodyText
Set oMail = Nothing

else

Set objNewMail = CreateObject("Persits.MailSender")
objNewMail.From = technodreams_email
objNewMail.Host = technodreams_mail
objNewMail.AddAddress x_Email
objNewMail.Subject = Trim(Request.Form("txtSubject"))
objNewMail.Body = Trim(Request.Form("txtMessage"))
objNewMail.Send
Set objNewMail = Nothing

end if

%>
<%
rs.MoveNext
Loop
%>

</form>
<%
' Close recordSet and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>

Message Sent!<!--#include file="footer.asp"-->

se alguem souber onde esta o erro ou a solução eu agradeço http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif