Random banner

[yoyo87]

Ho creato questo semplice codice per un random di banner:

<%
Randomize

img = Cint((4 - 1) * Rnd() + 1)

Select Case img
Case 1
img="immagini/banner1.gif"
url="www.link1.it"
Case 2
img="immagini/banner2.gif"
url="www.link2.it"
Case 3
img="immagini/banner3.gif"
url="www.link3.it"
Case 4 
img="immagini/banner4.gif"
url="www.link4.it"
End Select
 response.write "<a href='" & url & "' target='_blank'>"
 response.write "[img]" & img & "[/img]</a>"
 %>

Però con questo codice posso solamente scegliere una sola immagine, ma invece io vorrei che ci siamo un random con banner multipli sempre nella stessa pagina.
Se copio i response.write naturalmente vengono stampati a video i due banner ma il random da i banner uguali. Logicamente non è questo che voglio...solito mio problema, spero di essere stato chiaro

[Umanista]

Potresti creare due array "paralleli": uno con i nomi delle immagini e uno con gli URL (meglio ancora con un oggetto Dictionary)

$arrBanner = array("banner1.gif", "banner2.gif", ...);
$arrLinks = array("www.sito1.it", "www.sito2.it", ...);

Dopo puoi richiamare a random l'indice dell'array nei modi che preferisci

response.write "<a href='" & $arrLinks(numeroRandom) & "' target='_blank'>"
response.write "[img]" & $arrBanner(numeroRandom) & "[/img]</a>"

Se devi mostrare banner multipli: o fai un ciclo con il codice indicato sopra, oppure ripeti più volte lo stesso codice nei punti della pagina in cui occorrono.

[yoyo87]

quindi o lo rifaccio da capo seguendo il tuo aiuto oppure non c'è poprio modo di modificare il codice che ho scritto...capito

p.s. per fare banner multipli in che senso devo fare un "ciclo"
p.p.s ho fatto così...funziona..circa ma mi da errore

Errore di run-time di Microsoft VBScript (0x800A0009)
Indice non incluso nell'intervallo: '[number: 2]'
/banner.asp, line 13

<%

Randomize

arrBanner = array("immagini/banner1.gif", "immagini/banner2.gif") 
arrLinks = array("www.sito1.it", "www.sito2.it")
upperbound=UBound(array)
lowerbound=1 
Random = CInt((upperbound - lowerbound + 1) * Rnd + lowerbound)

response.write "<a href='" & arrLinks(Random) & "' target='_blank'>" 
response.write "[img]" & arrBanner(Random) & "[/img]</a>" 
response.write "<a href='" & arrLinks(Random + 1) & "' target='_blank'>" 
response.write "[img]"& arrBanner(Random + 1) &  "[/img]</a>" 
%>

[Umanista]

Errore di run-time di Microsoft VBScript (0x800A0009)
Indice non incluso nell'intervallo: '[number: 2]'
/banner.asp, line 13

Controlla che l'indice dell'array non superi il valore massimo consentito.

prova con

upperbound = UBound(array) -1

[yoyo87]

Ora funziona ho dovuto canellare anche il "+1" all'interno del "random", però ora sceglie le immagini solo al banner3, più di li non mi va

[yoyo87]

heeeeeeeelp pleaseeeeeeeeeeeeeee