%@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
Usuario: "&usuario&"
"
MsgBody = MsgBody & "Senha: "&senha&"
"
MsgBody = MsgBody & ""
'response.write(msgbody)
objCDOSYSMail.From = "Valor Tributário
<%
set conSQL=nothing
Set rs = Nothing
%>
Sistema Administrativo - Porta de Auditoria
<%if session("usuario")<>"" 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
<%if session("nivel") = 1 then%>
- Sistema de Envio
Cadastro de Usuários
<%end if%>
- Usuários
Trocar Senha
width="10%"<%else%>width="6%"<%end if%>>
<%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.