Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Mosquitinho

Erro....

Recommended Posts

Aew meu codigo de envio do cadastro ta dandu erro

 

"Persits.MailSender.4 error '800a0002'

 

Winsock error 11004 (0x2AFC) occurred.

 

/cadastro2.asp, line 68"

 

 

me ajudem aew plz...

 

 

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:mb1@mb1.com.br"">" & "Anacont News" & "</a>"

 

[*]

 

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

 

[*]Email.Host="http:/www.mb1.com.br/"'host do seu servidor de e-mail

 

[*]Email.From = varEmail 

 

[*]Email.ADDAddress = varPara

 

[*]

 

[*]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>

Compartilhar este post


Link para o post
Compartilhar em outros sites

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>"

 

Tente utilizar os mesmos nomes de variaveis, na construcao de sua tabela em HTML. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não...Eu acho que expliquei mal...No Host você coloca "bml.com.br"Existe ainda, além do Host, outro método que deve se chamar "Email.MailServer", neste lugar você tem que colocar o endereço do servidor SMTP.A não ser que o seu Server disponibilize o envio de e-mails por CGI, mas aí você não tem nem que usar componente, basta dar um redirect com os parâmetros para o endereço indicado pelo pessoal do suporte,

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.