<%
'************************************************************************
'**               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                            **
'************************************************************************
%>
<%'Defino para que o arquivo fica com a data do Brasil
Session.LCID = 1046
'Requisito o id e gravo na var tc_id
tc_id = replace(Request.QueryString("id"),"'","")
'Caso tc_id esteja em branco
If tc_id = "" Then
'Ele responde que o site é invalido
response.write "site invalido"
'Se não ele segue
Else
'Inclui o arquivo config e nele se abre a conexão%>
<!--#include file="include/config.asp"-->
<%'Cria o objeto RS
Set RS = Server.CreateObject("ADODB.RecordSet")
'Abre a tabela membros pelo tc_id
RS.Open "SELECT * FROM membros WHERE tc_id="&tc_id&"", conexao, 3, 3
'Se rs for invalido ele exibe uma mensagem
if rs.bof = true then
response.write "site ínvalido"
'Se não
else
'Se não existir nenhum cookie com o end do site ele segue 
if request.cookies(RS("site")) = "" then
'Executa um atualizar que adiciona mais um clique
Conexao.execute("UPDATE membros SET clicks="&RS("clicks") +1&" WHERE tc_id="&RS("tc_id")&"") 
'Escreve um cookie com o nome rs("site")
response.cookies(RS("site")) = RS("site")
'E fala que esse cookie expirara amanha
response.cookies(RS("site")).expires = date + 1
'define que a variável pagina é o valor de rs("site")
pagina = rs("site")
'se não
else
'define que a variável pagina é o valor de do end. do site
pagina = rs("site")
End if
end if
'fecha o rs
RS.Close
'destruimos o objeto rs
Set RS = Nothing
'Inclui o rodapé e fecha a conexão%>
<!--#include file="include/rodape.inc"-->
<%End If
'caso a variável pagina tiver + 1 de uma letra ele segue em frente
if len(pagina) => 1 then
'Redireciona para a variável pagina que foi obtida
response.redirect(pagina)
end if%>