Çözüm:
<%
Function ReadMore(text)
textwidth = len(text)
maxwidth = 40
if textwidth>maxwidth then
text2 = mid(text,maxwidth,textwidth)
firtspace = instr(text2," ")
text3 = left(text,maxwidth+firtspace-1)
text3 = ""& text3 &"... Devamını oku"
else
text3 = "" & text &""
end if
ReadMore=text3
end function
%>
<%cumle="İnsan, diğer insanlardan hiçbir şey istememeye, onlara hep vermeye alıştığı zaman, elinde olmadan soylu davranır."%>
<%Response.Write(readmore(cumle))%>