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

dim RTF_OUTPUT, filename, filespec, strBoxContents, binImageData, strImageData

FileName="sample_image.jpg" 
filespec = Server.MapPath("images/" & filename)
strImageData = RegisterImageCache(filespec)

RTF_OUTPUT = ""

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

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","1","1",RTF_EDITABLE)
'==================================================

call RegisterFont(RTF_FONT_ARIAL, "10", RTF_BOLD, RTF_BLUE)

'DRAWING AN INLINE IMAGE
Append DrawImage(strImageData, RTF_JPG, 0, 0, 0.6)
Append RTF_LINE_BREAK
Append DrawParagraph("This is a simple inline image, created using the DrawImage() function.")

'DRAWING AN INLINE IMAGE INSIDE A TEXT BOX
strBoxContents = DrawImage(strImageData, RTF_JPG, 300, 100, 1)
strBoxContents = strBoxContents & DrawParagraph("This is a simple inline image inside a text box.  It is also created using the DrawImage() function.")
Append DrawTextBox(strBoxContents,4.5,6.5,0,2.25,"c",5, "AABBCC", RTF_SOLID, "CCDDEE", 0.05,0.05,0.05,0.05)

'DRAWING AN IMAGE SHAPE
Append DrawImageShape(strImageData, RTF_JPG, RTF_WRAP_AROUND_BOTH, 120,50, 2.5, -1, 3.25, -1)
Append DrawParagraph("Below is an image created using the DrawImageShape() function.  The image is position absolutely on the page, and will not flow or move with the text as it is edited.  It allows you to control the wrap and image size in one function.")

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 QuickDrawRTFFooter()
'==================================================

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

%>