<%
'**************************************
Function fktJpegTilRtf(varSource)
	Dim oPic, sData
	'JPEG Header thing
	MyFile.WriteLine "{\*\shppict{\pict\jpegblip"

	'Our JPEG file to read
	Set oPic = fso.OpenTextFile(varSource, 1, False)

	'Transform binary to a BLIP
	sData = ""
	Do While Not oPic.AtEndOfStream
		sData = sData & LCase(ZeroPad(Hex(Asc(oPic.Read(1))),2))
		If Len(sData) Mod 128 = 0 Then
			MyFile.WriteLine sData
			sData = ""
		End If
	Loop

	If Len(sData) > 0 Then
		MyFile.WriteLine sData
	End If

	'End of JPEG Header
	MyFile.WriteLine "}}"

	fktJpegTilRtf = True
End Function

Function ZeroPad(vItem, nLen)
	ZeroPad = vItem
	Do While Len(ZeroPad) < nLen
		ZeroPad = "0" & ZeroPad
	Loop
End Function

'**************************************

%>