A mi me ayudó el crear una función que haga un replace al momento de presentar la información del campo:
  
Código:
 
function cambia(t)
  tt=t
  tt=Replace(tt, vbCrLf, "<BR />") 
  tt=Replace(tt, "1.", "<BR />1.") 
  tt=Replace(tt, "2.", "<BR />1.") 
  tt=Replace(tt, "3.", "<BR />1.") 
  tt=Replace(tt, "4.", "<BR />1.") 
  tt=Replace(tt, "5.", "<BR />1.") 
  cambia= tt
end function
  A esta función le puedes poner todos los replace que necesites de acuerdo al texto y bastará con que la llames cada vez que quieras mostrar tu info: 
<%=cambia( RS("CONTENIDO") )%> 
Aunque yo te sugeriría que almacenes un caracter de salto que te sea fácil de identificar, por ejemplo | 
1. Los perros son amables cuando son amables.|2. Los perros no muerden mientras ladran, pues tienen la boca ocupada.|3. Los perros mueven la cola porque la cola no puede mover al perro.|4. Los perros tienen buen olfato porque su hocico es largo.  
Espero que te sirva