<%
'************************************************************************
'** 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 **
'************************************************************************
%>
<%response.expires = 0
if session("verifica") < 1 Then
response.redirect"erro2.asp"
End If%>
<%=nomedapagina%> - Adminstração
<%
'Seliciona todos os membros e cria objrs com ele
strSQL = "SELECT * FROM membros"
Set objRS = conexao.Execute(strSQL)
'Seleciona e conta quantos sites estão ativos
sSQL = "SELECT count(site) FROM membros where conta = 'Ativado'"
Set RScount = conexao.Execute(sSQL)
rcount = RScount(0)
rscount.close
'Seleciona e conta quantos sites estão desativados
sSQLs = "SELECT count(site) FROM membros where conta = 'Desativado'"
Set RScounts = conexao.Execute(sSQLs)
rcounts = RScounts(0)
rscounts.close
'Se objrs não tiver nada segue e mostra mensagem de erro
If objRS.EOF = true Then
%> <%=nomedapagina%>
- Administração
|
Total
de contas Ativadas
|
Total
de contas Desativada
|
|
<%=rcount%>
|
<%=rcounts%>
|
Erro nenhum membro cadastrado
<%'Senão
else
%> Administração
|
Total
de contas Ativadas
|
Total
de contas Desativada
|
|
<%=rcount%>
|
<%=rcounts%>
|
<%
'Para ele não para enquanto objrs não tiver anda
While not objRS.EOF
'Se clicks for nulo colca fala que a variavel cliques será -
'Se não ele fala que cliques será rs("clicks")
If objRS("clicks") = "" Then
cliques = "-"
else
cliques = objRS("clicks")
End If
'Fala que hit é objrs("hit"), exibicao_seu é .... e assim vai até exibicao_seu
hit = objRS("hit")
ima = objRS("imagem")
clicks = objRS("clicks")
exibicao_seu = objRS("exibicao_seu")
'Caso cliques for 0 ou exibacao_seu for 0
'ele fala que doratio será -
'Se não ele fala ele faz várias contas para chegar a uma porcentagem de aproveitamento
If clicks = "0" OR hit = "0" Then
DoRatio = "-"
Else
DoRatioSub = clicks/(hit/100)
DoRatioSub2 = Round(DoRatioSub,2)
DoRatio = DoRatioSub2 & "%"
End If
%>
| |
|
|
<% if objRS("conta") = "Desativado" then %>
Desativar
<% else %>
<% end if %> |
|
|
|
<%=objRS("site")%>
|
|
Exibido
|
Exibição
|
Créditos
|
|
<%=exibicao_seu%>
|
<%=hit%>
|
<%=objRS("creditos")%>
|
|
Clicks
|
Bonificação
|
Aproveitamento
|
|
<%=cliques%>
|
<%=objRS("bonificacao")%>
|
<%=DoRatio%>
|
|
<%'Va para o proximo registro
objRS.MoveNext
Wend
%>
| Exibido - Banner exibido em suas páginas |
| Exibição - Seu Banner foi exibido nas outras
páginas. |
| Clicks - Clicks em seu Banner |
| Aproveitamento - Aproveitamento do seu Banner |
<% end if 'fecha se
%>