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, e sendo assim com "get" o email não vai...
Quero realizar um cadastro e email ao mesmo tempo desse cadastro!
O formulario da pagina que chama ele é "action" "GET". Mas esse "get" não serve para realização de cadastro so de envio email!
Pergunta
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, e sendo assim com "get" o email não vai...
Quero realizar um cadastro e email ao mesmo tempo desse cadastro!
O formulario da pagina que chama ele é "action" "GET". Mas esse "get" não serve para realização de cadastro so de envio email!
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
%>
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
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.