<%
Response.Expires = -1
Dim BannerTopFrm(5,12)
Dim laseccion
Dim SubZona
Dim Zona
If Len(Request("SEC")) > 0 Then
laseccion = CLng(Request("SEC"))
Else
laseccion = 0
End If
If Len(Request("ZONA")) > 0 Then
Zona = CLng(Request("ZONA"))
Else
Zona = 1
End If
If Zona > 7 Then
SubZona = Zona
Zona = 1
Else
SubZona = 1
End If
BannerTopFrm(0,0) = 1
BannerTopFrm(0,1) = 1
BannerTopFrm(0,2) = 1
BannerTopFrm(0,3) = 1
BannerTopFrm(0,4) = 1
BannerTopFrm(0,5) = 1
BannerTopFrm(0,6) = 1
BannerTopFrm(0,7) = 1
BannerTopFrm(1,0) = 1
BannerTopFrm(1,1) = 1
BannerTopFrm(1,2) = 1
BannerTopFrm(1,3) = 1
BannerTopFrm(1,4) = 1
BannerTopFrm(1,5) = 1
BannerTopFrm(1,6) = 1
BannerTopFrm(1,7) = 1
BannerTopFrm(2,0) = 1
BannerTopFrm(2,1) = 1
BannerTopFrm(2,2) = 1
BannerTopFrm(2,3) = 1
BannerTopFrm(2,4) = 1
BannerTopFrm(2,5) = 1
BannerTopFrm(2,6) = 1
BannerTopFrm(2,7) = 1
BannerTopFrm(3,0) = 1
BannerTopFrm(3,1) = 1
BannerTopFrm(3,2) = 1
BannerTopFrm(3,3) = 1
BannerTopFrm(3,4) = 1
BannerTopFrm(3,5) = 1
BannerTopFrm(3,6) = 1
BannerTopFrm(3,7) = 1
BannerTopFrm(4,0) = 1
BannerTopFrm(4,1) = 1
BannerTopFrm(4,2) = 1
BannerTopFrm(4,3) = 1
BannerTopFrm(4,4) = 1
BannerTopFrm(4,5) = 1
BannerTopFrm(4,6) = 1
BannerTopFrm(4,7) = 1
BannerTopFrm(5,0) = 6
BannerTopFrm(5,1) = 6
BannerTopFrm(5,2) = 6
BannerTopFrm(5,3) = 6
BannerTopFrm(5,4) = 6
BannerTopFrm(5,5) = 6
BannerTopFrm(5,6) = 6
BannerTopFrm(5,7) = 6
%>
Revista Ambientum
Contacto
