<% Set Conexion = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") Set RS1 = 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
<% 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
 
<% 'Si no tiene ID es el listado sql="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 Where TBNEWS.NewsLetter = 0 and TBNEWS.News_State=1 Order by TBNEWS.News_PostDate DESC" RS1.Open sql,Conexion, 3,1 '====================================================================================== 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 " & _ "Where TBNEWS.id_News = "&Request("id_News")&" Order by TBNEWS.News_PostDate DESC", Conexion, 3,1 if cint(request.QueryString("tamanopagina"))="0" then %> <% if isNull(Rs.Fields("Pic_Path")) then %>
<%=Rs.Fields("News_Title")%>
<% Else %>
<% if Rs.Fields("Pic_Path")<>"" then %>
","name","640","500","no","no")> <%=ImageResize(Application("NewsPhotoPath")& Rs.Fields("Pic_Path"), 180, 180) %>' style="border:#3f486e solid 1PX" align="left">
<% end if%> <%=Rs.Fields("News_Title")%>
<% End if %> <%=Rs.Fields("News_Heading")%>

<%=Replace(Rs.Fields("News_Desc"),chr(13),"
")%>
" class="txt_noticias" target="_blank"><%=Rs.Fields("News_URL")%>
<% end if tamanopagina=1 if tamanopagina = "" then tamanopagina=10 end if paginaabsoluta=request.querystring("paginaabsoluta") if paginaabsoluta="" then paginaabsoluta=1 end if RS1.pagesize= cint(tamanopagina) RS1.absolutepage=cint(paginaabsoluta) contador=1 %> <% if cint(request.QueryString("tamanopagina"))<>"0" then%> <% if isNull(Rs1.Fields("Pic_Path")) then %>
<%=Rs1.Fields("News_Title")%>
<% Else %>
<% if Rs1.Fields("Pic_Path")<>"" then %>
","name","640","500","yes","yes")> <%=ImageResize(Application("NewsPhotoPath")& Rs1.Fields("Pic_Path"), 180, 180) %>' style="border:#3f486e solid 1PX" align="left">
<%end if%> <%=Rs1.Fields("News_Title")%>
<% End if %> <%=Rs1.Fields("News_Heading")%>

<%=Replace(Rs1.Fields("News_Desc"),chr(13),"
")%>
" class="txt_noticias" target="_blank"><%=Rs1.Fields("News_URL")%>
<%end if%> <% j=0 if cint(paginaabsoluta) <> 1 then atras=cint(paginaabsoluta)-1 %> <% j=j+1 end if for i = 1 to RS1.pagecount j=j+1 if j>20 then %> <% j=1 end if if cint(i) = cint(paginaabsoluta) then %> <% else %> <% end if next if cint(paginaabsoluta) <> RS1.pagecount then atras=cint(paginaabsoluta)+1 %> <% end if %>
&paginaabsoluta=<%=atras %>&id_News=<%=Rs1.Fields("id_News")%> class='txt_anterior'>anterior noticia
<%'=i%>&paginaabsoluta=<%=atras%>&id_News=<%=Rs1.Fields("id_News")%> class="txt_siguiente">siguiente noticia
<% Rs.Close RS1.Close Conexion.Close Set Rs = Nothing Set Conexion = Nothing %>
© 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