Rotazione banner

[Pr3z1oso]

Salve, ho un sito in asp, non creato da me, con un sistema di inserimento banner via pannello di controllo ( si gestisce l'intero sito da qui ).
Vorrei poter mettere i banner in random solo che mastico poco il codice, sareste cosi gentili da aiutarmi se è una cosa fattibile far diventare questi banner da "statici" a random ?
Vi posto questo codice, sperando che sia sufficiente a suggerirvi la modifica.
E' il codice del file che mi visualizza i banner in homepage.

<table width="100%" border="0" cellspacing="6" cellpadding="0">
<% connessione
sqlbanner="select * from banner where id_riferimento=1 and on_line=true order by clicks"
set rsbanner=conn.execute(sqlbanner)
do while not rsbanner.eof
%>
<tr>
<td align="center" width="180" style="border:2px #CCCCCC solid;"><IFRAME src="http://www.ledueruote.it/banner_home/view_home.asp?id_banner=<%=rsbanner("id_banner")%> " width="180" height="90" scrolling="no" frameborder="0">il tuo brouser non visualizza i frame.</IFRAME>
</td>
</tr>
<%
rsbanner.movenext
loop
rsbanner.close
disconnessione %>
</TABLE>

Grazie in anticipo

[agenti]

view_home.asp?id_banner=<%=rsbanner("id_banner")%>

questo url chiama uno specifico banner...
ti consiglio di controllare la query dentro view_home.php

[Pr3z1oso]

doppio post scusate

[Pr3z1oso]

grazie per la risposta agenti, ti allego il codice di view_home.asp

<%

Dim DbConn, RsControlloIP
Set DbConn = Server.CreateObject("ADODB.Connection")
sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Database)
DbConn.Open sConnect

vIP = Request.ServerVariables("REMOTE_ADDR")

Set rsControlloIP = CreateObject("ADODB.RecordSet")
rsControlloIP.Open "SELECT * FROM controlloclick WHERE ((IP = '" & vIP & "') AND (IDCAMPAGNA = " & Request("ID_banner") & "));", DbConn, 3, 3

If rsControlloIP.EOF Then

Click
rsControlloIP.AddNew
rsControlloIP("idcampagna") = Request("id")
rsControlloIP("ip") = vIP
rsControlloIP("data") = Now()
rsControlloIP("urlclick") = Request.ServerVariables("HTTP_referer")
rsControlloIP.Update

else
' l'ip è già in archivio, vediamo da quanto

vDBDate = CDate(rsControlloIP("data"))
vNWDate = CDate(Now())
If CInt(DateDiff("h", vDBDate, vNWDate)) < 24 Then

' Non sono ancora passate 24 ore.
' Non registrare il click unico.

ClickNONunico

else

' Sono passate più di 24 ore, conta il
' click unico e aggiorna il Database

Click
rsControlloIP.Update "data", Now()
rsControlloIP.Update "urlclick", Request.ServerVariables("HTTP_referer")
End if
End if

rsControlloIP.Close
Set rsControlloIP = Nothing

' Carica l'url
Vai

DbConn.Close
Set DbConn = Nothing

Sub Click()
Set Rs = CreateObject("ADODB.RecordSet")
Rs.Open "SELECT * FROM banner WHERE ID_banner = " & Request("ID_banner"), DbConn, 1, 3
If Not Rs.EOF Then
Rs.Fields("view") = Rs("view") + 1
Rs.Update
End if
Rs.Close
Set Rs = Nothing
End Sub

Sub ClickNONunico()
Set Rs = CreateObject("ADODB.RecordSet")
Rs.Open "SELECT * FROM banner WHERE ID_banner = " & Request("ID_banner"), DbConn, 1, 3
If Not Rs.EOF Then
Rs.Fields("view") = Rs("view") + 1
Rs.Update
End if
Rs.Close
Set Rs = Nothing
End Sub

Sub Vai()
Set Rs = CreateObject("ADODB.RecordSet")
Rs.Open "SELECT * FROM banner WHERE ID_banner = " & Request("ID_banner"), DbConn, 1, 3
If Not Rs.EOF Then
url = "http://www.ledueruote.it/banner_home/guarda.asp?ID_banner="&Rs("ID_banner")
Response.Redirect(url)
End if
Rs.Close
Set Rs = Nothing
End Sub

%>

[agenti]

SELECT top 1 * FROM banner ORDER BY Rnd(ID)

tecnicamente su access la funzione random crea un sort casuale.
su asp a volte crea qualche problema

quindi...
http://www.aspcode.it/tips/tips.asp?...how_tip&idx=55

[Pr3z1oso]

Originariamente inviato da agenti
SELECT top 1 * FROM banner ORDER BY Rnd(ID)

tecnicamente su access la funzione random crea un sort casuale.
su asp a volte crea qualche problema

quindi...
http://www.aspcode.it/tips/tips.asp?...how_tip&idx=55

scusa agenti, dato che sei stato cosi gentile, potresti suggerirmi dove mettere questa riga di codice? non sono molto pratico di asp perdonami

[agenti]

al posto di:

SELECT * FROM banner WHERE ID_banner = " & Request("ID_banner")
ultima sub

[Pr3z1oso]

mi da questo errore in ogni box dei banner

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/banner_home

ho sostituito la parte di codice

SELECT * FROM banner WHERE ID_banner = " & Request("ID_banner")

con

SELECT top 1 * FROM banner ORDER BY Rnd(ID)

come mi avevi suggerito ma mi visualizza quell'errore.

[agenti]

Rs.Open "SELECT top 1 * FROM banner ORDER BY Rnd(ID) ", DbConn, 1, 3

cmq: ti conviene ripulire la cache del browser tramite

Response.CacheControl = "no-cache"
Response.AddHeader "pragma", "no-cache"
Response.Expires = 0

all'inizio della pagina.
cmq non credo funzionerà..
devi usare l'altro metodo..

[Pr3z1oso]

si avevi ragione, non funziona, mi da questo errore:
Microsoft JET Database Engine error '80040e10'

No value given for one or more required parameters.

/banner_home/view_home.asp, line 83

quale sarebbe l'altro metodo di cui parli ?