Ir para conteúdo

POWERED BY:

Arquivado

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

zanelati2002

codigo de formmail.asp

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

ele está dando erro 500 onde sera que está o erro alguem pode me ajudar

o formulario

<form name="form1" action="formmail.asp" method="POST">                                         <div align="left"><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font><br>                                           <input type="text" name="Nome:" size="35" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-TOP: #000000 1px solid;">                                           <br>                                           <font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">E-Mail:</font><br>                                           <input type="text" name="E-mail:" size="35" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699;  BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-TOP: #000000 1px solid;">                                           <br>                                           <font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">Mensagem:</font><br>                                           <textarea name="Mensagem:" rows="8" cols="50" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-TOP: #000000 1px solid;"></textarea>                                           <input type="hidden" name="Subject" value="Fale Conosco">                                           <input type="hidden" name="recipient" value="sitedozanelati@ig.com.br">                                           <input type="hidden" name="redirect" value="comfirma.asp">                                           <br>                                           <br>                                           <input type="submit" value="Enviar" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid;">                                           <input type="reset" value="Limpar" style="font-family:Verdana; font-size:10 px; color:#000000; background:#FFFFFF; border-width:0px; border-style: solid; border-color: #336699; BORDER-BOTTOM: #000000 1px solid; BORDER-RIGHT: #000000 1px solid;">                                         </div>                                       </form>

o formmail.asp

