Bom pessoal, nessa matéria mostrarei como recuperamos os valores de um formulário e enviamos para um e-mail - o chamado FormMail.

Estou usando o objeto CDONTS do IIS mas tem muito mais por ai.

Bom para começar vamos criar um formulário chamado de contato.asp, onde conterá os campos Nome, E-mail, Mensagem; e na ação do formulário coloque a página enviar.asp, essa será a responsável pelo envio do FormMail .

Abaixo está o Código do script enviar.asp ::

<%
Dim nome, email, mensagem, msg

Set msg=Server.CreateObject(”CDONTS.NewMail”)

nome=request.Form(”Nome”)
email=request.Form(”E-mail”)
mensagem=request.Form(”Mensagem”)

msg.BodyFormat=0
msg.MailFormat=0
msg.From=nome
msg.To=”email@seusite.com.br”
msg.Subject=”Titulo do Formulário”
msg.Body=nome &amp; email &amp; mensagem
msg.Send

Set msg=Nothing

Response.Redirect “obrigado.asp”
%>
Logo depois crie uma página de resposta, agradecendo o usuário pelo envio do Form como obrigado.asp

Explicando o Código - enviar.asp

No começo declaramoas as variavies que receberão os valores do formulário,
nome , email, mensagem, a variável msg será nossa instância do objeto CDONTS.

Set msg=Server.CreateObject(”CDONTS.Newmail”)

nome=Request.Form(”Nome”)
email=Request.Form(”E-mail”)
mensagem=Request.Form(”Mensagem”)

Nas 3 linhas de cima recuperamos os valores dos campos do nosso formulário,
e logo abaixo começamos montar a mensagem a ser enviado.
msg.BodyFormat=0
msg.MailFormat=0
Acima enviamos um e-mail no formtado HTMl, quando for 0 o formatdo é HTML, 1 o formato é texto.
1 - msg.From=nome
2 - msg.To=”email@seusite.com.br”
3 - msg.Subject=”Titulo do Formulário”
4 - msg.Body=nome &amp; email &amp; mensagem
5 - msg.Send
6 - Set msg=Nothing
7 - Response.Redirect “obrigado.asp”
Usando nosso objeto do envio de e-mail o msg onde:
1 - Vai o nome de quem ou qual usuário que está enviando a mensagem.
2 - Para qual e-mail vai a mensagem.
3 - Título, assunto da Mensagem
4 - Esse é o Corpo da mensagem, onde ele recebe as variaveis nome, email e mensagem
5 - Enviamos a Mensagem!!!!!

6 - Destruímos nosso objeto
7 - Redirecionamos o usuário para a página de agradecimento obrigado.asp

A criação de classes, rotinas e sub-rotinas facilitam a criação de aplicativos, pois esses objetos agilizam a escrita de eventos repetidos.

Mesmo que se utilize varios objetos RecordSet, pode-se utilizar a mesma conexao. Pensando nisto, foi criada uma classe para facilitar a conexao com o banco de dados. Com apenas uma ou duas linhas, sendo previamente o arquivo ‘cls_conexao.asp’ incluso na página, é possível conectar-se.

Primeiro Passo:
A criação do arquivo ‘cls_conexao.asp’

<%

Class Connection

Private Conn
Private dataSource
Private Key

Public Property Let DBPath(dS)
dataSource = ds
End Property

Public Property Let DBKey(k)
key = k
End Property

Public Property Get Link()
Link = Conn
End Property
Public Function DBOpen()
If dataSource = “” then
Response.Write(”<br />Error: DBOpen() <br /> Data Source not find. <br /> DBPath Property not declared. <br />”)
Else
Set Conn = Server.CreateObject(”ADODB.Connection”)
If key = “” then
Conn.Provider = “Microsoft.Jet.OLEDB.4.0″
Conn.ConnectionString = Server.MapPath(dataSource)
Conn.Open
Else
Conn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=”&amp; Server.MapPath(dataSource) &amp;”; Persist Security Info=True; Jet OLEDB:Database Password=”&amp; Key
End If
End If
End Function

Public Function DBClose()
If IsObject(Conn) then
Conn.Close
Set Conn = Nothing
Else
Response.Write(”<br />Error: DBClose() <br /> Database connection don’t exists. <br />”)
End If
End Function

End Class

%>

Segundo Passo:
Como trabalhar com a classe

<!–#include file=”cls_connection.asp” //–>
<%

Dim objCnx
Set objCnx = new Connection ‘Chamando a classe

objCnx.DBPath = “banco.mdb” ‘Informar o caminho virtual, pois utiliza o Server.MapPath
‘objCnx.DBKey = “12345″ ‘Caso o Banco de Dados usar senha
objCnx.DBOpen()

strSQL = “SELECT * FROM registro ORDER BY code”
Set RS = Server.CreateObject(”ADODB.RecordSet”)
RS.Open strSQL,objCnx.Link(),3,3

