Limitar O Texto Exibido Com Os Famosos "3 Pontinhos"

[visual_online]

sistema de noticias e gostaria de criar chamadas pra cada noticia. esta chamada iria na pagina inicial e seria a propria noticia, mas que ela fosse exibida do tamanho que eu quiser, de preferencia pequena, com o titulo acima e uns 40 caracteres abaixo seguido por reticencias... como faço pra limitar a quantidade de texto exibida?

desde já, agradeço a ajuda de todos.

[editando]por favor utilize caixa baixa[/editando]

Editado Setembro 30, 2006 por andreia_sp

[.Andreia.]

um exemplo:

<%
palavra = "1234567890"
tamanho = 5

if len(palavra) > tamanho then
    palavra = left(palavra, tamanho)
    palavra = palavra & "..."
end if

response.write palavra
%>

[visual_online]

olha, so pra ser mais claro, as noticias estao sendo puxadas de um bd access.

abaixo, segue o codigo, lembrando que na variavel "post", é que eu quero que o conteudo seja resumido.

  <%
Dim ConnDB
Set ConnDB =  Server.CreateObject("ADODB.Connection")
ConnDB.Open "DBQ=" & Server.MapPath("informativo/bloggus/dados/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set rs = Server.CreateObject("ADODB.Recordset")

SQL2 = "Select titblog From login"
Set RS = ConnDB.Execute(SQL2)
%> 
           <%
    busca = request("txtBusca") 
    SQL = "Select * From posts Where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC"
    Set RS = ConnDB.Execute(SQL)
    do until RS.EOF
response.write "<font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#006699'><b>"
    response.write (RS("titpost"))&"<br>"  
response.write "</font></b>"
    response.write (RS("post"))&"<br>"  
    RS.MoveNext 
    loop

    If RS.BOF Then Response.Write "<font color=red size=2><b>Não foi encontrado nenhum resultado!</b></font>"
    %>

[.Andreia.]

eu não testei mas deve funcionar:

<%
function LimitaTexto(palavra)
tamanho = 5
if len(palavra) > tamanho then
    palavra = left(palavra, tamanho)
    palavra = palavra & "..."
end if
LimitaTexto = palavra
end function

Dim ConnDB
Set ConnDB =  Server.CreateObject("ADODB.Connection")
ConnDB.Open "DBQ=" & Server.MapPath("informativo/bloggus/dados/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
Set rs = Server.CreateObject("ADODB.Recordset")

SQL2 = "Select titblog From login"
Set RS = ConnDB.Execute(SQL2)
%> 
           <%
    busca = request("txtBusca") 
    SQL = "Select * From posts Where post like'%" & busca & "%' or titpost like'%" & busca & "%' order by datapost DESC"
    Set RS = ConnDB.Execute(SQL)
    do until RS.EOF
        
        post = rs("post")

        response.write "<font face='Verdana, Arial, Helvetica, sans-serif' size='3' color='#006699'><b>"
    response.write (RS("titpost"))&"<br>"  
        response.write "</font></b>"
    response.write LimitaTexto(post) &"<br>"  
    RS.MoveNext 
    loop

    If RS.BOF Then Response.Write "<font color=red size=2><b>Não foi encontrado nenhum resultado!</b></font>"
    %>

[visual_online]

Olha, realmente você é fera.. deu certo hein... agora vou estudar este codigo que você enviou e agora so me resta agradecer demais , muito mesmo por sua ajuda e disponibilidade.

Fico muito grato. Um abraço e Sucesso!