Como faço para ver esse formulario funcionando ?

Krock_76 · Fevereiro 4, 2004

Esse é o Fomulario Html:<form action="envia_email.asp" method="post"> <table width="76%" border="0" cellspacing="0" cellpadding="0">  <tr> <td width="12%" height="22"><div align="right"><strong>Nome:</strong></div></td> <td colspan="5"><input name="txt_nome" type="text" id="txt_nome" size="40"></td> <td> </td> </tr> <tr> <td height="22"><div align="right"><strong>Email:</strong></div></td> <td colspan="5"><input name="txt_email" type="text" id="txt_email" size="45"></td> <td> </td> </tr> <tr> <td height="22"><div align="right"><strong>iCQ: </strong></div></td> <td colspan="5"><input name="txt_icq" type="text" id="txt_icq" size="30"></td> <td> </td> </tr> <tr> <td height="22"><div align="right"><strong>Assunto:</strong></div></td> <td colspan="5"><input name="txt_assunto" type="text" id="txt_assunto" size="50"></td> <td> </td> </tr> <tr> <td height="182"><div align="right"><strong>Mensagem:</strong></div></td> <td colspan="5"><textarea name="txt_mensagem" cols="60" rows="10" id="txt_mensagem"></textarea></td> <td> </td> </tr> <tr> <td height="26"> </td> <td width="138"> </td> <td width="51" valign="top"><input type="submit" name="Submit" value="Enviar"> </td> <td width="23"> </td> <td width="55" valign="top"><input type="reset" name="Submit" value="Limpar"> </td> <td width="127"> </td> <td width="300"> </td> </tr> </table> </form> </td>Esse é o código envia_email.asp<body><p><%'Vamos recuperar os valores do formulárionome = Request.Form("txt_nome")email = Request.Form("txt_email")icq = Request.Form("txt_icq")assunto = Request.Form("txt_assunto")mensagem = Request.Form("txt_mensagem")'Agora vamos criar o objeto Cdonts e enviar a mensagemDim msgSet msg = Server.CreateObject("CDONTS.NewMail") msg.From = email msg.To="valterlin@msn.com"msg.Subject = assuntotexto = "O usuário "&nome&" lhe enviou a mensagem abaixo:"texto = texto & mensagemmsg.Body = textomsg.SendSet msg = Nothing'Avisamos ao usuário que sua mensagem foi enviada corretamente.Response.Write "Mensagem enviada com sucesso!"%></p><p><a href="http://dk76design.webcindario.com"><strong><font color="#0000FF">Clique Aqui</font></strong></a> para voltar página Principal</p><p></p></body>O que foi que eu errei ? Para testar esse código tenho que esta na web ?ou no meu micro ?No micro como tenho que fazer ?

williamds · Fevereiro 4, 2004

Tenta esse,

Não sei se é isso que voce tá procurando, então.

Este exemplo é usando o Cdonts

Formulario:(Onde o usuario preenche os dados de contato)

contato.html

<html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body>          <form name="contato" method="post" action="enviar.asp">             <table width="100%" border="0" cellspacing="0">               <tr>                  <td width="24%"> </td>                 <td colspan="2" align="center"><h5>Em Contato</h5></td>                 <td width="35%"> </td>               </tr>               <tr>                  <td colspan="2" align="right">Empresa: </td>                 <td colspan="2">  <input name="CadEmpresa" type="text" id="CadEmpresa" size="35"></td>               </tr>               <tr>                  <td colspan="2" align="right">Nome: </td>                 <td colspan="2">  <input name="CadNome" type="text" id="CadNome" size="35"></td>               </tr>               <tr>                  <td colspan="2" align="right">Telefone: </td>                 <td colspan="2">  <input name="CadTelefone" type="text" id="CadTelefone" size="35"></td>               </tr>               <tr>                  <td colspan="2" align="right">E-mail: </td>                 <td colspan="2">  <input name="CadEmail" type="text" id="CadEmail" size="35"></td>               </tr>               <tr>                  <td colspan="2" align="right">Cidade: </td>                 <td colspan="2">  <input name="CadCidade" type="text" id="CadCidade" size="35"></td>               </tr>               <tr>                  <td colspan="2" align="right">Assunto: </td>                 <td colspan="2">  <input name="CadAssunto" type="text" id="CadAssunto" size="35"></td>               </tr>               <tr>                  <td colspan="2" align="right">Mensagem: </td>                 <td colspan="2">  <textarea name="CadMensagem" cols="40" rows="7" id="CadMensagem"></textarea></td>               </tr>               <tr>                       <td colspan="2" align="right"><div align="left">www.praweb.com</div></td>                 <td colspan="2"><input type="submit" value="Enviar">                                        <input type="reset" value="Limpar"></td>               </tr>             </table>           </form></body></html>

