15 caracteres por linea

[u_goldman]

Código:

Function CortaTexto(strTexto, intLongitud, separador)
	if len(strTexto) > intLongitud then
		Dim count
		Dim strTemp
		Dim j
		strTemp = ""
		count = 0
		for j =0 to len(strTexto)
			strTemp = strTemp & mid(strTexto, j + 1, 1)
			count = count + 1
			if count = intLongitud then
				strTemp = strTemp & separador
				count = 0
			end if
		next
		CortaTexto = strTemp
	else
		CortaTexto = strTexto
	end if
End Function
strFrase = "Tengo mucha sed, pienso ir por unas cervezas"
Response.Write CortaTexto(strFrase, 21, "<br>")

Salu!