<% Set Conexion = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Conexion.Open Application("Conexion") 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 %> Frapema
pixel
pixel
Frapena  English Version     
pixel
 
Noticias Destacadas
 
<% 'Si no tiene ID es el listado if Len(Request("id_News")) = 0 then 'Resumen de Noticias Anteriores Rs.Open "SELECT 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, 3,1 %> <% Ci=1 do while not rs.eof if Len(Rs.Fields("Pic_Path")) > 0 then %> <% Else %> <% End if %> <% Rs.MoveNext Ci=Ci+1 loop %>
<%=ImageResize(Application("NewsPhotoPath")& Rs.Fields("Pic_Path"), 50, 50) %>' border="1">
 

<%=Rs.Fields("News_Title")%>
<%=fun_FirstX(Replace(Rs.Fields("News_Desc"),chr(13),"
"), iLen(1))%>

<% Rs.Close Conexion.Close Set Rs = Nothing Set Conexion = Nothing '====================================================================================== Else Rs.Open "SELECT TBPICTURES.Pic_Path, TBNEWS.News_Title, TBNEWS.News_Heading, TBNEWS.News_Desc, TBNEWS.id_News, TBNEWS.News_URL " &_ "FROM TBNEWS LEFT JOIN TBPICTURES ON TBNEWS.id_pictures = TBPICTURES.id_pictures and TBNEWS.News_State=1" & _ "Where TBNEWS.id_News = "&Request("id_News")&" Order by TBNEWS.News_PostDate DESC", Conexion, 0,1 %> <% if isNull(Rs.Fields("Pic_Path")) then %>
<%=Rs.Fields("News_Title")%>
<% Else %>
" align="right"><%=Rs.Fields("News_Title")%>
<% End if %> <%=Rs.Fields("News_Heading")%>

<%=Replace(Rs.Fields("News_Desc"),chr(13),"
")%>
" class="txt_noticias"><%=Rs.Fields("News_URL")%>
 Volver
<% Rs.Close Conexion.Close Set Rs = Nothing Set Conexion = Nothing End if %>
© 2008 Frapema, s.a. Normas de privacidad | Aviso legal
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