| <% Dim Num Dim Atual Num = second(Now()) select case(Num) Case 0,6,12,18,24,30,36,42,48,54 : Atual ="../padrao_01.swf" Case 1,7,13,19,25,31,37,43,49,55 : Atual ="../padrao_02.swf" Case 2,8,14,20,26,32,38,44,50,56 : Atual ="../padrao_03.swf" Case 3,9,15,21,27,33,39,45,51,57 : Atual ="../padrao_04.swf" Case 4,10,16,22,28,34,40,46,52,58: Atual ="../padrao_05.swf" Case 5,11,17,23,29,35,41,47,53,59: Atual ="../padrao_06.swf" end select %> | ||||
|---|---|---|---|---|
|
||||
Confederação Brasileira de Remo Av. Borges de Medeiros, 1424 - Lagoa Cep: 22470-000 Rio de Janeiro - RJ Tel: + 55 21 2294-3342 Fax: + 55 21 2294-0225 Ramal 27 |
||||