Ir para conteúdo
Fórum Script Brasil
  • 0

Formulário Asp

Guest - Hudson -

Perguntado por Guest - Hudson -,

 Share

Pergunta

Guest - Hudson -

Guest - Hudson -

Postado
Postado

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

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
resopi

resopi

Postado
Postado

:D

  Citar
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******************************************************************************

<!-- FALE_CONOSCO.ASP - Exemplo de Form-mail para www.scriptbrasil.com.br -->

<!-- Autor : Jair Issa - jair.issa@linksat.com.br -->

<%

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">&nbsp; <font color="#6699FF">&nbsp;

</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>&nbsp;</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">&nbsp;<input type="radio" name="TipoMensagem" value="Consulta" checked></font><font face="Verdana">Consulta&nbsp;&nbsp; <input type="radio" name="TipoMensagem" value="Reclamação">Reclamação&nbsp;&nbsp;

<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>&nbsp;</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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </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">&nbsp;

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:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font>

<font face="Verdana">&nbsp;</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">

&nbsp;</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

******************************************************************************

<!-- ENVIAR.ASP - Exemplo de Form-mail para www.scriptbrasil.com.br -->

<!-- Autor : Jair Issa - jair.issa@linksat.com.br -->

<%

'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!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,4k
    • Posts
      652,2k
×
×
  • Criar Novo...