Do while Not RS.EOF
response.write RS(”usuario”) &amp;” - “&amp; RS(”senha”) &amp;”<br />”
RS.MoveNext
Loop

objCnx.DBClose()

%>

O servidor de banco de dados MySQL não é mais uma exclusividade dos servidores Linux, nem da linguagem PHP. Com o MyODBC, um driver ODBC para acessar servidores MySQL, diversos programas e outras linguagens também podem usar essa poderosa ferramenta. Dentre eles, o Visual Basic, o Delphi, o Excel, o Cold Fusion e o ASP. São Muitas vantagens.

O MySQL é mais eficiente que o Access, portanto, o seu site pode ficar muito mais rápido sem que seja feita nenhuma alteração na programação. Além disso, se você desenvolve sites em diversas linguagens, não precisa criar bancos de dados duplicados (um no SQL Server, outro no MySQL, e outros) pois tudo pode ficar num só local, economizando tempo no desenvolvimento do site.

A seguir, você confere as informações para usar o MyODBC. Para testá-lo, instale em seu computador o servidor o MySQL Server - 12MB , para Windows 95/98/ME/NT/2000/XP, MyODBC - 1.5MB , para Windows 95/98/ME ou MyODBC 1.5MB para Windows NT/2000/XP, e o Personal Web Sever (servidor Web com suporte a ASP da Microsoft). Caso não esteja instalado no seu servidor, solicite a instalação desse driver ao suporte técnico do seu provedor de hospedagem.

Instalação:

Com o driver MyODBC já instalado, você precisa editar o código ASP para fazer a conexão com o servidor. Existem duas formas para acessar o servidor MySQL, uma com DSN (Data Sourse Name – Nome da Fonte de Dados) e outra sem. Veja como ela são feitas:

Conexão com DSN:

Antes de editar o código-fonte ASP, você precisa criar o DSN no ODBC para fazer a conexão com o banco de dados. Para isso, abra o Painel de controle do Windows e entre em Fonte de dados ODBC. Clique na aba DSN de sistema, dê Adicionar, selecione MySQL e dê OK.

Preencha o formulário, onde o Windows DSN Name é o nome que desejar (por exemplo, “bancodedados”). MySQL Host é o endereço do servidor, MySQL Database Name é o nome do banco de dados a ser acessado. User é seu nome de usuário e Password é a sua senha. Dê OK, digite o código abaixo no arquivo com_dsn.asp no editor de sua preferência e salve-o na pasta “c:\inetpub\wwwroot”.

com_dsn.asp
<%
Set cnnDB = Server.CreateObject(”ADODB.Connection”)
cnnDB.ConnectionString = “DSN=bancodedados”
cnnDB.Open
%>

No script, o parâmetro “bancodedados” é o nome do DSN criado no ODBC. Abra o seu navegador e acesse o endereço http://127.0.0.1/com_dsn.asp. Se nenhuma mensagem for exibida na tela, a conexão foi realizada com sucesso. Caso contrário, serão informados os erros ocorridos.

Conexão sem DSN:

A principal diferença entre uma conexão com DSN e outra sem é quem neste segundo método as informações que você configurou no ODBC são digitadas diretamente no código ASP, sem nenhuma interfase do Windows.

Digite o código sem_dsn.asp num editor, conforme as configurações de seu servidor. A opção diver define o tipo de banco de dados, a server informa o endereço do servidor, a uid e a pwd os dados do seu usuário e a database seleciona o banco de dados. Salve-o arquivo na pasta “c:\inetpub\wwwroot” e acesse o endereço http://127.0.0.1/sem_dsn.asp no seu navegador.

sem_dsn.asp

<%
Set cnnDB = Server.CreateObject(”ADODB.Connection”)
cnnDB.ConnectionString = “driver=MySQL;server=127.0.0.1; uid=usuario; pwd=senha; database=banco_de_dados”
cnnDB.Open
%>

Glossário:

Sistema DSN:
O System Data Source Name (Sistema de Nome de Fonte de Dados) é um registro que armazena as informações necessárias para fazer a conexão com o banco de dados, tais como o tipo de banco de dados, o usuário e a senha. Com ele, a linha de conexão ao banco de dados do script ASP fica mais simples, já que essas informações são associadas a um nome (Nome de Fonte de Dados) e não precisam ser incluídas no script. Por outro lado, é necessário solicitar a configuração do DSN ao seu provedor de hospedagem, caso ele não tenha um painel de administração onde vc mesmo possa fazer as alterações.

ODBC:
Open Data Base Connectivity (ODBC) é uma aplicação que permite acessar banco de dados no Windows. Ela atua como um tradutor que faz a conexão entre os bancos de dados e os programas. A linguagem usada é o SQL. Assim, independente do tipo do banco de dados, os comandos de acesso aos registros serão os mesmos. Os tipos de banco de dados suportados no ODBC, no entanto, depende dos drives instalados.

fonte: retirado de diversos tutoriais da net