%if request("envio") = "ok" then
if request("cnpj") = "" then
sqlDest = "SELECT senha, login, nome, cpf FROM tbs_Cliente where email = " & sBDTratarString(request("email")) & ""
else
sqlDest = "SELECT senha, login, nome, cpf FROM tbs_Cliente where cnpj = " & sBDTratarString(request("cnpj")) & ""
end if
Conecta ObjAdoConn, sqlDest, rs
ctd = "
"
ctd = ctd & "
"
ctd = ctd & "
"
ctd = ctd & "
"
ctd = ctd & "
"
ctd = ctd & "
"
ctd = ctd & "
"
ctd = ctd & "
"
ctd = ctd & "
"
ctd = ctd & "
Você está recebendo a senha para poder acessar a área Restrita no Portifólio.
"
ctd = ctd & "
Usuário:
"& rs("login") &"
"
ctd = ctd & "
Senha:
"& rs("senha") &"
"
ctd = ctd & "
"
Response.Write ctd
call EnviaEmail("vitor@c10.com.br",email,"RHPLUS - ESQUECI MINHA SENHA",ctd)
response.redirect("lembrar.asp")
end if%>
Salarium, o seu site de Remuneração e Benefícios.