<% %>

<OBJECT runat=server progid=Scripting.FileSystemObject id=objFS></OBJECT>
<OBJECT runat=server progid=Web.PDFConvertor id=objPdf></OBJECT>

<%
Dim FullFileName, SourceName, FileName, ContentType
Dim Msg
Dim bError
Dim FileOk

ContentType = "application/pdf" '"application/x-msdownload" 
SourceName = "document.pdf"

Sub DownloadFile(FileName)
Const adTypeBinary = 1
Dim BLOCK_SIZE 
Dim objStream 

	BLOCK_SIZE = CLng(1024*256)
	Set objStream = Server.CreateObject("ADODB.Stream")
	objStream.Open
	objStream.Type = adTypeBinary
	objStream.LoadFromFile FileName
	'
	Response.ContentType = ContentType 
	Response.AddHeader "Content-Disposition", "attachment; FileName=" & Server.URLEncode(SourceName)
	Response.Buffer = False
	'upload to client
	Do While Not objStream.EOS And Response.IsClientConnected
		Response.BinaryWrite objStream.Read(BLOCK_SIZE)
	Loop
	objStream.Close
	Set objStream = Nothing

End Sub

		'получаем pdf в файл
		FileOk = objPdf.GetDocument()
		If FileOk Then
			'загружаем клиенту	
			FullFileName = objPdf.OutputFileName
		If FileOk Then
			'загружаем клиенту	
			FullFileName = objPdf.OutputFileName
			If objFS.FileExists(FullFileName) Then 
				'upload to client
				DownloadFile FullFileName
				Msg = "Нет доступа к файлу или ошибка загрузки."
				'remove file from folder
				objFS.DeleteFile FullFileName, True
			Else		
				bError = True
				Msg = "Ошибка формирования файла. Файл не найден."			
			End If			
		Else
			bError = True
			Msg = "Ошибка формирования файла."
		End If
%>