codice:
stringa = request("tuocampo")
'recupero la lunghezza della stringa
lunghezzastringa = len(stringa)



miolimite = 50 'numero di caratteri massimo!!

nuovastringa = ""

if lunghezzastringa > miolimite then
  'ciclo sulla stringa
  for i=1 to lunghezzastringa
    if (i/miolimite)=1 then
      'sostituisco
      nuovastringa = nuovastringa & mid(stringa,i,1) & "
"
    else
      'continuo
      nuovastringa = nuovastringa & mid(stringa,i,1)
    end if
  next
else

  nuovastringa = stringa

end if
credo che weppos intendesse una cosa del genere ...