LIGA DE CLUBS: Mujeres: Salida del bus: viernes 16.30 Pabellón Hombres: Concentración el sábado a las 14:00 enfrente a Monterrey

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

jueves 7 de diciembre de 2006

VII Carreira Expourense Megaxove

Ya está en marcha la organización de la VII Carreira Expourense Megaxove, organizada por el Club Ourense Academia Postal y con el patrocinio de Expourense. Esta prueba consta de 7 carreras por categorías, y tendrá el siguiente horario:

La entrega de trofeos se prevé para las 13:30 horas, y ya está abierto el plazo de inscripción, que se puede formalizar en Servipost, Red.1 Deportes, o directamente a través de la dirección de correo ourenseatletismo@ourenseatletismo.com hasta las 14:00 horas del sábado día 9 de diciembre. También se admitirán inscripciones hasta 30 minutos antes del comienzo de cada carrera.

[Reglamento Megaxove 2006]

Etiquetas: , , ,


[Enlace a esta noticia] 12/07/2006 08:17:00 AM
Comentarios: Publicar un comentario en la entrada





<< Página principal

 

Suscribirse a Entradas [Atom]

 

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

 

.:: ÚLTIMOS POST EN GALICIATLETICA.COM ::.
Club Ourense Atletismo Academia Postal
Rua Pardo de Cela,1 32003 - Ourense
CIF: G-32.314.379
ourenseatletismo@ourenseatletismo.com
  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 %>