pixel
pixel
<% dim iLen(5) iLen(0)=750 iLen(1)=250 iLen(2)=160 iLen(3)=160 iLen(4)=120 Dim sLink(4) Dim sLinkEnd(4) Function fun_firstX(str,iLen) dim ffTmp ffTmp=str if Len(ffTmp)>iLen then ffTmp=Left(ffTmp,(iLen-3)) iTmp=1 for i=0 to 1000 if instr(iTmp, ffTmp, " ")=0 then i=1000 else iTmp=instr(iTmp, ffTmp, " ") + 1 end if next ffTmp=Left(ffTmp, (iTmp-1)) ffTmp=ffTmp & "..." end if fun_firstX=ffTmp End Function %>
Frapena  English Version     
pixel
 
Noticias Destacadas
<% 'Resumen de Noticias Set Conexion = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conexion.Open Application("Conexion") Rs.Open "SELECT Top 2 TBPICTURES.Pic_Path, TBNEWS.News_Title, TBNEWS.News_Desc, TBNEWS.id_News " &_ "FROM TBNEWS LEFT JOIN TBPICTURES ON TBNEWS.id_pictures = TBPICTURES.id_pictures Where TBNEWS.NewsLetter = 0 and TBNEWS.News_State=1 Order by TBNEWS.News_PostDate DESC", Conexion, 0,1 if Not Rs.EOF Then i=1 While Not Rs.EOF %> <% if Len(Rs.Fields("Pic_Path")) > 0 then Else %> <% End if %>
 
<%'=Left(Rs.Fields("News_Desc"),250)%>
 
<% Rs.MoveNext i=i+1 Wend End if Rs.Close Conexion.Close Set Rs = Nothing Set Conexion = Nothing %>
MAPA DEL SITIO

Diseño páginas web

Diseño en Madrid

Portada

Quienes somos

Centro de negocios Alcorcón

     - Presentación

     - Dónde estamos

     - Alquiler de despachos profesionales y oficinas

     - Alquiler de salas de reuniones y aulas de formación Alcorcón

     - Domiciliación de empresas

     - Galería de imágenes

Promociones inmobiliarias Alcorcón

     - Presentación

     - Promociones finalizadas

     - Nuestros proyectos de futuro

     - Nuestros proyectos en curso

     - Alquiler de pisos, locales y naves industriales

Noticias

Boletín

Contacto

© 2008 Frapema, s.a. Normas de privacidad | Aviso legal
Mapa del sitio Diseño paginas web.
pixel
pixel
 
avda. América nº 32. 28922 Alcorcón (Madrid). España. UE.   +34 91 103 25 52   +34 91 103 25 54   buzon@frapema.com