<% function fResumir(texto) 'resumo de texto dim resumo dim tam dim pos dim tamtxt tam = 75 tamtxt = len(texto) if tam <= tamtxt then for pos=tam to tamtxt resumo = mid(trim(texto),1,pos) if mid(resumo,pos,1) = space(1) then exit for end if next if pos < tamtxt then resumo = resumo & "..." end if else resumo = texto end if fResumir = resumo end function %> Honduras - Engenharia e Construções <% set rs=server.createobject ("adodb.recordset") rs.open "SELECT * FROM noticias ORDER BY id DESC", conexao TotalRecs = rs.recordcount x = 0 For x = 1 to 3 If rs.eof then Exit For Else id = rs("ID") 'ID' data = rs("item1") 'data' titulo = rs("item2") 'titulo' texto = rs("item3") 'texto' foto = rs("foto") 'foto' description = texto 'texto com número de caracteres bloqueados' %> <% rs.MoveNext End If Next %>
<%=data%>
<%=titulo%>
<%=fResumir(description)%>

Saiba mais