ASP Karakter sınırlama

Merhaba forumda arattım bulamadım ondan bu konuyu açıyorum.
Sorum ya da sorunum şu veritabanındaki bir öğenin atıyorum sadece ilk 50 karakterini çekmek ve ardından ... koymak istiyorum. Bu konuyla ilgili örnek bakındım ancak bulamadım. Yardımcı olabilirseniz sevinirim.

dim yazi,yazi2
yazi = "denemeasdasdasdsadqwkejkqwjkkjeqwjkqewjkqwkjkjqwekl"
yazi2 = substring(yazi,0,16)
Response.Write(yazi2)

bu şekilde 0 -> yani başlangıç indexi ve nereye kadar alcağını yazabilirsin

response.write Left(rs("hucre"),50)&"..."

Yukarıda arkadaşın verdiği kod işini görür. Fakat, Eğer 50 'den fazla karakter olursa sonuna " ... " koymak, 50 'den az ise koymamak istersen LEN ile kaç karakter olduğunu bulup, if döngüsü ile yazdırma yapabilirsin.

<%
mesaj=rs("aciklama")
yazdir=Len(mesaj)

if yazdir =< 50 then
Response.write mesaj
else
response.write left(mesaj,50) & "..."
end if
%>

Kolay gelsin..

<%=Left(rs("database"),50)%>

Bende bu kodu kullanıyorum,

bende şahinin yaptığını kullanıyorum da kısa ve net olsun diye böle yazdım