Ciao pireda

il carattere di a capo è '\n' quindi
codice:
function funzione()
{
	strDoc = "<%=Replace(strDoc, vbCrLf, "\n")%>"
	...
}