<%session.LCid = 1046%><%if Request.form("subject") = "" thenassuntos = " ## Fale Conosco ## "elseassuntos = Request.form("subject")end ifcorpo = "<html><body>" & vbcrlfcorpo = corpo & "<div align='center'>" & vbcrlfcorpo = corpo & "  <center>" & vbcrlfcorpo = corpo & "<table width='120' cellspacing cellpadding>" & vbcrlfcorpo = corpo & "  <tr>" & vbcrlfcorpo = corpo & "    <td width='1'>" & vbcrlfcorpo = corpo & "    </td>" & vbcrlfcorpo = corpo & "  </tr>" & vbcrlfcorpo = corpo & "  <tr>" & vbcrlfcorpo = corpo & "    <td width='1'>" & vbcrlfcorpo = corpo & "    </td>" & vbcrlfcorpo = corpo & "  </tr>" & vbcrlfcorpo = corpo & "</table>" & vbcrlfcorpo = corpo & "  </center>" & vbcrlfcorpo = corpo & "</div>" & vbcrlfcorpo = corpo & "<div align='center'>" & vbcrlfcorpo = corpo & "  <center>" & vbcrlfcorpo = corpo & "  <table border='1' width='436' cellspacing cellpadding bordercolorlight='#FFFFFF' bordercolordark='#FFFFFF'>" & vbcrlfcorpo = corpo & "    <tr>" & vbcrlfcorpo = corpo & "      <td width='432' height='19' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlfcorpo = corpo & "        <p align='center'><font color='#678BB8' face='Tahoma' size='1'><b>Fale Conosco - http://www.libihost.net/sitedozanelati/index.asp</b></font></td>" & vbcrlfcorpo = corpo & "    </tr>" & vbcrlfcorpo = corpo & "    <tr>" & vbcrlfcorpo = corpo & "      <td width='432' height='1'><font face='Arial' size='1'> </font></td>" & vbcrlfcorpo = corpo & "    </tr>" & vbcrlfcorpo = corpo & "    <tr>" & vbcrlfcorpo = corpo & "      <td width='432' height='19' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlfcorpo = corpo & "        <div align='center'>" & vbcrlfcorpo = corpo & "          <center>" & vbcrlfcorpo = corpo & "          <table width='95%' cellpadding='0' border='1' bordercolorlight='#EBF0F5' bordercolordark='#EBF0F5'>" & vbcrlf For Each Campo In Request.Form   if Campo <> "recipient" and Campo <> "redirect" then corpo = corpo & "            <tr>" & vbcrlfcorpo = corpo & "              <td width='29%'><b><font size='1' face='Tahoma'>" & Campo & "</font></b></td>" & vbcrlfcorpo = corpo & "              <td width='71%'<font size='1' face='Tahoma'>" & Request.Form(Campo) & "</font></td>" & vbcrlfcorpo = corpo & "            </tr>" & vbcrlf   end if next corpo = corpo & "              <td width='432'><b><font size='1' face='Tahoma'>Data:</font></b></td>" & vbcrlfcorpo = corpo & "              <td width='432'><font size='1' face='Tahoma'>" & DateAdd("h", 4, now) & "</font></td>" & vbcrlfcorpo = corpo & "              <td width='432'><font size='1' face='Tahoma'>IP: " & request.ServerVariables("REMOTE_ADDR") & "</font></td>" & vbcrlfcorpo = corpo & "            <tr>" & vbcrlfcorpo = corpo & "            </tr>" & vbcrlfcorpo = corpo & "          </table>" & vbcrlfcorpo = corpo & "          </center>" & vbcrlfcorpo = corpo & "        </div>" & vbcrlfcorpo = corpo & "      </td>" & vbcrlfcorpo = corpo & "    </tr>" & vbcrlfcorpo = corpo & "    <tr>" & vbcrlfcorpo = corpo & "      <td width='432' height='1'><font face='Arial' size='1'> </font></td>" & vbcrlfcorpo = corpo & "    </tr>" & vbcrlfcorpo = corpo & "    <tr>" & vbcrlfcorpo = corpo & "      <td width='432' height='19'><font face='Arial' size='1'>Site do Zanelati - Fale Conosco</font></td>" & vbcrlfcorpo = corpo & "    </tr>" & vbcrlfcorpo = corpo & "    <tr>" & vbcrlfcorpo = corpo & "      <td width='432' height='19'><font face='Arial' size='1'><a href='http://www.libihost.net/sitedozanelati/index.asp'>www.libihost.net/sitedozanelati/index.asp</a></font></td>" & vbcrlfcorpo = corpo & "    </tr>" & vbcrlfcorpo = corpo & "    <tr>" & vbcrlfcorpo = corpo & "      <td width='432' height='19'><font face='Arial' size='1'>Suporte: <a href='mailto:sitedozanelati@ig.com.br'>sitedozanelati@ig.com.br</a></font></td>" & vbcrlfcorpo = corpo & "    </tr>" & vbcrlfcorpo = corpo & "  </table>" & vbcrlfcorpo = corpo & "  </center>" & vbcrlfcorpo = corpo & "</div>" & vbcrlfcorpo = corpo & "</body></html>" & vbcrlfset objMail = server.createobject("CDONTS.NewMail")objMail.From = Request.form("recipient")objMail.To = Request.form("recipient")objMail.Subject = assuntosobjMail.Body = corpoobjMail.BodyFormat = 0objMail.MailFormat = 0objMail.Sendset objMail = Nothingif Request("redirect") = "" Thennavegar = "comfirma.asp"elsenavegar = Request.form("redirect")End ifResponse.Redirect navegar%><!--webbot bot="HTMLMarkup" startspan --><!--webbot bot="HTMLMarkup" endspan -->

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Vá nas opções de seu browser e desmarque a opção "Mostrar mensagens de erro HTTP amigáveis", assim teremos uma melhor descrição do erro!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Não diz em qual linha?

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

o errro que esta dando é nesta partebordercolordark='#EBF0F5'>" & vbcrlf For Each Campo In Request.Form if Campo <> "recipient" and Campo <> "redirect" then corpo = corpo & " <tr>" & vbcrlfse você tira os espaços ele da na linha 47 se coloca ele da na linha 46mais seraz que ninguem tem um formamail pronto par me arrumar

Compartilhar este post

Link para o post
Compartilhar em outros sites

nostrinkes    0

nostrinkes
Postado

Faz uma pagina asp com os requests e visualiza tudo para ver se está tudo ok com os campos,

porque aquele loop eu boiei.

voce tem uma pagina com nome comfirma.asp

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