Utilizza questa funzione
codice:
function TagliaStringa(stringa,charConsentiti,delimitatore)
chars = charConsentiti
'Elimino gli spazi iniziali e finali
str = Trim(stringa)
parolaStralunga = false
'Se la stringa è + lunga del numero di caratteri allora tronca senno non serve
if len(str) > chars then 
'Controllo se alla posizione indicata dai caratteri consentiti si trova uno spazio
tmpChar = mid(str,chars-1,1)
while not tmpChar = Chr(32) 'Spazio 
'se non lo è controllo il carattere precedente e via via nel loop
chars = chars - 1
tmpChar = mid(str,chars-1,1)
' nel caso credo improbabile che non ci sia nemmeno uno spazio esco dal loop e stampo [CharConsentiti] caratteri
if chars < 0 then 
tmpChar = Chr(32) 
'parolaStralunga = true
end if 
wend
end if 
'Se vuota restituisce vuoto
if str = "" then
TagliaStringa = "" 
'Se minore dei caratteri consentiti non serve tagliare
elseif len(stringa) <= chars then
TagliaStringa = str
else
'Altrimenti taglia 
if chars > 0 then 
TagliaStringa = Left(str,chars-1) & delimitatore
else 'nel caso sia un unica parola di [CharConsentiti] caratteri
TagliaStringa = Left(str,charConsentiti-1) & delimitatore
end if 
end if 
end function

La funzione taglia la stringa inserita come primo parametro alla lunghezza espressa dal secondo parametro ed aggiunge il delimitatore espresso dal 3
esempio:
FraseLunga = "mamma mia come è lunga questa frase sara' meglio che la tagli un pochino senno mi scombina tutto il lauyout del sito?"
Response.Write(TagliaStringa(fraseLunga,50,"..."))
output = "mamma mia come è lunga questa frase sara' meglio ..."

nel tuo caso (ho messo 300 caratteri)
<%=TagliaStringa(testo,300,"...continua")%>