<!-- #INCLUDE FILE="../library/rtflib_20050408.asp" -->
<%

dim RTF_OUTPUT, Today, PageXOfY
dim hexWatermarkData
dim filespec

RTF_OUTPUT = ""

sub Append(strContent)
	'THIS FUNCTION SIMPLIFIES APPENDING CONTENT TO THE MAIN RTF_CONTENT STRING
	RTF_OUTPUT = RTF_OUTPUT & strContent
end sub

SetVerticalMeasure("inches")
SetHorizontalMeasure("inches")

'==================================================
Append DrawRTFHeader("Doc Title","Document Subject","Doc Author","Company","Document Comments",RTF_FONT_ARIAL,11,RTF_PORTRAIT,8.5,11,"1","1","0.35","0.35",RTF_EDITABLE)
'==================================================

filespec = Server.MapPath("images/sample_watermark_CONFIDENTIAL.gif")
hexWatermarkData = RegisterImageCache(filespec)

Call RegisterWatermark(hexWatermarkData,RTF_GIF,400,400,1)

Call RegisterFont(RTF_FONT_ARIAL, "10", RTF_BOLD, RTF_DARK_GRAY)

Today = DrawChars(FormatDateTime(Now()), null, null, null, null)
PageXofY = DrawChars("Page " & RTF_PAGE_NUMBER & " of " & RTF_PAGE_TOTAL, null, null, null, null)
Append DrawPageHeader_formatted(Today,DrawChars("Report Title", null, null, null, null), PageXofY)
'NOT THAT PASSING IN A BLANK VALUE FOR THE CENTER CELL REMOVES THE CELL
Append DrawPageFooter_formatted(DrawChars("Report Title", null, null, null, null),"",PageXofY)

Call RegisterFont(RTF_FONT_ARIAL, "12", RTF_BOLD, RTF_BLUE)

Append DrawParagraph("This document has multiple pages.  Please make sure to view page 2.")
Append RTF_LINE_BREAK

Append DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. Mauris porta, ante quis congue convallis, sem felis dictum lacus, sit amet posuere odio urna a lorem. Praesent pede. Vivamus id orci nec ligula commodo malesuada. Nam et dui. Nam iaculis nunc convallis lectus. Aliquam fringilla nibh id elit. Aenean nec velit. ")
Append RTF_LINE_BREAK

Append DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. Mauris porta, ante quis congue convallis, sem felis dictum lacus, sit amet posuere odio urna a lorem. Praesent pede. Vivamus id orci nec ligula commodo malesuada. Nam et dui. Nam iaculis nunc convallis lectus. Aliquam fringilla nibh id elit. Aenean nec velit. ")
Append RTF_LINE_BREAK

Append RTF_PAGE_BREAK

Append DrawParagraph("This is page 2.")
Append RTF_LINE_BREAK

Append DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. Mauris porta, ante quis congue convallis, sem felis dictum lacus, sit amet posuere odio urna a lorem. Praesent pede. Vivamus id orci nec ligula commodo malesuada. Nam et dui. Nam iaculis nunc convallis lectus. Aliquam fringilla nibh id elit. Aenean nec velit. ")
Append RTF_LINE_BREAK

Append DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. Mauris porta, ante quis congue convallis, sem felis dictum lacus, sit amet posuere odio urna a lorem. Praesent pede. Vivamus id orci nec ligula commodo malesuada. Nam et dui. Nam iaculis nunc convallis lectus. Aliquam fringilla nibh id elit. Aenean nec velit. ")
Append RTF_LINE_BREAK

Append RTF_PAGE_BREAK

Append DrawParagraph("This is page 3.")
Append RTF_LINE_BREAK

Append DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. Mauris porta, ante quis congue convallis, sem felis dictum lacus, sit amet posuere odio urna a lorem. Praesent pede. Vivamus id orci nec ligula commodo malesuada. Nam et dui. Nam iaculis nunc convallis lectus. Aliquam fringilla nibh id elit. Aenean nec velit. ")
Append RTF_LINE_BREAK

Append DrawParagraph("Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. Mauris mollis interdum metus. Pellentesque posuere tortor. Curabitur a quam quis tellus tincidunt blandit. Etiam justo. Integer eu tortor non neque fringilla commodo. Cras scelerisque fermentum nibh. Duis id elit. Etiam vehicula ultricies pede. Mauris porta, ante quis congue convallis, sem felis dictum lacus, sit amet posuere odio urna a lorem. Praesent pede. Vivamus id orci nec ligula commodo malesuada. Nam et dui. Nam iaculis nunc convallis lectus. Aliquam fringilla nibh id elit. Aenean nec velit. ")
Append RTF_LINE_BREAK

'==================================================
Append QuickDrawRTFFooter()
'==================================================

Response.ContentType="application/rtf"
Response.AddHeader "content-disposition", "filename=sample.rtf"
Response.Write RTF_OUTPUT

%>