Como Fazer Os Dois Ao Mesmo Tempo?

[marcus Gemeos]

Olá pessoal,

Como se pode fazer os dois mesmo tempo? Tem um formulario que guando enviado ele irá cadastrar automaticamente no banco de dados e é enviado ao email ao mesmo tempo? eu ASPMAIL!

Por que ASPMAIL usa o comando "GET" e não serve para realização de cadastro no banco!

Como faço?

Precisso!

Obrigado!

Marcus

[DataSet]

Sim, você pode após o insert no banco, enviar o email pro cara, com todos o dados que ele digitou no formulário. Inclusive fica lega... se esse formulário for pra cadastro, você pode enviar uma senha aleatória pra ele, gravar essa senha no registro, e ao ele logar... verificar se a senha é a que foi enviada pelo email.

E então permitir o acesso ou cair numa tela para a troca de senha...

Qualquer coisa posta aí...

Até

[marcus Gemeos]

Olá amigo,

Como faço, eu tento mas não dar certo porque o cadastro so aceita metodo "post" e não "get" veja o codigo abaixo:

Precisso!

Obrigado!

Marcus

<!--#include file="conexao_dados.asp"-->

<%

nome = Request.QueryString("nome")

email = Request.QueryString("email")

subject = "Cadastro"

Dim sqlContato, rsContato, ContatoEmail, conexao, varCodigo, varCategorias, sqlProduto, sqlInsertProduto, rsProd, rsProd2

Dim varNome, varCPF, varEND, varBairro, varCidade, varUf, varNacionalidade, varCep, varDdd, varTelefone, varEmail, varUsuario, varSenha

varCodigo = Request.Form("codigo")

varNome = Request.Form("nome")

varCPF = Request.Form("cpf")

varEND = Request.Form("end")

varBairro = Request.Form("bairro")

varCidade = Request.Form("cidade")

varUf = Request.Form("uf")

varNacionalidade = Request.Form("nacionalidade")

varCep = Request.Form("cep")

varDdd = Request.Form("ddd")

varTelefone = Request.Form("telefone")

varEmail = Request.Form("email")

varUsuario = Request.Form("usuario")

varSenha = Request.Form("senha")

varCodigo = replace(varCodigo, "'", "")

varNome = replace(varNome, "'", "")

varCPF = replace(varCPF, "'", "")

varEND = replace(varEND, "'", "")

varBairro = replace(varBairro, "'", "")

varCidade = replace(varCidade, "'", "")

varUf = replace(varUf, "'", "")

varNacionalidade = replace(varNacionalidade, "'", "")

varCep = replace(varCep, "'", "")

varDdd = replace(varDdd, "'", "")

varTelefone = replace(varTelefone, "'", "")

varEmail = replace(varEmail, "'", "")

varUsuario = replace(varUsuario, "'", "")

varSenha = replace(varSenha, "'", "")

corpo = corpo & Request.QueryString("codigo")& vbnewline

corpo = corpo & Request.QueryString("nome")& vbnewline

corpo = corpo & Request.QueryString("cpf")& vbnewline

corpo = corpo & Request.QueryString("end")& vbnewline

corpo = corpo & Request.QueryString("bairro")& vbnewline

corpo = corpo & Request.QueryString("cidade")& vbnewline

corpo = corpo & Request.QueryString("uf")& vbnewline

corpo = corpo & Request.QueryString("nacionalidade")& vbnewline

corpo = corpo & Request.QueryString("cep")& vbnewline

corpo = corpo & Request.QueryString("ddd")& vbnewline

corpo = corpo & Request.QueryString("telefone")& vbnewline

corpo = corpo & Request.QueryString("email")& vbnewline

corpo = corpo & Request.QueryString("usuario")& vbnewline

corpo = corpo & Request.QueryString("senha")& vbnewline

sqlProduto = "SELECT * FROM usuarios WHERE Nome ='" & varNome & "'"

sqlInsertProduto = "INSERT INTO usuarios (codigo,Nome,cpf,end,bairro,cidade,estado,nacionalidade,cep,ddd,telefone,email,usuario,senha) values (" & varCodigo & ",'" & varNome & "','" & varCPF & "','" & varEND & "','" & varBairro & "','" & varCidade & "','" & varUf & "','" & varNacionalidade & "','" & varCep & "','" & varDdd & "','" & varTelefone & "','" & varEmail & "','" & varUsuario & "','" & varSenha & "')"

sqlContato = "SELECT * FROM dados_contato ORDER BY codigo"

Call abre_conexao

Set rsContato = Conexao.Execute(sqlContato)

Set rsProd = Conexao.Execute(sqlProduto)

Set rsProd2 = Conexao.Execute(sqlInsertProduto)

ContatoEmail = rsContato("email")

Call SendMail(nome & " <" & email & ">", "<" & ContatoEmail & ">", subject, corpo)

Response.Redirect("http://www.estudioinformatica.com.br/loja/obrigado.asp")%>

<html>

<%

'não precisa mexer daqui pra baixo

Sub SendMail(strFrom, strTo, strSubject, strMessage)

Dim cdoConfig

Dim objMail

sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = Server.CreateObject("CDO.Configuration")

cdoConfig.Fields.Item(sch & "sendusing") = 2

cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"

cdoConfig.fields.update

Set objMail = Server.CreateObject("CDO.Message")

With objMail

Set .Configuration = cdoConfig

.From = strFrom

.To = strTo

.Subject = strSubject

.TextBody = strMessage

' note que abaixo desligamos o modo html, e deixamos o email em formato txt sem codigos html

'.HTMLBody = strMessage

.Send

End With

End Sub

%>

</html>

<%

rsContato.close

rsProd.close

rsProd2.close

call fecha_conexao

set rsContato = nothing

set rsProd = nothing

set rsProd2 = nothing

%>