Ourense At. Academia Postal: 8ª SAN SILVESTRE DE CASTRELO DE MIÑO

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

domingo 31 de diciembre de 2006

8ª SAN SILVESTRE DE CASTRELO DE MIÑO

David Rodríguez e Iria Fernández, ambos atletas del Ourense Academia Postal, fueron los vencedores de la tradicional carrera San Silvestre de Castrelo de Miño, en la que participaron más de 300 deportistas, una participación que superó ampliamente la de la pasada campaña.

La carrera de menores era también dominada por atletas académicos, siendo el vencedor masculino Alejandro Pérez, seguido de Pedro Timiraos. La primera mujer en pasar la línea de meta en esta carrera fue Laura Pimentel, también del Ourense Academia postal, con Aitana Leguiçano (Club Ben-Cho-Shey) en segunda posición.

[Resultados Menores] [Resultados Absolutos]

[Enlace a esta noticia] 12/31/2006 03: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 %>