Federação Goiana de Tênis

<%@ Language=VBScript %> <% Dim paris paris = CInt(hour(now())+4) if paris > 24 then paris = paris - 24 end if if paris < 10 then paris = "0" & CStr (paris) else paris = CStr (paris) end if dim ny ny = CInt(hour(now())-2) if ny < 0 then ny = ny + 24 end if if ny < 10 then ny = "0" & CStr (ny) else ny = CStr (ny) end if if minute(now()) < 10 then paris = paris & ":0" & CStr (minute(now())) ny = ny & ":0" & CStr (minute(now())) else paris = paris & ":" & CStr (minute(now())) ny = ny & ":" & CStr (minute(now())) end if Dim maxPropagandas 'Número de imagens que existem para serem exibidas' maxPropagandas = 4 Dim NumeroPropagandas 'Número de imagens a ser exibida na direita da tela' NumeroPropagandas = 4 Dim NumAleatorio(4) Dim maxImageCentro 'Numero de Imagens no Centro que existem para serem exibidas' maxImageCentro = 4 Dim NumeroCentro Dim NomeCentro dim x dim y dim p If Request.Cookies("NumeroDoCentro") = "" then Response.Cookies("NumeroDoCentro") = 1 end if NumeroCentro = Request.Cookies("NumeroDoCentro") NumeroCentro = NumeroCentro + 1 If NumeroCentro > maxImageCentro Then NumeroCentro = 1 End If NomeCentro = NumeroCentro & ".jpg" Response.Cookies("NumeroDoCentro") = NumeroCentro NumeroPropagandas = NumeroPropagandas - 1 Randomize () NumAleatorio(0) = Int ((rnd() * maxPropagandas)+1) For x = 1 to NumeroPropagandas NumAleatorio(x) = Int ((rnd() * maxPropagandas)+1) for y = 0 to (x-1) if NumAleatorio(x) = NumAleatorio(y) then x=x-1 exit for end if Next Next %> Federação Goiana de Tênis - FGT <% Session.LCID = 1046 %>