<% '************************************************************************ '** 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 ** '************************************************************************ %> <% 'Arquivo de configuração 'Tenha Certeza Quando for alterar algo! 'Rodapé, a mensagem que aparece embaixo dos banners, 'Se você deseja que ela apareça deixa rodapé em on, 'E especifique rodapef e rodapee rodape = "off" rodapef = "Troca de Banners Ratio 2:1"'Mensagem rodapee = "http://www.zarp.net/banners/"'Endereço 'Caso não exista nenhum site cadastrado, esse será o banner, 'Que aparecera, especifique as linhas abaixo sitef = "http://www.zarp.net"'Endereço textof = "Publicidade"'Texto imagemf = "http://www.zarp.net/banners/bannerg.gif"'Imagem 'Configurações gerais, especifiquem cada configuração como, 'Deseja, preste bastante atenção endereco = "http://www.zarp.net/banners/"'Endereço do site deixar / no final ratiof = 2 'Ratio do sistema ou seja quantas vezes cada banner terá de ser visto para o dono da conta ganhar um ponto, importante não colocar números negativos e deixar sem aspas Nomedapagina = "Zarp.Net! Banners" 'Nome da página Pontos = "300" 'Pontos que usuário ganhará quando se cadastrar bonif = "1000" 'Bonificação automática que o usuário receberá quando administrador editar ele 'Administração, especificar usuário e senha do administrador, 'preste atenção na hora que for especificar loginf = "zarp" 'Login senhaf = "senha2" 'Senha 'Email, especifique as configurações de email, 'Atenção caso não especificar certo todos os campos podem ocorrer problemas no cadastro e no contato, 'Atenção não deixar os dois componentes ativos, somente um ! Smtp = "smtp.zarp.net" 'Servidor SMTP Cdonts = "on" 'Componente Cdonts caso desativado deixar em off caso ativado deixar em on AspMail = "off" 'Componente ASPMAIL caso desativado deixar em off caso ativado deixar em on emailAdministrador = "banners@zarp.net" 'Email do administrador 'Banco de dados: Indique abaixo o caminho onde se localiza o banco de dados, 'Caso você não sabia o caminho físico do banco de dados, mas sabe que ele está, 'No mesmo direitório que as páginas, habilite essa linha e trave a outra com ' CaminhoDB = Server.MapPath("/banners/xchanger.mdb") 'Atenção sem o sistema tiver em um subdiretório, especificar o subdiretório, Ex: subdiretório asp, então /asp/xchanger.mdb 'CaminhoDB = "C:\sites\divulgue\www\xchanger.mdb" 'Caso o seu servidor não suporte o método abaixo de conexão libere o outro 'método e trave o que está liberado StringDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 'StringDB = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" 'Configuração Terminada '------------------------------------------------------------------------ 'Vamos nos conectar ao banco de dados agora! Set Conexao = Server.CreateObject("ADODB.Connection") 'Criamos o Objeto ADODB Conexao.Open StringDB & CaminhoDB 'Abriamos a Conexao com a STRINGDB + CaminhoDB %>