<% dim texto_var2 dim i,largo dim caracter texto_var2=registros("contenido") largo=len(texto_var2) for i=1 to largo caracter=mid(texto_var2,i,1) Response.Write(caracter) if asc(caracter)=13 then Response.Write("
") end if next %>