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

sábado 13 de octubre de 2007

CPTO. ESPAÑA DE CLUBS JÚNIOR: La chicas 4ª y los chicos 7º

El equipo femenino del Ourense Academia Postal ha logrado una magnífica cuarta posición en el Campeonato de España de Clubs Júnior disputado en Madrid. En categoría masculina los académicos lograban la séptima posición. El otro equipo gallego, el Atletismo Femenino Celta, lograba la sexta posición en mujeres.

A título individual se lograban tres victorias: Alfonso Palomanes en triple, David Cabezas en 1500 e Iria Abilleira en altura.

Resultados Mujeres:
1º Playas de Castellón 127p., 2º Pto. de Alicante 109p. 3º A.A. Cataluña 98p. 4º Ourense Academia Postal 84p. ... 6º Celta 74p.

Resultados Hombres:
1º Playas de Castellón 132p., 2º Pto. de Alicante 101p. 3º Nerja 90p. ... 7º Ourense Academia Postal 67p.

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