Ho trovato questo e ho fatto la modifica che aggiungo 1 al valore random, l'unica cosas che dovrei dire che il valore deve essere compreso tra x e n, altrimenti va mi da un numero che nn è associato
<%
Dim saryBanners(3,3)
Dim intTotalBanners
Dim intRandomNumber
Dim intRandomNumber1
intTotalBanners = 3
saryBanners(1,1) = "PLUTO"
saryBanners(1,2) = "1.jpg"
saryBanners(1,3) = "xxx.pluto.xx"
saryBanners(2,1) = "PIPPO"
saryBanners(2,2) = "2.jpg"
saryBanners(2,3) = "xxx.pippo.xx"
saryBanners(3,1) = "Paperino"
saryBanners(3,2) = "3.jpg"
saryBanners(3,3) = "xxx.paperino.xx"
randomize
intRandomNumber = Int((intTotalBanners) * Rnd + 1)
intRandomNumber1 = Int((intTotalBanners) * Rnd + 2)
Response.Write("<a href=""" & saryBanners(intRandomNumber,3) & """ title=""" & saryBanners(intRandomNumber,1) & """ target=""_blank""><img src=""" & saryBanners(intRandomNumber,2) & """ border=""0""></a>")
Response.Write("<a href=""" & saryBanners(intRandomNumber1,3) & """ title=""" & saryBanners(intRandomNumber1,1) & """ target=""_blank""><img src=""" & saryBanners(intRandomNumber1,2) & """ border=""0""></a>")
%>
Come posso risolvere?
