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

dim RTF_OUTPUT
dim filespec
dim hexLogo, hexLine
dim HeaderContent, sText

RTF_OUTPUT = ""

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

filespec = Server.MapPath("images/ACI_LOGO.jpg")
hexLogo = RegisterImageCache(filespec)

filespec = Server.MapPath("images/line_thin.gif")
hexLine = RegisterImageCache(filespec)

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

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

'==================================================
'CREATE CUSTOM HEADER, ASSEMBLING GRAPHICS, TABLES, AND LINES
'==================================================
HeaderContent = ""

HeaderContent = HeaderContent & DrawLine(0,6.5,-1.25,-1.25,3,"AABBCC",RTF_SOLID)
HeaderContent = HeaderContent & DrawLine(0,6.5,-0.2,-0.2,1,"AABBCC",RTF_SOLID)
HeaderContent = HeaderContent & DrawLine(0,6.5,-0.2,-0.2,3,"AABBCC",RTF_SOLID)

call RegisterTableSettings("c",null,null,null,null)

sText = DrawImage(hexLogo,RTF_JPG,383,106,"0.75")
Call RegisterTableCell(sText, 4, "l", null, null, null, null, null, null, null, null)

dim Address 
Address = ""
Address = Address & DrawChars("2020 Kraft Drive", null, null, null, null) & RTF_LINE_BREAK
Address = Address & DrawChars("Suite 3000", null, null, null, null) & RTF_LINE_BREAK
Address = Address & DrawChars("Blacksburg, Virginia 240??", null, null, null, null) & RTF_LINE_BREAK
Address = Address & DrawChars("Phone: 540-552-7670", null, null, null, null) & RTF_LINE_BREAK
Address = Address & DrawChars("Web: www.aciwebs.com", null, null, null, null) & RTF_LINE_BREAK
Address = Address & DrawChars("Email: info@aciwebs.com", null, null, null, null)
Call RegisterTableCell(Address, 2.5, "l",null, null, null, null, null, null, null,null)

HeaderContent = HeaderContent & DrawTableRow(false,true, null, null, null, null) 

'==================================================
'CREATE CUSTOM FOOTER	
'==================================================
dim FooterContent, Today
FooterContent = ""
Today = FormatDateTime(Now())
'FooterContent = FooterContent & DrawLine(0,6.5,8,8,3,"AABBCC",RTF_SOLID)
FooterContent = FooterContent & DrawImage(hexLine,RTF_GIF,440,2,1)
FooterContent = FooterContent & RTF_LINE_BREAK
FooterContent = FooterContent & RTF_CENTER_ALIGN
FooterContent = FooterContent & Today & " - Page " & RTF_PAGE_NUMBER & " of " & RTF_PAGE_TOTAL
Call RegisterParagraphIndent("c",0,0,0)
FooterContent = DrawParagraph(FooterContent)
'==================================================


'==================================================
Append DrawRTFHeader("Doc Title","Document Subject","Doc Author","Company","Document Comments",RTF_FONT_ARIAL,11,false,8.5,11,"1","1","0.5","0.5",RTF_EDITABLE)
'==================================================
Append DrawPageHeader(HeaderContent)
Append DrawPageFooter(DrawChars(FooterContent, null, null, null, null))
'==================================================

Call RegisterParagraphIndent("l",0,0,0)
Call RegisterFont(RTF_FONT_ARIAL, "12", 0, 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

%>