Ourense At. Academia Postal: Campeonato Gallego de Pruebas Combinadas

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

domingo 4 de febrero de 2007

Campeonato Gallego de Pruebas Combinadas

Alex Sola

Tres atletas del Ourense Academia Postal han tomada parte durante este fin de semana en el Campeonato Autonómico de Pruebas Combindas.
La actuación mas destacada vino de la mano de Alexandre Sola quien se proclama subcampeón del heptathlon junior con una puntación de 3.637 puntos. La prueba mas destacada del académico fue la pértiga, su especialidad, donde con 4.40 igualó su mejor marca personal.
En el Pentathlon absoluto femenino Irene Gesto lograba la quinta posición acumulando una puntación de 2.139 puntos. En el exathlon juvenil Iago Rodríguez finalizaba cuarto con 2.634 puntos.

[Resultados completos]

Etiquetas: campeonato, combinadas, coruña, cubierta, gallego, pista, resultados

[Enlace a esta noticia] 2/04/2007 10:04:00 AM

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