<% Option Explicit %> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% Response.CacheControl = "Public" %> <% If Request.Querystring("Reset") = "True" Then Call Reset() End If %> Proyecto "Sostenibilidad y empleo en Espacios Naturales". Nuestro chat
 
Inicio  Inicio
|
Mapa web  Mapa web
|
E-mail  Email
 
1 2 3
Fundación BiodiversidadFondo Social Europeo
ImágenesImágenes
Izda
 
 
 

 

 
 
Casas del Parque
Nuestro chat
   
ColorBlancoMagenta Tamaño letraAumentarDisminuirRestablecer
   

 

 

  Chat del Proyecto  
Escriba su nombre o nick para entrar al Chat:


Nombre:

Usuarios Online:
<% 'Get the array If IsArray(Application(ApplicationUsers)) Then saryActiveUsers = Application(ApplicationUsers) Else ReDim saryActiveUsers(6, 0) End If Call RemoveUnActive() If UBound(saryActiveUsers, 2) = 0 Then Call Reset() Response.Write(vbCrLf & "No hay usuarios activos") Else Dim intArrayPass For intArrayPass = 1 To UBound(saryActiveUsers, 2) Response.Write(vbCrLf & saryActiveUsers(1, intArrayPass) & "
") Next End If %>
 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ColorBlancoMagenta Tamaño letraAumentarDisminuirRestablecer
Arriba

 

 

Dcha
 
     
 

 
 
Todos los derechos reservados. Aviso Legal | Política de privacidad de datos