ENCURTAR UM PARAGRAFO COM ...
programei para aparecer o titulo da materia e logo abaixo o texto da materia...
exemplo:
BILL GATES MORREU
Morre hoje o dono da multinacional e
um dos homens mais ricos do mundo e proprietario da Microsoft
MICHAEL JACKSON NÃO MORREU
O cantor norte-americano Michael Jackson
estva escondindo esse tempo todo em sua enorme casa
ai eu queria limitar em uma quantidade de caracteres o texto. Quando chegasse aquele limite ele colocasse (...) reticências
ai ficaria assim:
BILL GATES MORREU
Morre hoje o dono da multinacional e
um dos homens mais ricos do mundo...
MICHAEL JACKSON NÃO MORREU
O cantor norte-americano Michael Jackson
estva escondindo esse tempo todo...
olha meus Codigos ai:
Citação:<td width=[Ô]288[Ô] valign=[Ô]top[Ô]>
<%
Set nt1 = Server.CreateObject([Ô]ADODB.Recordset[Ô])
nt1.Open [Ô]SELECT * from noticias order by id desc[Ô], DB
Contar = 0
Do while not nt1.Eof
Topico = nt1([Ô]Topico[Ô])
Resumo = nt1([Ô]Resumo[Ô])
Classe1 = nt1([Ô]Classe1[Ô])
Classe = nt1([Ô]Classe[Ô])
Data = nt1([Ô]Data[Ô])
Data = RIGHT([Ô]0[Ô] & DAY(Data), 2) & [Ô]/[Ô] & RIGHT([Ô]0[Ô] & MONTH(Data), 2) & [Ô]/[Ô] & RIGHT(YEAR(Data), 2)
Horas = nt1([Ô]Horas[Ô])
id = nt1([Ô]id[Ô])
IF Contar > 3 Then
exit do
end if
if Classe1 = [Ô]Matéria[Ô] Then
%>
<a target=[Ô]conteudo[Ô] href=[ô]mostra.asp?noticias=<%=nt1([Ô]id[Ô])%>&Classe=<%Response.Write Classe%>[ô]>
<font face=[Ô]Arial[Ô] color=[Ô]red[Ô] style=[Ô]font-size:10pt;[Ô]>
<strong><%Response.Write Topico%></strong></font><br>
<font face=[Ô]Arial[Ô] color=[Ô]black[Ô]> <span style=[Ô]font-size:8pt;[Ô]>-
<%Response.Write Resumo%>
</span></font> <font face=[Ô]Arial[Ô] bold=true color=[Ô]silver[Ô]> <span style=[Ô]font-size:8pt;[Ô]> - <%Response.Write Data%></span></font></a> <font face=[Ô]Arial[Ô]><span style=[Ô]font-size:8pt;[Ô]><br><br>
<%
Contar = Contar + 1
end if
nt1.Movenext
Loop
%>
</tr>
Resumo = Left(nt1([Ô]Resumo[Ô]), 30)&[Ô]...[Ô]