<% 'Autoriza a página a ser visualizada sem protecao autorizacao = 1 %> <% if request.form("controle") = "" then end if If request.form("controle") = 1 then '''Verifica se os campos foram digitados IF Request.Form("email") = "" then Erroemail = "Você precisa preencher este campo." Errototal = 1 End if if errototal = "" then Call conecta() vsSQL = "SELECT * FROM usuarios where email = '"&replace(request.form("email"),chr(39),"''")&"'" Set RS = oConexao.Execute(vsSQL) IF RS.EOF Then Erro = "Atenção: Não existe usuário cadastrado com estes dados." Else login = rs("login") senha = rs("senha") 'Criando o objeto Set CDOMail = Server.CreateObject("CDO.Message") 'Criando a instância Set CDOCon = Server.CreateObject ("CDO.Configuration") 'Host CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.julianocarneiro.com.br" 'Porta CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Porta do CDO CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'SMTP Autenticado = 1 CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'Usuário CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "eu@julianocarneiro.com.br" 'Senha CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "leadership1012" 'Timeout (segundos) CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 CDOCon.Fields.update Set CDOMail.Configuration = CDOCon 'Nome e email do Remetente CDOMail.From = "Juliano " 'Nome e email do Destinatário 'Nome e email do Destinatário 'Trata o email do destinatario 'emaildestinatario = rs("apelido")&" <"&rs("email")&" >" 'response.write(emaildestinatario) 'CDOMail.To = "Juliano " enderecodeemail = "Portal Juliano Carneiro <" & request.form("email") & ">" CDOMail.To = enderecodeemail 'Assunto CDOMail.Subject = "Recuperação de Senha. Portal Juliano Carneiro." 'Corpo de mensagem '''''''INICIO DO HTML DA MENSAGEM textohtml = "
" textohtml = textohtml & "
" textohtml = textohtml & "" textohtml = textohtml & "
" textohtml = textohtml & "" textohtml = textohtml & "" textohtml = textohtml & "" textohtml = textohtml & "" textohtml = textohtml & "" textohtml = textohtml & "" textohtml = textohtml & "
" textohtml = textohtml & "

" textohtml = textohtml & "
" textohtml = textohtml & "
" textohtml = textohtml & "Você solicitou um reenvio de senha do Portal Juliano Carneiro.
" textohtml = textohtml & "
" textohtml = textohtml & "Seu login é: "&login& "
" textohtml = textohtml & "Sua senha é: "&senha& "
" textohtml = textohtml & "
" textohtml = textohtml & "Acesse novamente o site informando os dados acima.
" textohtml = textohtml & "
" textohtml = textohtml & "http://www.julianocarneiro.com.br/logar.asp
" textohtml = textohtml & "
" textohtml = textohtml & "Agradecemos o seu acesso.
" textohtml = textohtml & "
" textohtml = textohtml & "Um Abraço,
" textohtml = textohtml & "
" textohtml = textohtml & "Equipe Portal Juliano Carneiro. " textohtml = textohtml & " " textohtml = textohtml & "
" textohtml = textohtml & "
" textohtml = textohtml & "
" textohtml = textohtml & "
" ''''''' Termino do HTML da mensagem CDOMail.HtmlBody = textohtml 'Enviando CDOMail.Send 'Finalizando Set CDOMail = Nothing Set CDOCon = Nothing Erro = "Sua senha foi enviada para o e-mail cadastrado. Verifique sua caixa postal." END IF END IF END IF %>
ações, bolsa de valores, investimentos, mercado financeiro, investimento, acoes, corretora, home-broker, home broker, homebroker, corretora, trading, trader, analise técnica, analise tecnica, análise técnica, curso, cursos, fórum, chat, gráficos, grafico, graficos, gráfico, forum, brasil, brazil, forex, metastock, educação, educacao, educaçao, educacão, artigo, artigos, mercado, dinheiro, finanças, economia, investimento
Para que sua senha seja enviada é necessário confirmar alguns dados.
Preencha corretamente as informações solicitadas.

E-mail: " size="60" maxlength="120"> <%=erroemail%>  
  <%=erro%>
E-mail: moderador@julianocarneiro.com.br