Ir para conteúdo

POWERED BY:

Arquivado

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

kika

Resposta de envio de menasgem no CDONTS

Por , em ASP Clássico

Recommended Posts

kika    0

kika
Postado

Tenho uma página em ASP com um formulário, com envio de e-mail pelo CDONTS, só que toda vez que mando atualizar a página, mesmo com ela sem dados, ele envia o e-mail a cada Refresh que dou (pois pega a última inserção de dados).Gostaria de saber como faço pra isso não acontecer mais e para mandar uma mensagem na tela para o usuário de que a mensagem foi enviada com sucesso?* Não estou usando BD :unsure:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Após você mandar o e-mail ou incluir o registro faça um "Redirect".

Assim o refresh será do Redirect e não do arquivo com o Script.

 

Tipo Assim:

ASP

[*]

 

[*]

 

[*]ObjEmail.Send

 

[*]Response.Redirect "pagina_confirmacao.asp"

 

[*]

 

[*]

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

Eu já teste assim, mas a algo de errado, pois ele não sai da página que foi redirecionada.Por exemplo: Se eu digitar no browser teste.asp, ele não abre mais, vai direto para a redirecionada

Compartilhar este post

Link para o post
Compartilhar em outros sites

kika    0

kika
Postado

vou postar o codigo

<%@ Language=VBScript %><html><head><title>Teste</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) {  //reloads the window if Nav4 resized  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);function verifica() {  if (document.forms[0].email.value.length == 0) {    alert('Por favor, preencha o E-mail');    return false;  }     if (document.forms[0].TamanhoM.value.length == 0) {    alert('Por favor, preencha a Quantidade');    return false;  }     if (document.forms[0].TamanhoG.value.length == 0) {    alert('Por favor, preencha a Quantidade');    return false;  }   return true;}//--></script><script Language="vbScript">Sub Calcular()TamanhoM = document.form1.TamanhoM.valueTamanhoG = document.form1.TamanhoG.valueTotal = Ccur(TamanhoM) + Ccur(TamanhoG) document.form1.resultado.value = TotalEnd Sub</script></head><body><form method="post" name="form1" onSubmit="return (verifica())">  <table width="76%" border="0" cellspacing="0" cellpadding="0">    <tr>       <td> </td>      <td> </td>      <td><div align="center"><font face="Arial, Helvetica, sans-serif"><strong><em><font color="#333333">E-mail           da Loja:</font></em></strong><br>          </font>           <input name="email" type="text" size="25">          <br>          <br>          <font face="Arial, Helvetica, sans-serif"><strong><em><font color="#333333">Nome           da Loja:</font></em></strong><br>          </font>           <input name="loja" type="text" size="25">        </div></td>    </tr>    <tr>       <td> </td>      <td> </td>      <td> </td>    </tr>    <tr>       <td width="64%" valign="top"><img src="foto.jpg" width="500" height="389" border="1"></td>      <td width="4%"> </td>      <td width="32%" valign="top"> <table width="63%" border="1" align="center" cellspacing="1" bordercolor="#993333" id="Página1">          <tr bgcolor="#FFFFCC">             <td colspan="2"> <div align="center"><strong><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">                 Referência<br>                <input name="Referencia" type="text" value="BW9406501" readonly="">                </font></strong></div></td>          </tr>          <tr>             <td width="50%"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Tamanhos</strong></font></div></td>            <td width="50%"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Quantidade<br>                da Peça</strong></font></div></td>          </tr>          <tr>             <td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">M</font></div></td>            <td><div align="center"><font face="Typist">                 <input name="TamanhoM" type="text" size="5">                </font></div></td>          </tr>          <tr>             <td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">G</font></div></td>            <td><div align="center"><font face="Typist">                 <input name="TamanhoG" type="text" size="5">                </font></div></td>          </tr>          <tr>             <td colspan="2"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">                 <input name="Total" type="button" id="Total34" value="CalcularTotal:" onClick="Calcular()">                </font><font face="Typist"> </font><font face="Typist"> </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>                 </strong></font></div>              <div align="center"><font face="Typist">                 <input name="resultado" type="text" id="resultado" size="5">                </font></div></td>          </tr>        </table></td>    </tr>    <tr>       <td> </td>      <td> </td>      <td> </td>    </tr>    <tr>       <td valign="top"> </td>      <td> </td>      <td valign="top"> </td>    </tr>    <tr>       <td valign="top"> </td>      <td> </td>      <td valign="top"><div align="center">           <input name="enviar" type="submit" id="enviar3" value="Enviar Pedido">        </div></td>    </tr>  </table>  </form>         <%Set Mailer = Server.CreateObject("CDONTS.NewMail")Mailer.From = request("email")Mailer.To = "email@provedor.com.br"Mailer.CC = request("email")Mailer.bodyFormat = 1Mailer.mailFormat = cdoMailFormatTextMailer.Subject = "Teste "Texto1 = "E-mail : " & Request("email") & vbcrlf & "TamanhoM = " & Request("TamanhoM") & vbcrlf & "TamanhoG = " & Request("TamanhoG")Mailer.Body = Texto1 Mailer.SendSet Mailer = Nothing%>   </body></html>

Postei o código sem a nova linha do redirecionamento.

Acho que devo estar errando no local onde coloquei o CDonts

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Coloca essa parte do seu código em outra página.

ASP

[*]Set Mailer = Server.CreateObject("CDONTS.NewMail")

 

[*]Mailer.From = request("email")

 

[*]Mailer.To = "email@provedor.com.br"

 

[*]Mailer.CC = request("email")

 

[*]Mailer.bodyFormat = 1

 

[*]Mailer.mailFormat = cdoMailFormatText

 

[*]Mailer.Subject = "Teste "

 

[*]Texto1 = "E-mail : " & Request("email") & vbcrlf & "TamanhoM = " & Request("TamanhoM") & vbcrlf & "TamanhoG = " & Request("TamanhoG")

 

[*]Mailer.Body = Texto1 

 

[*]Mailer.Send

 

[*]Set Mailer = Nothing

 

[*]

 

[*]Response.Redirect "confirma.asp"

 

Crie a página confirma.asp somente com o texto "E-mail enviado com sucesso", não coloca nenhum Script nela.

 

No Action do Form que você nos mostrou , informe que ele deverá ser submetido para a página que você criar. (A 1ª com o código do e-mail).

 

E faz um favor para mim ???

Para de usar o DW !!!!! (brincadeira) é que eu odeio ele mesmo !!!

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