Formulario- Cadastro+email

AlexCT · Junho 27, 2003

Tenho um cadastro, que gostaria de saber como faço para apósapessoa fazer o cadastro , os dados sejam armazenados no bd e tambem seja enviado um e-mail com os dados para o administrador e um e-mail padrão para a pessoa que fez o login(tipo: aguarade cadastramento).

seriam em aspmail

jissa · Junho 27, 2003

tenho algo aqui que vi na Internet e salvei.. vou procurar e te envio.

AlexCT · Junho 28, 2003

tenho algo aqui que vi na Internet e salvei.. vou procurar e te envio.

FICO muito grato......

aguardo

Fernando_Ramos · Junho 29, 2003

Jissa,

agradeceria se você pudesse me passar tb pois estou precisando deste código.

AlexCT · Junho 30, 2003

na pagina de login você faz:
CODE
'No inicio da página:
session("vim_de")=Request.ServerVariables("HTTP_REFERER")
Na página Verifica você faz:
CODE
'Seu código de verificação
'Se estiver OK
session("logado")=OK
response.redirect (session("vim_de"))
E eM todas as páginas protegidas você coloca:
CODE
'No inicio do código
if session("logado")="" or session("logado")<>"OK" then
response.redirect "Login.asp"
end if

deve ter algum erro e não sei qual?

AlexCT · Julho 1, 2003

Alguém sabe como eu possa após eu inserir os dados no bd enviar um e-mail para o administrador e um para o cadastrado.

[ GuTo ] · Julho 6, 2003

agradeceria se voces pudessem me passar tambem este codigo depois. estou precisando muito.

solicito a todos que responderem este tópico.

AlexCT · Julho 8, 2003

Estou tentando enviar e eleapare a paginade ok, ams nunca chega porque sera?

estou usando o host ASPECTO

sera que tem algum problema?

<%
'########### envia email clinica ###################
nome = trim(request.form("nome"))
email = trim(request.form("email"))
cidade = trim(request.form("cidade"))
estado = trim(request.form("estado"))
pais = trim(request.form("pais"))
trabalho = trim(request.form("trabalho"))
mensagem = trim(request.form("mensagem"))


txt = txt & "Cadastro de Pedido de Acesso"  & vbCrLf 
txt = txt & ""&chr(13)
txt = txt & ""&chr(13)
txt = txt & ""&chr(13)
txt = txt & ""&chr(13)
txt = txt & "data do cadastro:" &data  & vbCrLf
txt = txt & ""&chr(13)
txt = txt & ""&chr(13)
txt = txt & "nome:" &nome  & vbCrLf 
txt = txt & ""&chr(13)
txt = txt & "e-mail:" &email  & vbCrLf 
txt = txt & ""&chr(13)
txt = txt & "cidade:" &cidade  & vbCrLf 
txt = txt & ""&chr(13)
txt = txt & "estado:" &estado  & vbCrLf 
txt = txt & ""&chr(13)
txt = txt & "país:" &pais  & vbCrLf 
txt = txt & ""&chr(13)
txt = txt & "local de trabalho:"  &trabalho  & vbCrLf
txt = txt & ""&chr(13)
txt = txt & "outras informações:" &mensagem


set mensagem2 = server.createobject("CDONTS.NewMail")
mensagem2.from = email 
mensagem2.to = "alexct@terra.com.br" 
mensagem2.Subject = "Cadastro - Pedido de Senha para Acesso txt" 
mensagem2.bodyformat = 1 
mensagem2.mailformat = 1 
mensagem2.Importance = 2 
mensagem2.Body = "txt"
mensagem2.Send 
Set mensagem2 = nothing 

htmlemail = "<html><head><title>Untitled Document</title></head>"
htmlemail = htmlemail & "<p>Cadastro de Pedido de Acesso</p>" 
htmlemail = htmlemail & "<p> data do cadastro:" &data  & vbCrLf 
htmlemail = htmlemail & "<br><br>" & vbCrLf 
htmlemail = htmlemail & "nome:" &nome  & vbCrLf 
htmlemail = htmlemail & "<br>" & vbCrLf 
htmlemail = htmlemail & "e-mail:" &email  & vbCrLf 
htmlemail = htmlemail & "<br><br>" & vbCrLf 
htmlemail = htmlemail & "cidade:" &cidade  & vbCrLf 
htmlemail = htmlemail & "<br>" & vbCrLf 
htmlemail = htmlemail & "estado:" &estado  & vbCrLf 
htmlemail = htmlemail & "<br>" & vbCrLf 
htmlemail = htmlemail & "país:" &pais  & vbCrLf 
htmlemail = htmlemail & "<br>" & vbCrLf 
htmlemail = htmlemail & "local de trabalho:"  &trabalho  & vbCrLf 
htmlemail = htmlemail & "<br>" & vbCrLf 
htmlemail = htmlemail & "outras informações:"  &mensagem  & vbCrLf 
htmlemail = htmlemail & "</body></html>" 


set mensagem = server.createobject("CDONTS.NewMail")
mensagem.from = email 
mensagem.to = "alexct@terra.com.br" 
mensagem.Subject = "Cadastro - Pedido de Senha para Acesso html" 
mensagem.bodyformat = 0 
mensagem.mailformat = 0 
mensagem.Importance = 2 
mensagem.Body = "htmlemail"
mensagem.Send 
Set mensagem = nothing 


response.redirect "cadastro_ok.htm" 
%>

Entrar

Formulario- Cadastro+email

Pergunta

AlexCT

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

jissa

Link para o comentário

Compartilhar em outros sites

AlexCT

Link para o comentário

Compartilhar em outros sites

Fernando_Ramos

Link para o comentário

Compartilhar em outros sites

AlexCT

Link para o comentário

Compartilhar em outros sites

AlexCT

Link para o comentário

Compartilhar em outros sites

[ GuTo ]

Link para o comentário

Compartilhar em outros sites

AlexCT

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades