Formulário Asp

Outubro 2, 2003

Ae galera beleza?

A alguns dias eu vi um formulário de e-mail aqui no fórum, não tive tempo de copia-lo, será que alguém tem ele ainda (é aquele enviado pelo JISSA), se puderem reportar aqui de novo agradeço, ou enviar pelo e-mail : hudson.alves@itelefonica.com.br

Valeo pela ajuda

Hudson

resopi · Outubro 2, 2003

:D

Form-E-mail em ASP - Completo... e funcionando
Bem são dois arquivos necessarios para o envio do e-mail...
FALE_CONOSCO.ASP - Este Formulario que o usuario preenche
ENVIA.ASP - Funcoes que vao tratar as variaveis e enviar o e-mail para o destino
Na forma que esta o Formulario funciona 100% já testei, as unicas linhas
que necessita de alteração são:
sEmailTo = "EMAIL@DOMINIO.COM.BR" 'E-MAIL QUE O FORMULARIO SERA ENVIADO(cola-se o e-mail que recebera o formulario preenchido
sNameTo = "Nome da Empresa" ´Seu Nome ou da Empresa que esta recebendo o formulario(Apenas um nome para referencia)
Mailer.RemoteHost = "127.0.0.1"
(Seu Host smtp.. dependendo do provedor pode-se utilizar o que esta ai mesmo, sem problemas
A mensagem de agradecimento esta no proprio Formulario ENVIA.ASP, se quiser pode criar
uma outra pagina.. ou redirecionar para onde quiser
Qualquer duvida ou problema, Poste aqui:
Bos Sorte
Segue os Fontes:
FALE_CONOSCO.ASP
****************------------- INICIA AQUI --------------------***************
Por Favor não Remova os creditos, nem do ScriptBrasil, nem os Meus - Obrigado******************************************************************************


<%
Response.addHeader "pragma", "no-cache"
Response.CacheControl = "Private"
Response.Expires = 0
%>
<%
'-------------------------------------------
' Aqui está o código para que apareça uma
' mensagem de erro quando um dos campos
' não for preenchido corretamente
Dim ErroMsg
Dim strMsg
ErroMsg = cstr(Request.QueryString ("erro"))
msg = ""
Select case ErroMsg
case "1"
msg = "Digite um nome para contato !"
case "2"
msg = "Digite um email válido!"
case "3"
msg = "Digite um texto !"
end select
if msg <> "" then
Response.Write "<p align=""center""><font face=""verdana"" color=" & DefaultColor & " size=""1""><b>" & msg & "</b></font></p>"
end if
' Fim do código de erro
'-------------------------------------------
%>
<%
'-------------------------------------------
' Esta área você poderá configurar
' ao seu gosto. Anexe as folhas de estilos
' mas respeitando os nomes dos campos.
'-------------------------------------------
%>
<HTML>
<HEAD>
<title>Form-E-mail - Exemplo para www.scriptbrasil.com.br By jair.issa@linksat.com.br</title>
<body>
<form action="enviar.asp" method="POST">
<center>
<span style="height:1; Filter: Blur(Direction=50, Strength=8); font-weight:700; font-style:italic">
<font size="5" face="Verdana">  <font color="#6699FF"> 
</font></font>
</span>
<span style="height:1; Filter: Blur(Direction=50, Strength=8); font-weight:700; ">
<b><font face="Verdana" size="5">Fale Conosco</a></font></b></span></P>
<font face="Verdana">Faça sua consulta sobre nossos serviços ou dê a sua
opinião sobre qualquer coisa que desejar.<br><b><br>Seus comentários e sugestões ou criticas são muito
importantes<br></b></font>
</p>
<table cellpadding="3" cellspacing="0" width="686">
<tr><td align="center" width="680">
<p> </td></tr><tr><td align="right" width="680">
<p align="left"><font face="Verdana"><strong>Que tipo de comentários gostaria de enviar?</strong></font></p>
<p align="left"><font face="Verdana"> <input type="radio" name="TipoMensagem" value="Consulta" checked></font><font face="Verdana">Consulta   <input type="radio" name="TipoMensagem" value="Reclamação">Reclamação  
<input type="radio" name="TipoMensagem" value="Sugestão">Sugestão</font></p>
<p align="left"><font face="Verdana"><strong>Sobre que área deseja fazer um comentário?</strong></font></p>
<p align="left"><font face="Verdana"><strong> </strong><select name="Assunto" size="1">
<option>Desenvolvimento</option>
<option>Empresa</option>
<option>Funcionário</option>
<option>Serviços</option>
<option>Site da Web</option>
<option>Suporte</option>
<option selected>(Outro)</option>
</select></font><font face="Verdana"> Outro:
<input type="text" size="26" maxlength="100" name="OutroAssunto"></font></p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border-width: 0" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="21%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1">Empresa:</font></td>
<td width="79%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1"> <input type="text" name="name" size="50"></font></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1">E-mail:</font><font color="#FF0000" face="Verdana">               </font></td>
<td width="79%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1"> <input type="text" name="email" size="50"></font></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1">Telefone:</font><font face="Verdana">:</font></td>
<td width="79%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1"> <input type="text" name="telefone" size="20"> 
Fax :</font><font face="Verdana" size="1"><input type="text" name="fax" size="20"></font></td>
</tr>
<tr>
<td width="21%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1">Contato:                  </font>
<font face="Verdana"> </font></td>
<td width="79%" style="border-style: none; border-width: medium">
<font face="Verdana" size="1"> <input type="text" name="contato" size="50"></font></td>
</tr>
</table>
<p align="left">
<font face="Verdana" size="1">
<br></font>
<font face="Verdana" color="#FF0000">
 </font><font face="Verdana" size="1">Mensagem<br>
<textarea name="text" rows="5" cols="66" ></textarea></p>
</font><font face="Verdana" size="1">
<center><input type="submit" value="Enviar Formulário"></center></font></td></table></center>
</BODY>
</HTML>
ENVIAR.ASP
****************------------- INICIA AQUI --------------------***************
Por Favor não Remova os creditos, nem do ScriptBrasil, nem os Meus - Obrigado
******************************************************************************


<%
'Declarando variveis
Dim sNameTo, sNameFrom, sEmailFrom, sText, sEmailTo, sAssunto
Dim contato, tipomensagem, outroservico, name, telefone, fax
'Pegando os dados digitados nos campos e colocando em variaveis
contato = Request.form("contato")
name = Request.form("name")
telefone = Request.form("telefone")
fax = Request.form("telefone")
tipomensagem = Request.form("TipoMensagem")
outroassunto = Request.form("OutroAssunto")
sNameFrom = Request.Form("name")
sEmailFrom = Request.Form("email")
sEmailTo = "EMAIL@DOMINIO.COM.BR" 'E-MAIL QUE O FORMULARIO SERA ENVIADO
sNameTo = "Nome da Empresa" ´Seu Nome ou da Empresa que esta recebendo o formulario
sText = Request.Form("text")
sAssunto = Request.Form("Assunto")
'Cria o objeto
set mailer = server.createobject("SMTPsvg.Mailer")
Mailer.FromName = sNameFrom
Mailer.FromAddress = sEmailFrom
'Host para envio de emails
Mailer.RemoteHost = "127.0.0.1" Mailer.AddRecipient sEmailTo, sNameTo
Mailer.Subject = "Fale Conosco" & " / " & SEmailFrom & " / " & name
Mailer.AddBCC "Nome 2", "EMAIL@DOMINIO.COM.BR" 'e-MAIL QUE O fORMULARIO SERA ENVIADO
'Monta a texto para o envio
strMsgHeader = "Data/Horario do Envio :" & date() & " / " & time() & vbCrLf & "DADOS ENVIADOS: " & vbCrLf & "Seu e-mail : (" & sEmailFrom & ") " & vbCrLf & "Empresa : " & name & vbCrLf & "Contato : " & contato & vbCrLf & "Tipo : " & tipomensagem& "/" & "Assunto :" & sAssunto & "/" & outroassunto & vbCrLf & "Telefone :" & telefone & " / " & "Fax: " & fax & vbCrLf & vbCrLf
strMsgFooter = vbCrLf & "Mensagem: " & vbCrLf &sText
Mailer.BodyText = strMsgHeader & strMsgFooter
' Se for enviado redirecionar para obrigado.asp
if Mailer.SendMail then
' Response.Redirect "obrigado.asp"
response.write ("<center>")
response.write ("<table border='0' width='439'>")
response.write ("<tr>")
response.write ("<h2>")
response.write ("<font color='#00B0FF'><b>Obrigado por utilizar nosssos Serviços!!</b></font>")
response.write ("</h2>")
response.write ("<h3>")
response.write ("<p>Sua Mensagem foi enviada com sucesso. <p></font>")
response.write ("</h3>")
response.write ("</center>")
'Monta a texto para o envio
response.write ("<br><h4><b><i>DADOS ENVIADOS: </i>")
response.write ("<br>Data/Horario do Envio :" & date() & " / " & time())
response.write ("<br>Seu e-mail : " & sEmailFrom)
response.write ("<br>Empresa : " & name)
response.write ("<br>Contato : " & contato)
response.write ("<br>Tipo : " & tipomensagem& "/" & "Assunto :" & sAssunto & "/" & outroassunto)
response.write ("<br>Telefone :" & telefone & " / " & "Fax: " & fax)
response.write ("<br>Mensagem Enviada : " &sText)
response.write ("<p><p><h3>")
response.write ("<p>Em breve entraremos em contato.</font>")
response.write ("</h3>")
else
' Se não for enviado mostra o erro que ocoreu
Response.Write ("Ocorreu um erro.<BR>")
Response.Write ("O Erro é " & Mailer.Response)
end if
%>

ola ai segue o script feito pelo jissa!!

outra coisas os topicos não são apagados ele aisnda estao aki no forum!!!!! use a ferramenta de busca paar te auxiliar em uma pesquiza!!!

falou!

Reginaldo ASP · Outubro 3, 2003

Qual tipo de formulário você quer?

JMail, ASPmail, Cdonts?

resopi · Outubro 4, 2003

ele tinha pedido esse ai do jissa!!!! heheh =)

:D

Outubro 4, 2003

Valeu por ter postado Resopi.

Gracias,

Hudson

Entrar

Formulário Asp

Pergunta

Guest - Hudson -

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

resopi

Link para o comentário

Compartilhar em outros sites

Reginaldo ASP

Link para o comentário

Compartilhar em outros sites

resopi

Link para o comentário

Compartilhar em outros sites

Guest - Hudson -

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades