[Resolvido] Envio de E-mail

Bom dia,

Estou tentando enviar um e-mail com os dados de um produto e os dados do cliente interessado no produto, vou postar o código da página e depois o erro apresentado:

<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto, id, nomeprod, telefone, celular

'Pegando os dados digitados nos campos e colocando em variaveis
sNameFrom = Request.Form("nome_cli")
sEmailFrom = Request.Form("email")
sEmailTo = "dznet@dznet.com.br"
sNameTo = "DZNET"

id = request.Form("id")
nomeprod = request.Form("nome_prod")
telefone = request.Form("telefone")
celular = request.Form("celular")

sText = sNameFrom & " - " & telefone & " - " & celular & " - " & sEmailFrom
sAssunto = id & nomeprod

'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
'Host para envio de emails
Mailer.RemoteHost = "smtp-web.uni5.net"
Mailer.AddRecipient sNameTo, sEmailTo
Mailer.Subject = sAssunto & " - E-mail"

'Monta a texto para o envio
strMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLf
strMsgFooter = sText
Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
if Mailer.SendMail then
Response.Redirect "obrigado.asp"
else
' Se não for enviado mostra o erro que ocoreu

 Response.Write ("Ocorreu um erro.<BR>")
 Response.Write ("O Erro é " & Mailer.Response)
 end if

%>
O erro é o seguinte:

Ocorreu um erro.
O Erro é 554 5.5.1 Error: no valid recipients
Agradeço a atenção!