<%
larghezzaIMG=240 : 'forza larghezza uguale per tutte le immagini (se 0 usa la larghezza originale delle immagini)
imgWidth = ""
if larghezzaIMG>0 then imgWidth = " width=""" & larghezzaIMG & "px"" "
elencoF = ""
elencoR = ""
'---------------------------------------------------
'------------ BANNER FISSI -------------------------
'---------------------------------------------------
'elencoF = elencoF & "@ http://www.comune.foiano.ar.it/ # comune.jpg"
'---------------------------------------------------
'------------ BANNER A ROTAZIONE -------------------
'---------------------------------------------------
elencoR = elencoR & "@ http://www.crifoiano.it # happy_days.jpg"
elencoR = elencoR & "@ http://www.crifoiano.it/helen_doron.html # helen_doron.jpg"
elencoR = elencoR & "@ http://www.crifoiano.it # il_tempio.jpg"
elencoR = elencoR & "@ http://www.crifoiano.it # al_22.jpg"
elencoR = elencoR & "@ http://www.expo2000srl.it # expo2000.jpg"
elencoR = elencoR & "@ http://www.crifoiano.it # caposciutti.jpg"
elencoR = elencoR & "@ http://www.crifoiano.it # la_piramide.jpg"
elencoR = elencoR & "@ http://www.crifoiano.it # corsaro.jpg"
elencoR = elencoR & "@ http://www.fabioegianni.com # fabio_e_gianni.jpg"
'-----------------------------------
'riordino casuale banner a rotazione
'-----------------------------------
elencoV = split(elencoR, "@")
elencoN = ubound(elencoV)
Randomize Timer
y=0
Do
x = (Fix(Rnd * elencoN) + 1)
if elencoV(x)><"" then
elencoF = elencoF & "@" & elencoV(x)
elencoV(x)=""
y=y+1
end if
Loop While y0 then imgWidth = " width=""" & larghezzaIMG & "px"" "
For x = 1 To elencoN
u=split(elencoV(x),"#")
%>
%>)
/>
<%
Next
%>
