Formulario inscripciones] [Comunicación datos atletas] [FORO Galicia Atletica] [Web antigua]
[Nuevo Album de Fotos del Club] [+ fotos en FotoAtletismo.com]

martes 3 de julio de 2007

Próximas competiciones

Esta semana vuelve a estar cargada de competiciones. Arrancarán esta misma tarde en Vigo, con la celebración del XXVIII Gran Premio Internacional "Ciudad de Vigo", en el que se espera una gran participación de calidad, y en donde los atletas del Ourense Academia Postal también estarán presentes [Horario Vigo]

La jornada de mañana presenta dos opciones de control, una de ellas la 8ª jornada de la Copa Diputación, que se disputará en las pistas de Monterrey (Ourense) [Horario Ourense], y la segunda tendrá lugar en las pistas de A Malata, en Ferrol [Horario Ferrol]

El viernes, en Santiago, tendrá lugar un nuevo control en la pistas universitarias [Horario Santiago]

Por último, el fin de semana se celebrará en Castellón el Campeonato de España Júnior, al que se desplazará un buen grupo de atletas del Ourense, encabezados esta vez por José Alfonso Palomanes en la prueba de triple salto y Beatriz Viteri en la pértiga, donde el primero espera ratificar su selección para el Campeonato de Europa Júnior, a disputar los días 19 a 22 de julio en Hengelo [Inscripción Club] [Inscripción Campeonato]


Etiquetas: , , ,


Comentarios: Publicar un comentario en la entrada





<< Página principal

 

Suscribirse a Entradas [Atom]

 

Esta página ha sido creada con Blogger!!?

 




  OurenseAtletismo.com


Localización de los visitantes a nuestra web
<% sub ProximasCompeticiones on error resume next set Con = Server.CreateObject("ADODB.Connection") Con.Open "DSN=ourenseatletismo.com.calendario" sSQL="SELECT * FROM Calendario " & _ " WHERE fecha>=date() and fecha <= (date() + 31) and (ambito='GAL' or cto_nacional )" & _ " ORDER BY fecha " ' Set RS=Con.Execute (sSQL) if RS.EOF THEN ' informo de que no hay datos response.write ("No se encontraron pruebas en el calendario") else ' hago un bucle para cada uno de los meses fmes=0 while not rs.eof if fmes <> rs("fecha") then fmes = rs("fecha") response.write ("
" & rs("fecha") & "
") end if response.write ("  - " ) if len("" & rs("URL_PaginaWeb")) > 0 then response.write ("") end if response.write (rs("competicion")) if len("" & rs("URL_PaginaWeb")) > 0 then response.write ("") end if response.write( " (" & rs("localidad") & ")
") rs.movenext wend end if end sub function Qfoto() Dim intLowerBound ' Lower bound of the random number range Dim intUpperBound ' Upper bound of the random number range Dim intRangeSize ' Size of the range Dim sngRandomValue ' A random value from 0 to intRangeSize Dim intRandomInteger ' Our final result - random integer to return intLowerBound = 1 intUpperBound = 276 Randomize() ' Find range size intRangeSize = intUpperBound - intLowerBound + 1 ' Get a random number from 0 to the size of the range sngRandomValue = intRangeSize * Rnd() ' Center the range of possible random numbers over the desired result set sngRandomValue = sngRandomValue + intLowerBound ' Convert our value to an integer intRandomInteger = Int(sngRandomValue) Qfoto = intRandomInteger end function %>