Ourense At. Academia Postal: VII Carrera Expourense Megaxove

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

lunes 27 de noviembre de 2006

VII Carrera Expourense Megaxove

Un año más el Ourense Academia Postal organiza, bajo el patrocinio de Expourense, una nueva edición de la Carrera Expourense Megaxove el próximo domingo, 10 de diciembre. Será esta la séptima edición de esta prueba que consta de un total de siete carreras según las distintas categorías.

La prueba dará comienzo a las 11:15 horas con la prueba Alevín-Infantil femenino, y rematará aproximadamente a las 13:05 con una prueba para los más pequeños. Se establecen un total de 12 categorías, y las carreras discurrirán en los alrededores del recinto ferial de Expourense y el Pazo de Deportes Paco Paz.

Ver Reglamento [Reglamento Megaxove]

Etiquetas: carrera, ourense, popular, reglamento

[Enlace a esta noticia] 11/27/2006 08:30:00 PM

Comentarios: Publicar un comentario en la entrada

<< Página principal

Suscribirse a Entradas [Atom]

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 %>