Mensagem Não Vai Para O Email...loja Virtual

[ladycroft]

To analisando um codigo com erro, toda vez q terminou de fazer uma compra ele fala q vai me mandar uma mensagem no meu email com os dados da compra mas não chega no meu email, nem quando eu peço para me mandar a senha no email, quando eu esqueço ela...onde pode estar o erro?O código é enorme, com varias paginas e por isso não dá para colocar aqui.

Outra coisa, depois q terminou de fazer a comprar ele sai do login, como eu faço para q depois de fazer a compra eu continue logada, q código eu uso?

Vanessa

[cyberalexxx]

voce não consegue identificar qual parte do código é responsavel por isso q você quer?? pois sem ver a lógica que esta sendo usada fica dificil te ajudar.

[bareta]

qual o sistema de loja? baixou aonde?

[ladycroft]

To colocando o código q envia a senha para o email, q não funciona...tem algum erro?

<%
'Inicia a atualização
if request.querystring("acao") = "atualiza" then
strEmail=request.form("novoemail")
strEmaila=request.form("email")
strSenhaa=request.form("senhaatual")
strSenha=request.form("senhanova")

'Chama o e-mail e a senha
Set dados = abredb.Execute("SELECT * FROM clientes WHERE email='"&Cripto(strEmail,true)&"';")
if dados.EOF then
strEmail = strEmail
else 
strEmail = "sim@."
end if
dados.close
set dados = nothing 
if strEmail = "" then
strEmail = strEmaila
else

'Valida o e-mail
if instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then
abredb.close
set abredb = nothing
response.redirect "email_senha.asp?erro2=- " & strLg152
end if
if strEmail = "sim@." then
abredb.close
set abredb = nothing
response.redirect "email_senha.asp?erro2=- " & strLg162
end if
end if

'Chama a senha
set rsAsk = abredb.Execute("select senha FROM clientes WHERE email='"&Cripto(strEmaila,true)&"';")
if strSenhaa = "" OR strSenha = "" then
strSenha = Cripto(rsAsk("senha"),false)
strSenhaa = Cripto(rsAsk("senha"),false)
end if
if Cripto(rsAsk("senha"),false) <> strSenhaa then
rsAsk.close
set rsAsk = nothing
Conn.close
set Conn = nothing
response.redirect "email_senha.asp?erro=- " & strLg163
else
set rsQuery = abredb.Execute("update clientes set email='"&Cripto(strEmail,true)&"', senha='"&Cripto(strSenha,true)&"' WHERE email='"&Cripto(strEmaila,true)&"';")
abredb.execute("update compras set clienteid='"& Cripto(strEmail,true) &"' where clienteid='"&Cripto(strEmaila,true)&"'")
end if
rsAsk.close
set rsAsk = nothing

'Loga novamente se o usuario tiver mudado o email
checkPass = "select email,senha from clientes where email='"&Cripto(strEmail,true)&"';"
set passSet = abredb.Execute(checkPass)
real_password = Cripto(trim(passSet("senha")),false)
Application.lock
session("usuario") = strEmail
Application.unlock
session.timeout = 999
response.cookies(""&nomeloja&"")("usuario")= strEmail
response.cookies(""&nomeloja&"").expires = "01/01/"&year(now) + 1
passSet.close
set passSet = nothing
%>

[cyberalexxx]

Em momento algum este código cria um objeto de email, pelo q percebi a pagina que envia o email é: email_senha.asp

é esta pagina q você postou??

[ladycroft]

é essa pagina mesmo envio email_senha.asp, como eu faço para criar um objeto de email?

[cyberalexxx]

Primeiro você deve verificar junto ao servidor quais coponentes ele oferece suporte, tipo: CDONTS, ASPMAIL, JMAIL, DUNDAS etc

[ladycroft]

Primeiro você deve verificar junto ao servidor quais coponentes ele oferece suporte, tipo: CDONTS, ASPMAIL, JMAIL, DUNDAS etc

É o cdonts.

[dark0]

tópico exclusivo de CDONTS:

http://scriptbrasil.com.br/forum/index.php?showtopic=34563