<%
'************************************************************************
'**               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 campo senha e fazemos um tratamento de caracteres nele
senha = Request("senha")
senha = Replace(senha," ","")
senha = Replace(senha,Chr(34),"")
senha = Replace(senha,Chr(39),"")
'Crio Objeto RS
Set RS=Server.CreateObject("ADODB.RecordSet")
'Abro o RS com os dados recebidos
Query = "SELECT * FROM membros WHERE sua_senha='"&senha&"' and seu_login='"&login&"' "
RS.Open Query, Conexao, 3, 3
'Se não for verdadeiro redireciona para erro2
IF (RS.EOF) THEN
pagina = "erro2.asp"
'Senão cria session e redireciona para administração
Else
session.timeout = 380
session("user") = RS("seu_login") 
session("pass") = rs("sua_senha")
session("id") = rs("tc_id")
session("verifica") = 1
pagina = "administracao.asp"
End If
'Inclui o rodape%>
<!--#include file="include/rodape.inc"-->
<%Response.Redirect (pagina)%>