gestione campo memo di un db

[Mems]

<%
testo = rs("campoMemo")
righeTesto = split(testo,".")
for x = 0 to ubound(righeTesto)
response.write x & ". " & righeTesto(x) & ".
"
next
%>