Select Randomico

[Henderson]

Olá

Busquei aqui e achei uma forma de fazer select randomico

eu fiz e tal

to fazendo um sistema da banners

meu sql (liga não que está meio bagunçado)

area = Request.Querystring("area")

sql2="SELECT * FROM banner WHERE exibicoes < maxexibicoes AND cliques < maxcliques"

sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"'"

sql2 = sql2 & " OR exibicoes < maxexibicoes AND maxcliques = "&zero&""

sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"'"

sql2 = sql2 & " OR maxexibicoes = "&zero&" AND cliques < maxcliques "

sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"'"

sql2 = sql2 & " OR maxexibicoes = "&zero&" AND maxcliques = "&zero&" "

sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"' order by RND(INT(NOW*id)-NOW*id)"

aí tipo

eu salvo isso numa página

por exemplo banner.asp

aí depois na página onde eu quero colocar a publicidade eu faço assim

<iframe src = "banner.asp?area=1"></iframe>

essa parte da área não importa, é só pra dexar cada banner em um local do site, não interfere no meu problema, que é o seguinte:

se eu faço como disse:

<iframe src = "banner.asp?area=1"></iframe>

funciona normalmente

mas se por exemplo, quero colocar na parte lateral, vários banners.

aí eu coloco:

<iframe src = "banner.asp?area=1"></iframe>

<iframe src = "banner.asp?area=1"></iframe>

<iframe src = "banner.asp?area=1"></iframe>

<iframe src = "banner.asp?area=1"></iframe>

para 4 banners....

só que aparecem os 4 iguais

o que eu faço?

[Henderson]

Ninguém sabe o que é?

[kuroi]

não manjo de mexer com random, mas talvez, se você passar um parametro diferente pra cada na sua consulta, tipo assim:

area = Request.Querystring("area")
sql2="SELECT * FROM banner WHERE exibicoes < maxexibicoes AND cliques < maxcliques"
sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"'"
sql2 = sql2 & " OR exibicoes < maxexibicoes AND maxcliques = "&zero&""
sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"'"
sql2 = sql2 & " OR maxexibicoes = "&zero&" AND cliques < maxcliques "
sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"'"
sql2 = sql2 & " OR maxexibicoes = "&zero&" AND maxcliques = "&zero&" "
sql2 = sql2 & " AND estado = '"&um&"' AND area = '"&id&"' order by RND(INT(NOW*id * " & Request.QueryString("rrr") & " )-NOW*id)"[/code]


ai no iframe, você faria tipo assim:
[code]<iframe src = "banner.asp?area=1&rrr=-1"></iframe>
<iframe src = "banner.asp?area=1&rrr=0"></iframe>
<iframe src = "banner.asp?area=1&rrr=1"></iframe>
<iframe src = "banner.asp?area=1&rrr=2"></iframe>

veja se funciona;

[Guest Visitante]

não testei

mas mesmo que funcione, isso é um sistema de banner rotativo

como uma pessoa que não sabe programar, vai poder fazer as alterções necessárias?

e o que esse rrr faz?

subtrai 1 ou soma 1, 2 ou 0 ao ID ?

[Henderson]

eu aí em cima, não tava logado =\

eu quiz dizer

vai pro próximo registro

ou volta um registro

bom, me explique por favor o que esse valor na "rrr" faz

[Espartaco]

Bem, acho que tem um jeito bem mais fácil de fazer isso..

PÁGINA BANNERS.ASP

<%
Sql="SELECT * FROM banners"
Set RS = DB.Execute(Sql)
if not rs.eof then
Do Until RS.EOF or RS.BOF
IDS = Valores & RS("ID") & ","
RS.Movenext
Loop
ArraySplit = Split(Left(IDS,Len(IDS)-1),",")
Randomize
x = CInt(Rnd()*Ubound(ArraySplit))
RANID = ArraySplit(x)

Sql="SELECT * FROM publicidade WHERE id = "&RANID&""
Set rsExibe = Conexao.Execute(Sql)
%>

'html que exibe o banner

<a target="_blank" href="redireciona.asp?id=<%=rsExibe("id")%>&url=<%=rsExibe("url")%>"><img src="<%=rsExibe("imagem")%>" border="0" width="468" height="60"></a>

