<%@LANGUAGE="VBSCRIPT"%> <% Dim rsNoticias__vhoy rsNoticias__vhoy = "1/1/50" if (Session("hoy") <> "") then rsNoticias__vhoy = Session("hoy") %> <% set rsNoticias = Server.CreateObject("ADODB.Recordset") rsNoticias.ActiveConnection = MM_unidicom_STRING rsNoticias.Source = "SELECT * FROM seleccion WHERE revisado=-1 AND tope >= " + Replace(rsNoticias__vhoy, "'", "''") + " ORDER BY fecha DESC" rsNoticias.CursorType = 0 rsNoticias.CursorLocation = 2 rsNoticias.LockType = 3 rsNoticias.Open() rsNoticias_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 3 Dim Repeat1__index Repeat1__index = 0 rsNoticias_numRows = rsNoticias_numRows + Repeat1__numRows %> Página principal
 

 


"La universalidad de la comunicación como concepto y el diseño como herramienta"
SELECCIÓN SEMANAL

<% If Not rsNoticias.EOF Or Not rsNoticias.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT rsNoticias.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNoticias.MoveNext() Wend %>
" class="negro1normal"><%=(rsNoticias.Fields.Item("tituloc").Value)%>
<% End If ' end Not rsNoticias.EOF Or NOT rsNoticias.BOF %>

 

 

Las nuevas tecnologías permiten abrir nuevos canales de comunicación entre los seres humanos, para esto Unidicom.com, dispone de un abanico de soluciones, que van desde el análisis de sus necesidades comunicativas y de márketing, hasta la realización y puesta en marcha de cualquier elemento de diseño, que aporte valor añadido.

arsys.es

Rogamos disculpen las molestias, en estos momentos estamos migrando todos nuestros servicios al nuevo proveedor


Acceso a Hospedería de Roda

Acceso a Irurak
Acceso TransEuropa

Acceso a Markosa

   

Envíame tu correo

<% rsNoticias.Close() %>