Erro ao enviar os dados para email

:blink: Olá estou com dúvidas em um script em asp que baixei, porque ao enviar o formulário é exibido a seguinte mensagem:

Ocorreu um erro.

O Erro é At least one Recipient, CC or BCC must be entered

o script é:

<%'Declarando variveisDim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto'Pegando os dados digitados nos campos e colocando em variaveissNameFrom = Request.Form("nome")sEmailFrom = Request.Form("email")sEmailTo = "email@yahoo.com.br"sNameTo = "Nome do Site"sText = Request.Form("mensagem")sAssunto = Request.Form("assunto")'Cria o objetoset mailer = server.createobject("SMTPsvg.Mailer")Mailer.FromName = sNameFromMailer.FromAddress = sEmailFrom'Host para envio de emailsMailer.RemoteHost = "smtp.mail.yahoo.com.br"Mailer.AddRecipient sEmailTo, sNameToMailer.Subject = sAssunto & " - E-mail"'Monta a texto para o enviostrMsgHeader = sNameFrom & "(" & sEmailFrom & ") " & " quem enviou! " & vbCrLf & vbCrLfstrMsgFooter = sTextMailer.BodyText = strMsgHeader & strMsgFooter' Se for enviado redirecionar para obrigado.aspif Mailer.SendMail thenResponse.Redirect "obrigado.asp"else' Se não for enviado mostra o erro que ocoreuResponse.Write ("Ocorreu um erro.<BR>")Response.Write ("O Erro é " & Mailer.Response)end if%>