<%
Set ARTICULOS = CreateObject("ADODB.Recordset")
sqltxt = "SELECT * FROM Web_Destacados order by orden"
ARTICULOS.Open sqltxt, conexion, 3, 1
i = 1
disp = "inline"
%>
<% DO WHILE NOT ARTICULOS.EOF%>
<% if ARTICULOS.Fields("tipo")="Imagen" then %>
">
<% end if %>
<%
disp = "none"
IF not ARTICULOS.EOF THEN
i = i + 1
ARTICULOS.MOVENEXT
END IF
LOOP
%>
">
">
">
">
<%
if movil = false then
ancho_txt = ARTICULOS.Fields("texto_ancho")
izq_txt = ARTICULOS.Fields("texto_pos")
else
ancho_txt = "90"
izq_txt = "0"
end if
%>
<% else %>
|
<%=ARTICULOS.Fields("titulo")%> |
<%=ARTICULOS.Fields("titulo")%>
<%
ARTICULOS.MOVEfirst
imagen = "images/slide_select.png"
i = 1
%>
<% do while NOT ARTICULOS.EOF %>
<%
IF not ARTICULOS.EOF THEN
i = i + 1
ARTICULOS.MOVENEXT
imagen = "images/slide_Noselect.png"
END IF
LOOP
%>
<%
Set NOTICIAS = CreateObject("ADODB.Recordset")
sqltxt = "SELECT * FROM Noticias order by codnoticia desc"
NOTICIAS.Open sqltxt, conexion, 3, 1
i = 1
%>
<% DO WHILE NOT NOTICIAS.EOF AND Int(i)<=3 %>
<%=NOTICIAS.Fields("titulo")%>
<%=FechaNoticias(NOTICIAS.Fields("fecha"))%>
<%=NOTICIAS.Fields("texto_lista")%>
" class="Boton-gris">Leer ms...
<%
i = i + 1
IF not NOTICIAS.EOF THEN
NOTICIAS.MOVENEXT
END IF
LOOP
NOTICIAS.CLOSE
SET NOTICIAS = NOTHING
%>
<%=FechaNoticias(NOTICIAS.Fields("fecha"))%>
<%=NOTICIAS.Fields("texto_lista")%>
Patrocinadores
Premium & Principales
Premium & Principales
Redes Sociales
Tweets por el @pesantjordi.
Himno Sant Jordi
VERD I NEGRE S EL NOSTRE COR
Autor: Alfredo Mar, cantante del grupo ibicenco Pota Lait
Patrocinadores Oficiales - Colaboradores
Galera Imagenes
<%
Set FOTOS = CreateObject("ADODB.Recordset")
sqltxt = "SELECT * FROM Galeria_formato WHERE Tipo='1' ORDER BY Fecha_final DESC"
FOTOS.Open sqltxt, conexion, 3,1
i=1
%>
<% Do While i<=15 and (not FOTOS.EOF) %>
<%
IF not FOTOS.EOF THEN
i = i + 1
FOTOS.MoveNext
END IF
LOOP
FOTOS.CLOSE
SET FOTOS = NOTHING
%>
