Dúvida Intraweb
14/08/2003
0
:lol: Caros Amigos,
Estou desenvolvendo com Intraweb 5.1 uma aplicação que após o cliente cadastrar sua senha envio o email com o link para ativação da mesma (Clubedelphi Ed. 41). Está tudo certo somente uma coisa que gostaria de fazer que não estou conseguindo.
Quando recebo a mensagem com o link http://localhost:2525?ATIVAR=708BAC00EA2E7640F27AE240 para ativa a conta gostaria de direcionar o cliente para uma página de sucesso.
Tente da seguinte forma mas não deu certo.
var
Conta : String;
AA : String;
begin
AA:= ´http://www.teste.com.br/sucesso.htm´;
Conta :=WebApplication.RunParams.Values[´ATIVAR´];
if Conta <> ´´ Then
begin
DataModule1.Ativar(conta);
WebApplication.RedirectURL(AA);
WebApplication.TerminateAndRedirect(AA,´ok´);
end
else
begin
AddScriptFile(´/files/validacoes.js´);
IWCpf.SetFocus;
end;
Está acontecendo que o OK está aparecendo dentro da minha tela do OUTLook Express
8) Mantmor
Estou desenvolvendo com Intraweb 5.1 uma aplicação que após o cliente cadastrar sua senha envio o email com o link para ativação da mesma (Clubedelphi Ed. 41). Está tudo certo somente uma coisa que gostaria de fazer que não estou conseguindo.
Quando recebo a mensagem com o link http://localhost:2525?ATIVAR=708BAC00EA2E7640F27AE240 para ativa a conta gostaria de direcionar o cliente para uma página de sucesso.
Tente da seguinte forma mas não deu certo.
var
Conta : String;
AA : String;
begin
AA:= ´http://www.teste.com.br/sucesso.htm´;
Conta :=WebApplication.RunParams.Values[´ATIVAR´];
if Conta <> ´´ Then
begin
DataModule1.Ativar(conta);
WebApplication.RedirectURL(AA);
WebApplication.TerminateAndRedirect(AA,´ok´);
end
else
begin
AddScriptFile(´/files/validacoes.js´);
IWCpf.SetFocus;
end;
Está acontecendo que o OK está aparecendo dentro da minha tela do OUTLook Express
8) Mantmor
Mantmor
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)