Ke erro e esse?

[Mosquitinho 0]

Aew meu formulario ta dandu esse erro aki

 

 

 

Persits.MailSender.4 error '800a0006'

 

503 Bad sequence of commands. You must specify the recipients of a message before you can send it

 

/cadastro2.asp, line 68

 

 

 

Olha o código.

 

ASP

[*]<%

 

[*]Option Explicit

 

[*]'declarando as variáveis

 

[*]Dim varEmail, varPara, varAssunto, varTexto, Email, varNome

 

[*]Dim TIT, TEXTO, FIM

 

[*]Dim status

 

[*]

 

[*]varEmail = trim(Request.Form("email"))

 

[*]varPara = "mb1@mb1.com.br"'endereço de e-mail para onde deve oi o cadastro

 

[*]varAssunto = "Cadastro Anacont: " & Trim(Request.Form("Nome"))'assunto: Cadastro+Nome

 

[*]

 

[*]status=""

 

[*]'verifica se o campo nome esta preenchido

 

[*]If trim(Request.Form("Nome")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Nome em branco. \n \nFavor digitar Texto.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]'verifica se o campo fone esta preenchido

 

[*]If trim(Request.Form("Fone")) ="" then

 

[*] %>

 

[*] <script language="JavaScript">

 

[*]  alert('\nCampo Fone em branco. \n \nFavor digitar Texto.') 

 

[*]  window.location.href = "java script:history.go(-1)"

 

[*] </script>

 

[*] <%

 

[*]status="Falha"

 

[*]End IF

 

[*]'você pode fazer verificações para todos os campos....

 

[*]

 

[*]If status="" then

 

[*]

 

[*]'Composição do Email que você vai receber com o que foi preenchido no form.

 

[*]TIT = "<p><b><font face=""Arial"" size=""2"">Nome: " & Request.Form("Nome") & "</font></b></p>"

 

[*]TIT = TIT & "<p><b><font face=""Arial"" size=""2"">E-mail: " & Request.Form("Email") & "</font></b></p>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Nome: </b>" & Request.Form("Nome") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Sexo: </b>" & Request.Form("Sexo") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Nascimento: </b>" & Request.Form("Nascimento") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>E-mail: </b>" & Request.Form("Email") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Rua: </b>" & Request.Form("Rua") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Bairro: </b>" & Request.Form("Bairro") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Cidade: </b>" & Request.Form("Cidade") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Estado: </b>" & Request.Form("Estado") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Pais: </b>" & Request.Form("Pais") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Cep: </b>" & Request.Form("Cep") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Fone: </b>" & Request.Form("Fone") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Profissao: </b>" & Request.Form("Profissao") & "<br>" 

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Como Soube: </b>" & Request.Form("Soube") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Nota: </b>" & Request.Form("Nota") & "<br>"

 

[*]TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Comentarios: </b>" & Request.Form("Comentarios") & "<br><br>"

 

[*]

 

[*]'rodapé do seu e-mail

 

[*]FIM ="<br><br><a href=""mailto:c.rodrigues@mb1.com"">" & "Anacont News" & "</a>"

 

[*]

 

[*]Set Email = Server.CreateObject("Persits.MailSender") 

 

[*]Email.Host="smtp.anacont.com.br"'host do seu servidor de e-mail

 

[*]Email.From = varEmail 

 

[*]

 

[*]

 

[*]Email.Subject = varAssunto

 

[*]Email.ishtml=true

 

[*]Email.Body = TIT & TEXTO & FIM

 

[*]

 

[*]Email.Send 

 

[*]

 

[*]On Error Resume Next

 

[*]Set Email = nothing

 

[*]

 

[*]If Err <> 0 Then

 

[*]Response.Write "Error encountered: " & Err.Description

 

[*]End If

 

[*]End If

 

[*]%>

 

[*]<p> </p>

 

[*]<p> </p>

 

[*]<p align="center"> </p>

 

[*]<p align="center"><b><font color="#FF9900" face="Arial" size="3">Cadastro Efetuado com Sucesso!</font></b></p>

[Marcelo Barcellos 0]

Colega,Voce não incluiu o destinatário da mensagem

[globim 0]

eu particularmente nunca vi esse erro hehe^^deve ser o que o mebkopcznski falo que eh ^^abraços []'s

[explore 3]

503 Bad sequence of commands. You must specify the recipients of a message before you can send (Mal uso na sequecia de comandos, você precisa especificar um Recipient (Remetente) antes de poder enviar!)

[globim 0]

hehe isso eh ^^ verdade hehe ^^mais quis falar que nunca tinha acontecido comigo ^^

[Mosquitinho 0]

Po komo faço pra pro o destinatário...ajuda plz.

[Mário Monteiro 179]

não lembro mas tentaEmail.To = varEmail se não der só pesquisa no forum que tem muitos exemplos....

[Mosquitinho 0]

vo tentar....

[Mosquitinho 0]

Como faz a conecção com o host?HELP