ส่งออกข้อมูลเพื่อสร้างไฟล์ในรูปแบบ pdf ด้วย asp + ฐานข้อมูลใช้ access ครับ

' The script Generate_pdf.asp
'Create ADODB connection object
'Set cn = Server.CreateObject("ADODB.Connection")

'Fill the table:
cn.Execute("INSERT psopdf(code) SELECT SPACE(60) + 'COMPANY LTD'"))
cn.Execute("INSERT psopdf(code) SELECT SPACE(60) + 'COMPANY ADDRESS')
cn.Execute("INSERT psopdf(code) SELECT SPACE(60) + 'STREET NAME & No')
cn.Execute("INSERT psopdf(code) SELECT ' ')
cn.Execute("INSERT psopdf(code) SELECT SPACE(34) + 'BILL OF SALE')
cn.Execute("INSERT psopdf(code) SELECT ' ')
cn.Execute("INSERT psopdf(code) SELECT 'Product' + SPACE(10) + 'Quantity'+ SPACE(10) + 'Price' + SPACE(10) + 'Total')
cn.Execute("INSERT psopdf(code) SELECT REPLACE(SPACE(56), ' ', '_'))
cn.Execute("INSERT psopdf(code) SELECT 'Product1' + SPACE(9) + '10.00 '+ SPACE(10) + '52.30' + SPACE(10) + '5230.0')
cn.Execute("INSERT psopdf(code) SELECT 'Product2' + SPACE(9) + '2.00 '+ SPACE(10) + '10.00' + SPACE(10) + ' 20.0')
cn.Execute("INSERT psopdf(code) SELECT REPLACE(SPACE(56), ' ', '_'))
cn.Execute("INSERT psopdf(code) SELECT SPACE(50) + '5250.0'))


'Now we call the stored procedure 
'with no filename in order to
'generate it from ASP:
Set rs = Con.Execute("sql2pdf 'TEXTPDF'")

'If we have any result, we can specify
'that the content type of the document wich will
'be downloaded is a PDF file


If not rs.EOF Then
Response.buffer = true
with response
.Clear
.ContentType = "application/pdf"
.Charset = "UTF-8"
.AddHeader "Content-Disposition", _
"attachment;filename=test.pdf" 
end with

'We write out the PDF content! 
while not rs.EOF
response.write rs.Fields("code") & vbcrlf
rs.MoveNext
wend 

'That'all! We can stop the script here!

Response.Flush 
Response.end

end if

cn.Close

'Clean memory
Set cn = Nothing