enviar.asp (processa a mensagem que sera enviada para seu e-mail)

<%dim msgdim Empresadim Nomedim Telefonedim Emaildim Cidadedim Assuntodim Mensagemdim textoEmpresa = request.Form("CadEmpresa")Nome = request.Form("CAdNome")Telefone = request.Form("CadTelefone")Email = request.Form("CadEmail")Cidade = request.Form("CadCidade")Assunto = request.Form("CadAssunto")mensagem = request.Form("CadMensagem")Session("email1") = Emailtexto = "<html><body bgcolor='#FFFFF0'>"texto = texto &"<p><b>Mensagem enviada por:</b><font color='#FF0000'>" & Nome & "</font><br>"texto = texto &"<b>Empresa: </b>" & Empresa & "<br>"texto = texto &"<b>E-mail: </b>" & Email & "<br>"texto = texto &"<b>Cidade:</b>" & Cidade & "<br>"texto = texto &"<b>Telefone:</b>" & Telefone & "<br>"texto = texto &"<b>Assunto:</b>" & Assunto & "<br>"texto = texto &"<b>" & Mensagem & "</b></p>"texto = texto &"</body></html>"SET msg = Server.CreateObject("CDONTS.NewMail")msg.From = Emailmsg.To = "seuemail@dominio.com.br" 'E-mail de destino (o seu)msg.Subject= Assuntomsg.BodyFormat=0msg.mailFormat=0msg.Body= textomsg.Sendset msg = Nothingif err = 0 thenResponse.Redirect  "confirma.asp"elseresponse.write "Erro ao enviar email. <a href='mailto:seuemail@dominio.com.br'>Clique aqui</a>"end if%>

Confirma.asp (mensagem de confirmação que é enviada para o e-mail do usuario)

<%email = Session("email1")resposta = "<html><body bgcolor='#FFFFF0'>"resposta = resposta &"<p><b>Mensagem enviada por:</b><font color='#FF0000'> Atendimento </font><br>"resposta = resposta &"<b>E-mail: </b> seuemail@dominio.com.br <br>"resposta = resposta &"<b>Telefone:</b> (0**19) 3871-7413 <br>"resposta = resposta &"<b>Assunto:</b>Mensagem automatica<br>"resposta = resposta &"<b> Recebemos seu e-mail e em breve o responderemos. Obrigado</b></p>"resposta = resposta &"</body></html>"SET msg = Server.CreateObject("CDONTS.NewMail")msg.From = "seuemail@dominio.com.br"msg.To = emailmsg.Subject= "Recebimento de E-mail"msg.BodyFormat=0msg.mailFormat=0msg.Body= respostamsg.Sendset msg = NothingSession("email1") = Closeif err = 0 thenResponse.Redirect  "aviso.htm" ' aviso de que o email foi enviado corretamenteelseresponse.write "Erro ao enviar email. <a href='mailto:seuemail@dominio.com.br'>Clique aqui</a>"end if%>

qualquer duvida posta ai.

Entrar

Arquivado

Como faço para ver esse formulario funcionando ?

Recommended Posts

Krock_76 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

williamds 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante