Cadastro em Access

[Renato Silva 0]

Galera, estou fazendo um esquema que está cadastrando no banco de dados (access) correto... tá funcionando belezinha... mas eu queria que assim que o usuario fizesse o cadastro, fosse disparado um email de confirmação para o email do administrador do site... alguém pode me explicar como eu faço isso???

 

Vlew e aguardo...

[Mário Monteiro 179]

voce primeiramente precisa saber que componente de email possui

[Renato Silva 0]

aspEmail

[Mário Monteiro 179]

basicamente quando efetuar o cadastro, na mesma parte onde da mensagem de cadastro efetuado com sucesso voce poe o codigo qeu envia o email

[Renato Silva 0]

Pois é velho... to passo o id da pessoa que foi cadastrada via querystring, e na pagina de envio de email eu busco o id e faço o select... mas nao ta dando cara... olha o codigo pra você ver...

 

Aqui faz o cadastro:

 

<!-- #include file="../inc/bd.asp" -->

<%

dim cidade, nome, atividade, email, telefone, admin, db, rs, c, nId

cidade	= request.Form("txtIdCidade")
nome	= request.Form("txtNome")
login	= request.Form("txtLogin")
senha	= request.Form("txtSenha")
profissao= request.Form("txtProfissao")
crea	= request.Form("txtCrea")
telefone= request.Form("txtFone")
fax= request.Form("txtFax")
email	= request.Form("txtEmail")
curriculo= request.Form("txtCurriculo")
endereco = request.Form("txtEndereco")
bairro = request.Form("txtBairro")
cep = request.Form("txtCep1") & request.Form("txtCep2")
cpf = request.Form("txtCpf")
rg = request.Form("txtRg")
data = request.Form("txtData1") & "/" & request.Form("txtData2") & "/" & request.Form("txtData3")

set db = server.CreateObject("adodb.connection")
conecta db
set rs = server.CreateObject("adodb.recordset")

c = "select count(*) from usuario where login = '" & login & "'"
rs.open c, db, 3, 3
if not (rs.bof and rs.eof) then
	if rs(0) > 0 then
		Response.Redirect("cadastro_novo.asp?msg=Login já existente. Escolha outro login.")
	end if
end if 
rs.close

'db.begintrans

nId=1
c = "select max(id_usuario)+1 from USUARIO"
rs.open c, db, 3, 3
if not(rs.bof and rs.eof) then
	nId=rs(0)
end if
rs.close

c = "insert into USUARIO (id_usuario, nome, login, senha) values ("
c = c & nId & ","
c = c & "'" & nome & "', "
c = c & "'" & login & "', "
c = c & "'" & senha & "')"
'para c
db.execute c

c = "insert into ASSOCIADO (id_usuario, id_cidade, profissao, crea, telefone, email, curriculo, endereco, bairro, cep, data_nascimento, fax, cpf, rg) values ("
c = c & nId & ","
c = c & cidade & ", "
c = c & "'" & profissao & "', "
c = c & "'" & crea & "', "
c = c & "'" & telefone & "', "
c = c & "'" & email & "', "
c = c & "'" & curriculo & "',"
c = c & "'" & endereco & "', "
c = c & "'" & bairro & "', "
c = c & "'" & cep & "', "
c = c & "'" & data & "', "
c = c & "'" & fax& "', "
c = c & "'" & cpf& "', "
c = c & "'" & rg & "')"
'para c
db.Execute c

'db.commit

set db = nothing

bValido = true
session("id_usuario") = nId
session("nome") = nome
session("login") = login
session("logado") = "S"
session("cod") = nId

'Response.Redirect("login.asp?msg=CadastroOK")
Response.Redirect("cadastrar_email.asp?id=" & session("id_usuario"))

%>

Aqui envia o email:

 

<!-- #include file="../inc/bd.asp" -->
<!-- #include file="../inc/recordset.asp" -->

<%

passaref = request.QueryString("id")

