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>"
%>