Ourense At. Academia Postal

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

viernes 28 de marzo de 2008

Escuela de Atletismo en Maceda

Un nuevo núcleo de atletismo ha nacido en Ourense, más concretamente en Maceda, por medio del acuerdo entre Concello de Maceda y Academia Postal.

Ayer tuvo lugar la presentación de la escuela de atletismo Maceda-Academia Postal. El nuevo ente deportivo nace del acuerdo de colaboración entre el Concello de Maceda y el Ourense Atletismo Academia Postal. Desde el pasado mes de noviembre, la escuela está en marcha contando con niños desde los ocho a los 14 años realizando los entrenamientos en el polideportivo Municipal de Maceda, todo ello bajo las directrices técnicas de Laura García.

El Ourense Academia Postal mantiene colaboración con la Escuela Ben-Cho-Shey de Pereiro de Aguiar, así como las existentes en Ourense: Os Remedios, Universidad Laboral, Franciscanas, Divino Maestro, Cisneros o Concepción Arenal.

Etiquetas: deportiva, escuela, maceda

[Enlace a esta noticia] 3/28/2008 09:22:00 AM 0 comentarios

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