Contato + Access

[betobto 0]

Olá, gostaria de ver uma luz no fim do tunel....

 

Queria saber como faço para assim q a pessoa mandar um email atraves do form do site ele gravar no banco de dados...

 

Aguardo

[Mário Monteiro 179]

um insert não resolve?

 

qual a sua dificuldade?

[xanburzum 169]

existem exemplos no laboratorio de script de como enviar o email e salvar no bd.

 

<form action="newsletter_enviar.asp" method="post" name="newsletter" onsubmit="return EnviarNewsletter();" >
  <table width="157" border="0" cellpadding="0" cellspacing="0">
        
    <tr>
      <td width="400%" height="27" colspan="2"><table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="71%" height="33">Email:

            <input name="email" type="text" class="form" id="email" size="15"  />
            <input type="submit" name="Submit" value="ok" /></td>
          </tr>
        
      </table></td>
    </tr>
    <tr>
      <td height="22" colspan="2"> 
        <input name="opcao" type="radio" value="a" checked="checked" />
assinar 
           
        <input name="opcao" type="radio" value="c" />
cancelar</td>
    </tr>
  </table>
</form>

<% 
' AQUI CONEXÂO COM O BANCO DE DADOS 
' MySql

Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=servidor;"_ 
& " DATABASE=nomedatabase;"_
& "UID=usuario;PWD=senha;OPTION=3"

conn.CursorLocation = 3 
conn.Open

'recebe os valores da do form
opcao=request("opcao")
email=request("email")


sql="INSERT INTO newsletter(email) VALUES ('" & email & "')"

Set GRAVA = Server.CreateObject("ADODB.Recordset")
GRAVA.Open sql, conn

Set GRAVA = Nothing
conn.Close

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Enviando e-mail com o CDO"
myMail.From="email@dominio.com"
myMail.To="alguém@outrodominio.com"
myMail.TextBody="Esta é uma mensagem."
myMail.Send
set myMail=nothing

response.wite "OK"
%>