dim  gfx(1000)
dim lnk(1000)
dim alt(1000)
dim Indice

BaseURL = "http://digifiera.com/"

gfx(0)= BaseURL & "banner/simir.gif"
lnk(0)= BaseURL & "clic.asp?IDclic=955&tipo=ban&url=http://digifiera.com/cgi-bin/stand/simir/simir_1.html"
alt(0)="Simir"

gfx(1)= BaseURL & "banner/cataloghi.gif"
lnk(1)= BaseURL & "clic.asp?tipo=ban&url=http://digifiera.com/cataloghi/catalogo.html"
alt(1)="Realizza il tuo Catalogo on-line"

gfx(2)= BaseURL & "banner/danaher.gif"
lnk(2)= BaseURL & "clic.asp?IDclic=906&tipo=ban&url=http://www.danahermotion.it"
alt(2)="Danaher Motion"

gfx(3)= BaseURL & "banner/ABB_banner.gif"
lnk(3)= BaseURL & "clic.asp?IDclic=884&tipo=ban&url=http://digifiera.com/cgi-bin/stand/ABB/ABB_1.html"
alt(3)="ABB Industria presenta COMP-AC"

gfx(4)= BaseURL & "banner/elestream.gif"
lnk(4)= BaseURL & "clic.asp?IDclic=917&tipo=ban&http://www.elestream.com"
alt(4)="ELESTREAM"

gfx(5)= BaseURL & "banner/movitecnica.gif"
lnk(5)= BaseURL & "clic.asp?IDclic=941&tipo=ban&url=http://digifiera.com/cgi-bin/stand/movitecnica/movitecnica_a_1.html"
alt(5)="MOVITECNICA - Rappresentanze Industriali - L'Evoluzione Tecnologica Italiana"

gfx(6)= BaseURL & "banner/neol.gif"
lnk(6)= BaseURL & "clic.asp?IDclic=1036&tipo=ban&url=http://digifiera.com/cgi-bin/stand/0115/0115_5.shtml"
alt(6)="Controllo delle multiprese da Ethernet"

gfx(7)= BaseURL & "banner/neol.gif"
lnk(7)= BaseURL & "clic.asp?IDclic=1036&tipo=ban&url=http://digifiera.com/cgi-bin/stand/0115/0115_5.shtml"
alt(7)="Controllo delle multiprese da Ethernet"

gfx(8)= BaseURL & "banner/neol.gif"
lnk(8)= BaseURL & "clic.asp?IDclic=1036&tipo=ban&url=http://digifiera.com/cgi-bin/stand/0115/0115_5.shtml"
alt(8)="Controllo delle multiprese da Ethernet"


'****** Impostare il numero di banner
Numero_banner = 9  ' = numero banner

for i = 0 to Int(Second(Time()))
	Indice = Int(Numero_banner*rnd())
next

 
document.write "<a href=""" &  lnk(Indice) & """><img src=""" &  gfx(Indice) & """ alt=""" & alt(Indice) & """ style=""border: 1px solid rgb(0,0,0)""></a>"