set db = server.CreateObject("adodb.connection")
conecta db
set rs = server.CreateObject("adodb.recordset")
set ds = server.CreateObject("adodb.recordset")
c = "select a.id_usuario, b.nome, b.senha, a.email, a.endereco, a.bairro, c.uf, a.id_cidade, c.cidade as city, a.cep, a.data_nascimento, "
c = c & "a.telefone, a.fax, a.cpf, a.rg, a.profissao, a.crea, a.curriculo, b.login "
c = c & "from associado a, usuario b, cidade c "
c = c & "where b.id_usuario = " & passaref
c = c & " and a.id_usuario = b.id_usuario "
c = c & " and a.id_cidade = c.id_cidade "
rs.open c, db, 3, 3

if not(rs.bof and rs.eof) then

	Msg="Cadastro efetuado no site IMAPE.com.br - Abaixo dados do cadastro:" & vbcrlf & vbcrlf &_
		"Nome: " & rs("Nome") & vbcrlf &_
		"E-mail: " & rs("Email") & vbcrlf &_
		"Endereço: " & rs("Endereco") & vbcrlf &_
		"Bairro: " & rs("Bairro") & vbcrlf &_
		"Cidade: " & rs("Cidade") & " | UF: " & rs("UF") & vbcrlf &_
		"CEP: " & rs("CEP") & vbcrlf &_
		"Telefone: " & rs("Telefone") & vbcrlf &_
		
		"Login: " & rs("login") & vbcrlf &_
		"Senha: " & rs("senha") & vbcrlf &_
	
		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
			Mailer.FromName = Nome
			Mailer.FromAddress= Email
			Mailer.RemoteHost = "mail.renatowebdesign.com"
			Mailer.AddRecipient "", "renato.salgados@gmail.com"
			Mailer.AddBCC "Renato Silva", "renato@fcriativos.com.br"		'Cópia oculta
			Mailer.Subject = "Cadastro via website"
			Mailer.BodyText = Msg
	
			if Mailer.SendMail then
				Response.redirect("default.asp?msgOk=true")
			else
				Response.Write "Houve falha no envio.<br /><br />O erro foi: " & Mailer.Response & "<br /><br />Por favor, reporte este erro a <a href=mailto:renato.salgados@gmail.com>renato.salgados@gmail.com</a>."
			end if
	
		Set Mailer = Nothing

else

	Msg="Cadastro efetuado no site IMAPE.com.br - Abaixo dados do cadastro:" & vbcrlf & vbcrlf &_
		"Nome: " & rs("Nome") & vbcrlf &_
		"E-mail: " & rs("Email") & vbcrlf &_
		"Endereço: " & rs("Endereco") & vbcrlf &_
		"Bairro: " & rs("Bairro") & vbcrlf &_
		"Cidade: " & rs("Cidade") & " | UF: " & rs("UF") & vbcrlf &_
		"CEP: " & rs("CEP") & vbcrlf &_
		"Telefone: " & rs("Telefone") & vbcrlf &_
		
		"Login: " & rs("login") & vbcrlf &_
		"Senha: " & rs("senha") & vbcrlf &_
	
		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
			Mailer.FromName = Nome
			Mailer.FromAddress= Email
			Mailer.RemoteHost = "mail.renatowebdesign.com"
			Mailer.AddRecipient "", "renato.salgados@gmail.com"
			Mailer.AddBCC "Renato Silva", "renato@fcriativos.com.br"		'Cópia oculta
			Mailer.Subject = "Cadastro via website"
			Mailer.BodyText = Msg
	
			if Mailer.SendMail then
				Response.redirect("default.asp?msgOk=true")
			else
				Response.Write "Houve falha no envio.<br /><br />O erro foi: " & Mailer.Response & "<br /><br />Por favor, reporte este erro a <a href=mailto:renato.salgados@gmail.com>renato.salgados@gmail.com</a>."
			end if
	
		Set Mailer = Nothing

	
end if


set rs=nothing
set db=nothing

%>

[Mário Monteiro 179]

qual o erro e a linah dele

[Renato Silva 0]

Microsoft VBScript compilation error '800a03ea'

 

Syntax error

 

/novo/site/cadastrar_email.asp, line 34

 

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

^

[Ted k' 126]

você tem o componente instalado no servidor?

[Renato Silva 0]

Tenho... Eu consigo enviar email de contato por esse componente no mesmo site...

[Ted k' 126]

você está testando localmente ou via servidor de hospedagem?

 

caso seja localmente, verifique se o componente está instalado corretamente ou tente reenstalar ele!