'conta exibições
<%Sql2 = "UPDATE banners SET visualizacoes = visualizacoes + 1 WHERE id = "&rsExibe("id")&" "
Conexao.Execute(Sql2)%>

'PÁGINA REDIRECIONA.ASP

<%id = request("id")

Sql = "UPDATE banners SET cliques = cliques + 1 WHERE id = "&id&" "
Conexao.Execute(Sql)
response.redirect ""&url&""
%>

<--ou usa html para redirecionar-->
<meta http-equiv="refresh" content="0; URL=<%=url%>">
<--fim-->

Depois coloca um <iframe src = "banners.asp></iframe> nas páginas que deseja exibir o banners

[Henderson]

continua pegando sempre o mesmo

:S

[Marcos-rj]

tenta assim:

página banner.asp

<%
Sub Rnd_Banner()
Dim strSQL
Dim strBanners
Dim intCounter
Dim intID
Dim strDisplay
Dim strDefault

intCounter = 0
strDefault = "default.gif"  'AQUI você COLOCA UM BANNER DEFAULT P/ CASO DA TBLA ESTAR VAZIA!

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("banners.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")

strSQL = "SELECT * FROM banners ORDER BY ID"

rs.open strSQL, conn

If not rs.EOF Then
    strBanners = rs.getrows()
    rs.movefirst
    Do While Not rs.EOF
        intCounter = intCounter + 1
        rs.movenext
    Loop
    If intCounter < 2 Then
        strDisplay = "<a href="&strBanners(2,0)&" target=new><img src="&strBanners(1,0)&"></a>"
    Else
        Randomize
        intID = Int(Rnd * intCounter)
        strDisplay = "<a href="&strBanners(2,intID)&" target=new><img src="&strBanners(1,intID)&"></a>"
    End If
Else
    strDisplay = "<img src="&strDefault&">"
End If

rs.close
set rs = nothing
set conn = nothing

Response.Write(strDisplay)

End Sub
%>

você vai chamar esta página por include

<!--#INCLUDE FILE="banner.asp"--> 

onde você quer exibir o banner você coloca:

<% Rnd_Banner() %>

Ok. qualquer coisa é só postar.

[Henderson]

Você fez a mesma coisa que o Espartaco.

Armazenou todos os ids e randomizou.

Eu não sei o que fiz aqui

Mas comecei a fuçar, misturar uns códigos e tá funcioando normal agora.

Mas valeu aí as ajudas!

[Marcos-rj]

beleza, mas eu testei aqui e funciona!

[Dony]

Pessoal,

Eu estava precisando de um codigo de banner randomico e encontrei esse, mas estou com algumas duvidas:

If intCounter < 2 Then
        strDisplay = "<a href="&strBanners(2,0)&" target=new><img src="&strBanners(1,0)&"></a>"
    Else
        Randomize
        intID = Int(Rnd * intCounter)
        strDisplay = "<a href="&strBanners(2,intID)&" target=new><img src="&strBanners(1,intID)&"></a>"
    End If

Na verdade o que faz isso: ="&strBanners(2,0)&" e isso ="&strBanners(2,intID)&" , não entendi se é pauxado de um bd porque tem esses dois parametros na frente!

Obrigado!

[Marcos-rj]

Olá amigo, você me mandou um email pergunto sobre este código.

faça uma busca no google sobre: getrows() que você irá intender este código.

um link, aqui do forum falando sobre o assunto.

http://scriptbrasil.com.br/forum/index.php...st&p=217280

um abraço

[Dony]

Olá Marcos mandei sim.... desculpe mas é que eu estou apavorado para terminar isso!

Obrigado pela dica vou ler...

precisando de algo, conte comigo!

Dony

[bareta]

para parar de complicações tem um tópico meu na seção de tutoriais ou codigos prontos sobre select randomico...

[Dony]

Pessoal,

Já li e saquei tudo... 2,1 é coluna e linha.... quando foi feito o select se tivesse colocado os campos em vez de * entenderia mais rápido, mas foi bom que me forçou a estudar para aprender mais...

Valeu gente!