função para cortar Texto

function cortatexto(texto,max) nome = texto num = len(nome) num = cint(num) aux = num / max i=0 while i <= aux  cortatexto = cortatexto & mid(nome,1,max)& "<BR>"  var1 = mid(nome,1,max)  nome = replace(nome,var1,"")  i = i +1 wendend functiontexto é o seu texto
max é o numero de registro por linha

para chamar ela é assim

<%=cortatexto(texto,max)%>