USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Criando uma comunicação com o cliente
Postada em 13/5/2004 por I Loves Rodelas      Clique aqui para enviar email para o autor  ilovesrodelas@yahoo.com.br
Existem diversas formas de se comunicar com o cliente, porém a mais simples e usual é o e-mail.
O rescurso de e-mail é uma ferarmente útil para efetuar uma comunidade entre o cliente e o fornecedor. Existem diversas formas de utilizar esse recurso, mas algumas dependem de configurações do cliente. Para evitar qualquer tipo de aborrecimento, decidi criar um formulário e gravar os dados em um banco de dados. Para isso, crie um bando de dados no acess com o seguinte nome: agenda.mdb ; crie também uma tabela chamada tab_email ; com os campos : cod_mensa - Autonumeração ; assunto - texto ; mensagem - memorando ; remetente - texto ; data - data/hora;
Feito isso crie uma pagina html com o nome de e-mail.html:
<html>
<head>
<title>E-Mail</title>
</head>
<style>
body {scrollbar-shadow-color: #0099CC; scrollbar-face-color: #6699FF; scrollbar-3dlight-color: #0099FF; scrollbar-highlight-color: #0099FF; scrollbar-darkshadow-color: #FFFFFF; scrollbar-track-color: #0099CC; scrollbar-arrow-color: #FFFFFF}
</style>




<script>
var texto="TCM 3º Módulo!!!TCM 3º Módulo!!!TCM 3º Módulo!!!TCM 3º Módulo!!!TCM 3º Módulo!!!TCM 3º Módulo!!!TCM 3º Módulo!!!";
var tempo=0;
function rolar(){
window.status=texto;
texto=texto.substring(1,texto.length)+texto.charAt(0);
window.setTimeout("rolar()",90);
   }
rolar();
</script>

<STYLE>
BODY {border-width: 5px; border-color: red; border-style: solid}
</STYLE>

<br>
<h2><center>Fale Conosco</center></h2>
<br>
<form action="http://127.0.0.1/aspfiles/asp/gravaemail.asp" method="post">
<table align="center">
<tr>
<td>Seu e-mail:</td>
<td><input type="text" name="email"></td>
</tr>
<tr>
<td>Assunto:</td>
<td><select name="assunto">
<option>Sugestão
<option>Crítica
<option>Dúvida
<option>Agradecimento
<option>Outros
</select>
</td>
</tr>
<tr>
<td>Mensagem:</td>
<td><textarea cols="20" rows="3" name="mensagem">
</textarea></td>
</tr>
</table>
<br>
<center>
<input type="submit" name="enviar" value="Enviar">
<input type="Reset" value="Limpar">
</center>
</form>
</html>

Depois crie um arquivo asp com o nome de gravaemail.asp
<html>
<head>
<title>Grava e-mail</title>
</head>
<body>
<%
vemail = request.form("email")
vassunto = request.form("assunto")
vmensagem = request.form("mensagem")
if vmensagem = "" or vassunto = "" or vemail = "" then%>
<br><br>
Preencha todos os dados antes de enviar a mensagem.

<%else
'-----------------------------------------------------------------------------------
cnpath="DBQ="&server.mappath("agenda.mdb")
DataSource="Driver={Microsoft Access Driver (*.mdb)};"&cnpath
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open DataSource,"",""
Set Rs=Server.CreateObject("ADODB.Recordset")
'-----------------------------------------------------------------------------------
Rs.open "tab_email", Conn,3,3
Rs.addnew
Rs("assunto") = vassunto
Rs("mensagem") = vmensagem
Rs("remetente") = vemail
Rs("data") = now()
Rs.update
Rs.close
set Rs = nothing
set Conn = nothing
response.write("<br><br><center>Sua mensagem foi enviada com sucesso.")
end if%>
</body>
</html>

------------------------------------------------------------------
No meu caso eu criei no IIS do windows NT um diretorio virtual chamado aspfiles e um subdiretorio chamado Asp...

Espero ter Ajudado!!!
E Espero que Gostem, se gostarem me mandem um e-mail dizendo...
Abraços...
 


CyberWEB Network Ltda.    © Copyright 2000-2017   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página