sub scrivi(n)
Select case n 
Case "bg1" 
	bg1.bgcolor="#CCC6B0"
Case "bg2"
	bg2.bgcolor="#CCC6B0"
Case "bg3"
	bg3.bgcolor="#CCC6B0"
Case "bg4"
	bg4.bgcolor="#CCC6B0"
end Select	
end sub

sub cancella(n)
Select case n 
Case "bg1" 
	bg1.bgcolor="ffffff"
Case "bg2"
	bg2.bgcolor="ffffff"
Case "bg3"
	bg3.bgcolor="ffffff"
Case "bg4"
	bg4.bgcolor="ffffff"
End Select	
end sub

sub mostra(x)
Select case x 
Case "Prod0" 
	ant0.height=342
	ant0.width=252	
	bot0.bgcolor="#CCC6B0"
Case "Prod1"
	ant1.height=192
	ant1.width=252
	bot1.bgcolor="#CCC6B0"
End Select	
end sub
		
sub togli()
	ant0.height=1
	ant0.width=1
	ant1.height=1
	ant1.width=1
	bot0.bgcolor=""
	bot1.bgcolor=""
end sub

sub inB(x)
select case x
case "iBg1"
	ibg1.className = "bordo"
case "iBg2"
	ibg2.className = "bordo"
case "iBg3"
	ibg3.className = "bordo"
case "iBg4"
	ibg4.className = "bordo"
case "iBg5"
	ibg5.className = "bordo"
case "iBg6"
	ibg6.className = "bordo"
case "iBg7"
	ibg7.className = "bordo"
case "iBg8"
	ibg8.className = "bordo"
case "iBg9"
	ibg9.className = "bordo"
case "iBg10"
	ibg10.className = "bordo"
case "iBg11"
	ibg11.className = "bordo"
case "iBg12"
	ibg12.className = "bordo"
end select
end sub

sub outB(x)
select case x
case "iBg1"
	ibg1.className = ""
case "iBg2"
	ibg2.className = ""
case "iBg3"
	ibg3.className = ""
case "iBg4"
	ibg4.className = ""
case "iBg5"
	ibg5.className = ""
case "iBg6"
	ibg6.className = ""
case "iBg7"
	ibg7.className = ""
case "iBg8"
	ibg8.className = ""
case "iBg9"
	ibg9.className = ""
case "iBg10"
	ibg10.className = ""
case "iBg11"
	ibg11.className = ""
case "iBg12"
	ibg12.className = ""
end select
end sub