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

dim RTF_OUTPUT

RTF_OUTPUT = ""
RTF_OUTPUT = QuickDrawRTFHeader(RTF_LANDSCAPE,"1","1","1","1",RTF_PROTECTED,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL) 'put 1 inch margins all around
RTF_OUTPUT = RTF_OUTPUT & DrawChars("Hello World!  This is as simple as it gets generating an RTF document.",NULL,NULL,NULL,NULL)
RTF_OUTPUT = RTF_OUTPUT & QuickDrawRTFFooter()

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

%>