<%
Function HTMLtoRTF(testo)

  intestazione = "{\rtf1\ansi\ansicpg1252\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1040\deflangfe1040"

  ' paragrafi
  testo = Replace(testo, "<p>", "{", 1, -1, 1)
  testo = Replace(testo, "</p>", " \par}", 1, -1, 1)

  ' a capo
  testo = Replace(testo, "<br>", "{\par}", 1, -1, 1)

  ' grassetto
  testo = Replace(testo, "<b>", "{\b ", 1, -1, 1)
  testo = Replace(testo, "</b>", "}", 1, -1, 1)
  ' corsivo
  testo = Replace(testo, "<i>", "{\i ", 1, -1, 1)
  testo = Replace(testo, "</i>", "}", 1, -1, 1)
  ' sottolineato
  testo = Replace(testo, "<u>", "{\ul ", 1, -1, 1)
  testo = Replace(testo, "</u>", "}", 1, -1, 1)
  ' <h1> - continuare con tutti gli h*
  testo = Replace(testo, "<h1>", "{\fs50 ", 1, -1, 1)
  testo = Replace(testo, "</h1>", "\par}", 1, -1, 1)

  HTMLtoRTF = intestazione & testo & "}"

End function

Response.Clear()
Response.ContentType = "text/richtext"
' imposto il nome del file
Response.AddHeader "Content-Disposition", "attachment;filename=report.rtf"

Response.Write(HtmlToRTF("<h1>Intestazione</h1><P>Prova paragrafo.</P><p>Questo è <b>bold</b>, questo <i>italic</i>, questo <br><u>sottolineato</u>.</p>"))

%>