Begrænset tekstmængde fra database udtag!

Jeg skal have skrevet noget tekst ud fra en database, der skal dog kun skrives 700 tegn ud! samtidig skal teksten skrives ud med de mellemrum som der er i databasen! Hvorledes sammensætter man de to scripts forneden til at gøre begge ting på en gang???

På forhånd tak!
--------------------------------------------
<%
Response.Write Left(nyheder.Fields.Item("Nbeskrivelse"), 700)
%>

<%
Response.Write "" & replace((nyheder.Fields.Item("Nbeskrivelse").Value),VbCrLf,"<br />") & ""
%>