<%
'************************************************************************
'**               X-CHANGER - Troca de banners - Ano 2002              **
'**                                                                    **
'**        Sistema de troca de banners desenvolvido pela equipe        **
'**            Scriptmaster em parceria com a Paraná Design            **
'**Contatos:                                                           **
'**          Alexandre Vahldick      - alexandre@paranadesign.com      **
'**          Renato Augusto V. Elias - averanger@scriptmaster.com.br   **
'**          Robson Campos De Abreu  - jago@scriptmaster.com.br        **
'**Sites:                                                              **
'**          http://www.paranadesign.com                               **
'**          http://www.scriptmaster.com.br                            **
'************************************************************************
%>
<!--#include file="../include/config.asp"-->
<%
'Recebemos o campo user e fazemos um tratamento de caracteres nele
login = Request("user")
login = Replace(login," ","")
login = Replace(login,Chr(34),"")
login = Replace(login,Chr(39),"")
'Recebemos o pass senha e fazemos um tratamento de caracteres nele
senha = Request("pass")
senha = Replace(senha," ","")
senha = Replace(senha,Chr(34),"")
senha = Replace(senha,Chr(39),"")
'Se login for igual loginf e senha = senhaf segue
IF Login = loginf AND Senha = senhaf  THEN
'Cria um session e redireciona para admin.asp
session.timeout = 380
session("verifica") = 1
pagina = "admin.asp"
response.redirect(pagina)
'Senăo
Else
'Exibe mensagem de erro
response.write "Senha inválida, volte e tente novamente"
End If'Termina SE
%>
<!--#include file="../include/rodape.inc"-->