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]

martes 3 de abril de 2007

CAMBIO EN EL FORO: Nace GaliciaAtletica.com

Hoy inicia su andadura un nuevo foro sobre el atletismo gallego: www.GaliciaAtletica.com.
El nuevo foro surge por iniciativa de administradores y usuarios de otros foros para congregar a todos los aficionados a nuestro deporte (atletas, entrenadores, directivos, familiares,...).
La consecuencia mas inmediata es que, a partir de hoy, se cierra el actual foro del club (seguirá permitiéndose leer lo ya escrito) para trasladarse a un subforo dentro de Galicia Atlética.
Esta iniciativa ha sido secundada, a parte de por nuestro club Ourense Academia Postal, por el Real Club Celta de Vigo - Atletismo Femenino Celta que también cierra su foro y se incorpora al nuevo proyecto de Galicia Atlética.

Por supuesto nuestra web www.ourenseatletismo.com (al igual que la del Celta -www.celtaatletismo.es-) seguirán informando puntualmente de la actualidad de los respectivos clubes.

El nuevo foro dará cabida a todos que quieran participar y estará completamente desvinculado, en sus foros genéricos, de cualquier club o entidad deportiva.

Os esperamos a tod@s !!!!!

Galicia Atletica

Galicia Atletica

Etiquetas: foro, galiciaatletica

[Enlace a esta noticia] 4/03/2007 01:05: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 %>