Ourense At. Academia Postal: Recepción en la Diputación de Ourense y Xunta de Galicia

Objetivo División de Honor: aun sin finalizar la temporada, ya estamos planificando el equipo para devolver a la máxima categoría a nuestro club. Contamos con tod@s. Haz club!! Apórtanos tus propuestas.

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

viernes 15 de junio de 2007

Recepción en la Diputación de Ourense y Xunta de Galicia

En la mañana de hoy el Ourense Academia Postal ha continuado recibiendo muestras de apoyo y felicitaciones por parte de las instituciones provinciales y autonómica. Si el pasado miércoles era el Alcalde de Ourense quien nos recibía hoy lo ha hecho el Presidente de la Excma. Diputación Provincial de Ourense, Don Jose Luis Baltar, en los locales de dicha instutución.

Y en esta misma jornada era la Xunta de Galicia, representada por la Directora xeral para o Deporte, Doña Marta Souto, y la Secretaria xeral para a Igualdade, Doña Carme Adán, quien recibía a las componentes del Ourense Academia Postal acompañadas de Francisco Nóvoa, presidente del Club. [Leer noticia en DeporteGalego.es]

[Enlace a esta noticia] 6/15/2007 12:00: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 %>