Ir para conteúdo

POWERED BY:

Arquivado

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

kaplan

Formulario enviar pelo e-mail

Por , em ASP Clássico

Recommended Posts

kaplan    0

kaplan
Postado

Galera tenho um formulario um fale conoco e é enviado pelo e-mail naum pelo banco de dados é da dando erro, alguem sabe o q devo fazer

 

<%

SUB errorForm ( theError )

%>

<html>

  <head>

  <title>:: Bem-vindo ao Web Site da STAR BRINDES ::</title>

  <base target="novo">

  <STYLE>

    BODY {SCROLLBAR-FACE-COLOR: #FFFFFF;

    SCROLLBAR-HIGHLIGHT-COLOR: #C0C0C0;

    SCROLLBAR-SHADOW-COLOR: #C0C0C0;

    SCROLLBAR-1DLIGHT-COLOR: #C0C0C0;

    SCROLLBAR-ARROW-COLOR:  #C0C0C0;

    SCROLLBAR-TRACK-COLOR: #cccccc;

    SCROLLBAR-DARKSHADOW-COLOR: #C0C0C0; }

  </STYLE>

  </head>

  <body topmargin="0" leftmargin="0" background="img_home/img-centro_iframe.jpg" bgproperties="fixed">

  <div align="center">

  <form method="post" action="contato_iframe.asp">

  <%=theError %>

   <p><b><font face="Verdana" size="2">

  <a href="java script:history.go(-1)">Retornar</a></font></b> </p>

  <center> </center>

  <table border="0" cellpadding="4" width="580">

  <tr>

  <% FOR EACH item IN Request.Form %>

  <INPUT name="<%=item%>" type="hidden" value="<%=Server.HTMLEncode( Request.Form( item ) )%>">

      <% NEXT %>

 

<%

Response.End

END SUB

%>

<%

'Recupere Campos do Formulário

  Nome        = TRIM ( Request.Form( "Nome" ) )

  email  = TRIM ( Request.Form( "email" ) )

  ddd  = TRIM ( Request.Form( "ddd" ) )

  fone  = TRIM ( Request.Form( "fone" ) )

  comentarios = TRIM ( Request.Form( "comentarios" ) )

 

'Verifique  para se há campos requeridos

  IF Nome = "" THEN

          errorForm "Você não entrou com o Nome!"

        END IF

  IF email = "" THEN

  errorForm "Você não entrou com o E-mail!"

  END IF

  IF ddd = "" THEN

  errorForm "Você não entrou com o DDD!"

  END IF

  IF fone = "" THEN

          errorForm "Você não entrou com o Telefone!"

        END IF

 

 

'***************************** ENVIA E-MAIL ******************************************************

set mail = Server.CreateObject("Persits.MailSender") - Esta é a linha do erro

mail.from = email

mail.fromname = nome

Mail.AddAddress "faleconosco@athivos.com.br", "ATHIVOS"

mail.subject = "Fale Conosco -- Web Site"

mail.ISHTML = True

Corpo_Email = "Segue abaixo os cometários:<BR><BR>"

Corpo_Email = Corpo_Email & "Nome.: " & nome & "<BR>"

Corpo_Email = Corpo_Email & "E-mail.: " & email & "<BR>"

Corpo_Email = Corpo_Email & "DDD..: " & ddd & "<BR>"

Corpo_Email = Corpo_Email & "Fone.: " & ddd &  " - " & fone & "<BR>"

Corpo_Email = Corpo_Email & "Comentários: " & comentarios & "<BR>"

mail.body = Corpo_Email

Mail.Host = "mail.athivos.com.br"

On Error Resume Next

Mail.Send

If Err = 0 Then

%>

  <td><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif" class="menu"><b>Seu Contato foi Enviado<br>com Sucesso, Obrigado!<br> Em breve entraremos em contato.</b></td>

<%

Else

%>

  <td><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif" class="menu"><b>Ocorreu um Erro durante o envio de seu Cadastro<br>Favor Tentar novamente mais tarde !<BR>Erro: <%=Err.Description%></b></font></td>

<%

End IF

'************************* FIM DO ENVIA E-MAIL ***************************************************

%>

 

 

</tr>

</table>

 

  </center>

</div>

</body>

</html>

esta apareçendo isto

 

Objeto Server error 'ASP 0177 : 800401f3'

 

Falha em Server.CreateObject

 

/athivos/conosco_envia.asp, line 59

 

800401f3

se alguem souber um jeito de melhor de fazer isto estou grato, valew gente

Compartilhar este post

Link para o post
Compartilhar em outros sites

sublyer    0

sublyer
Postado

Falae fera...bom o asp não está criando o objeto pois ele não está instalado no servidor, baixe em www.aspemail.com e assim podera utilizar este objeto.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kaplan    0

kaplan
Postado

valew cara, mais sera q isto vai funcionar no pws???

Compartilhar este post

Link para o post
Compartilhar em outros sites

JucaMaster    0

JucaMaster
Postado

Tente instalar.....acho que funciona sim

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

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

  Aceito