<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% '**** Declarando as variaveis Dim Sql, RsTeste, Login, Perfil, Corpo, EmailComponente, Funcao '**** Definindo as variaveis Login = Valida( Request.Form("login") ) Perfil = Valida( Request.Form("perfil") ) Funcao = Valida( Request.Form("funcao") ) If Funcao = "Enviar" Then Sql = "select nome, email, login, senha from cadastro_" & Perfil & " " &_ "where login = '" & Login & "' or email = '" & Login & "'" Set RsTeste = Server.CreateObject("ADODB.RecordSet") RsTeste.Open Sql, Conexao If Not RsTeste.Eof Then '**** ENVIANDO O E-MAIL COM OS DADOS PARA O USUARIO Corpo = "Prezado " & RsTeste("nome") & ",
estes são os seus dados no cadastro do site Capicilin.com.br

" &_ "login: " & RsTeste("login") & "
senha: " & RsTeste("senha") & "

www.capicilin.com.br" 'CONFIGURAR O COMPONENTE DE EMAIL Set EmailComponente = CreateObject("CDONTS.NewMail") EmailComponente.From = Application("SiteContato") EmailComponente.To = RsTeste("email") EmailComponente.Subject = "Lembrete de sua senha .:. capicilin.com.br .:." EmailComponente.BodyFormat = 0 EmailComponente.MailFormat = 0 EmailComponente.Body = Corpo EmailComponente.Send Set EmailComponente = Nothing Response.Write "" Response.End Else Response.Write "" Response.End End If RsTeste.Close Set RsTeste = Nothing End If %> Capicilin - Contato - Lembrete de Senha

lembrete de senha

Utilize os campos abaixo para pedir um lembrete de senha.
Desta forma você pode acessar seu cadastro e mantê-lo sempre atualizado.