Ir para conteúdo

POWERED BY:

Arquivado

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

Krock_76

Não consigo fazer um FORM em ASP.

Por , em ASP Clássico

Recommended Posts

Krock_76    0

Krock_76
Postado

Estou tentando fazer um formulario em ASP para envio de e-mail mais com os exemplos que vi na net não estou conseguindo será que alguém poderia me ajudar pelo amor de Deus.....Sou novato e não estou conseguindo acho que não estou fazendo certo o código ou não entendo nada ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

williamds    0

williamds
Postado

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 then	Response.Redirect  "confirma.asp"else	response.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 then	Response.Redirect  "aviso.htm" ' aviso de que o email foi enviado corretamenteelse	response.write "Erro ao enviar email. <a href='mailto:seuemail@dominio.com.br'>Clique aqui</a>"end if%>

qualquer duvida posta ai.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Krock_76    0

Krock_76
Postado

Não sei se é isso que voce tá procurando, então.Este exemplo é usando o CdontsFormulario:(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 then	Response.Redirect  "confirma.asp"else	response.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 then	Response.Redirect  "aviso.htm" ' aviso de que o email foi enviado corretamenteelse	response.write "Erro ao enviar email. <a href='mailto:seuemail@dominio.com.br'>Clique aqui</a>"end if%>
qualquer duvida posta ai.
Obrigado era isso mesmo........valew deus lhe pague..yhyyhyyhhy

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