<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rs = Server.CreateObject("ADODB.Recordset") ' define timeouts Session.TimeOut = 500 session("idUsuVideoAula") = "" op = request("op") define = Request.QueryString("define") 'op=1 clicou em entrar 'op=2 sair if request("entrar")="Entrar" then usuario = replace(replace(request("usuario"),"'",""),"--","") senha = replace(replace(request("senha"),"'",""),"--","") senha = MD5(senha) sql = ("SELECT * FROM login WHERE usuario='"&usuario&"' AND senha='"&senha&"'") Set rs = conSQL.Execute(sql) if not rs.EOF then session("usuario")=usuario session("nivel")=lcase(rs(5)) session("nomeusuario") = rs(4) else msgErro = "Usuário/Senha Inválidos!" end if elseif op=2 then session("usuario")="" session("nivel")="" session("nomeusuario") = "" op=1 end if if op="" then session("usuario") = "" session("nivel")="" session("nomeusuario") = "" op=1 end if if op=8 and request("voltar") = "Voltar" then op=1 elseif op=8 and request("lembrarsenha") = "Enviar senha" then 'envia o lembrete de senha email = replace(replace(request("email"),"'",""),"--","") sql = ("SELECT usuario, senha FROM login WHERE email='"&email&"' LIMIT 1") Set rs = conSQL.Execute(sql) if not rs.EOF then usuario = rs(0) senha = rs(1) var_to = email 'Cria o objeto para o envio de e-mail Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon MsgBody = "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "

" MsgBody = MsgBody & "

Lembrete de Senha

" MsgBody = MsgBody & "

Você solicitou o lembrete de senha para acesso à
www.portaldeauditoria.com.br/adm.asp

" MsgBody = MsgBody & "

Usuario: "&usuario&"
" MsgBody = MsgBody & "Senha: "&senha&"
" MsgBody = MsgBody & "" 'response.write(msgbody) objCDOSYSMail.From = "Valor Tributário " objCDOSYSMail.To = var_to objCDOSYSMail.ReplyTo = "contato@portaldeauditoria.com.br" objCDOSYSMail.Subject = "Portal de Auditoria - Lembrete de Senha" objCDOSYSMail.HtmlBody = MsgBody objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing msgErro = "Sua senha foi enviada por e-mail. Verifique sua caixa postal." else msgErro = "Este e-mail não consta em nossa base de dados. Digite novamente." end if end if %> PORTAL DE AUDITORIA | Administração

 

Sistema Administrativo - Porta de Auditoria
<%if session("usuario")<>"" then%> <%if session("nivel") = 1 then%> <%end if%>
 
SAIR
 
Cadastros
  - Cursos Presenciais
  - Cursos On-line
  - Notícias
  - Guia de Auditoria
 
Inscrições
  - Inscr. Cursos Presenciais
  - Inscr. Cursos On-line
 
Contato
  - Contatos
  - Contatos Cursos
  - Contatos Download
  - Atendimentos
  - Atendimentos Consultoria
 
Currículos
  - Vagas
  - Empresas
  - Candidatos
  - Consulta Vagas/Cadidatos
 
Vídeo Aulas
  - Usuários
  - Cursos
 
Banco de Email
  - E-mails
  - Sistema de Envio
 
Cadastro de Usuários
  - Usuários
 
 
Trocar Senha
 
 
<%end if%>

width="10%"<%else%>width="6%"<%end if%>> 
<%=msgErro%> <%if op=1 then%>
"" then%>border="0"<%else%>border="1" <%end if%>cellspacing="0" cellpadding="4">
<%if session("usuario")="" then%> <%else%> <%end if%>
 
Usuário:
Senha:
 
esqueceu sua senha?
 

Selecione o menu ao lado!!

<%elseif op=8 then%>
"" then%>border="0"<%else%>border="1" <%end if%>cellspacing="0" cellpadding="4">
  Informe seu e-mail:
E-mail:
 
 



<%elseif op=3 then%> <%elseif op=20 then%> <%elseif op=4 then%> <%elseif op=21 then%> <%elseif op=5 then%> <%elseif op=6 then%> <%elseif op=7 then%> <%elseif op=9 then%> <%elseif op=10 then%> <%elseif op=11 then%> <%elseif op=12 then%> <%elseif op=13 then%> <%elseif op=14 then%> <%elseif op=15 then%> <%elseif op=16 then%> <%elseif op=17 then%> <%elseif op=18 then%> <%elseif op=19 then%> <%elseif op=22 then%> <%elseif op=23 then%> <%end if%>

© 2010 - www.portaldeauditoria.com.br - Todos os direitos reservados.
<% set conSQL=nothing Set rs = Nothing %>