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

dim RTF_OUTPUT, tableWidth, CellWidth, Filler, RowCount
dim FileName, CurrentDir, BinaryFileData, HexFileData, RTF_Formatted_ImageString, filespec

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

RTF_OUTPUT = ""

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

'==================================================
RTF_OUTPUT = QuickDrawRTFHeader(RTF_PORTRAIT,"1","1","1","1",RTF_PROTECTED,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL) 'put 1 inch margins all around
'==================================================

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

filespec = Server.MapPath("images/bullet.gif")
HexFileData = RegisterImageCache(filespec)
RTF_Formatted_ImageString = DrawImage(HexFileData,RTF_GIF,25,25,0.55)

call RegisterParagraphSpacing(0,0.1,0)

call RegisterFont(RTF_FONT_ARIAL, "11", 0, RTF_LIGHT_RED)
call RegisterParagraphIndent("l",0.25,0,-0.25)

Append DrawParagraph("Demonstrates graphical bullets:")
Append DrawParagraph(RTF_Formatted_ImageString & RTF_TAB & "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. ")
Append DrawParagraph(RTF_Formatted_ImageString & RTF_TAB & "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. ")
Append DrawParagraph(RTF_Formatted_ImageString & RTF_TAB & "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. ")

call RegisterFont(RTF_FONT_ARIAL, "11", 0, RTF_BLUE)
call RegisterParagraphIndent("l",0.25,0,-0.25)
Append DrawParagraph("Demonstrates numbered list:")
for RowCount=1 TO 4 
	Append DrawParagraph(RowCount & ")" & RTF_TAB & "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. ")
next

sub LevelOne(sItem,sText)
	call RegisterFont(RTF_FONT_ARIAL, "12", RTF_BOLD, RTF_PURPLE)
	call RegisterParagraphIndent("l",0.25,0,-0.25)
	Append DrawParagraph(sItem & RTF_TAB & sText)
end sub

sub LevelTwo(sItem,sText)
	call RegisterFont(RTF_FONT_ARIAL, "11", RTF_ITALIC, RTF_PURPLE)
	call RegisterParagraphIndent("l",0.5,0,-0.25)
	Append DrawParagraph(sItem & RTF_TAB & sText)
end sub

sub LevelThree(sItem,sText)
	call RegisterFont(RTF_FONT_ARIAL, "10", 0, RTF_PURPLE)
	call RegisterParagraphIndent("l",0.75,0,-0.25)
	Append DrawParagraph(sItem & RTF_TAB & sText)
end sub

call RegisterFont(RTF_FONT_ARIAL, "11", 0, RTF_PURPLE)
Append DrawParagraph("Demonstrates nested or outline style:")

Filler = "Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Donec elementum, dolor vel aliquam tempus, ipsum diam sodales sem, ut faucibus urna lorem eget augue. "

Call LevelOne("1)",Filler)
	Call LevelTwo("a.",Filler)
	Call LevelTwo("b.",Filler)
		Call LevelThree("i.",Filler)
		Call LevelThree("ii.",Filler)
		Call LevelThree("iii.",Filler)
	Call LevelTwo("c.",Filler)
Call LevelOne("2)",Filler)
	Call LevelTwo("a.",Filler)
Call LevelOne("3)",Filler)
	Call LevelTwo("a.",Filler)
		Call LevelThree("i.",Filler)
		Call LevelThree("ii.",Filler)
		Call LevelThree("iii.",Filler)
	Call LevelTwo("b.",Filler)

'==================================================
RTF_OUTPUT = RTF_OUTPUT & DrawRTFFooter()
'==================================================

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

%>