<%@ Language=VBScript %>
dim Cn,Rs
set Cn=server.createobject("ADODB.connection")
set Rs=server.createobject("ADODB.recordset")
Cn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("Sample.mdb")
Rs.open "select * from Emp",Cn,1,3

'the code below will make the file to pdf format
Response.ContentType = "application/pdf"
Response.AddHeader "Content-Disposition", "attachment; filename=Enquiry_List.pdf"
if Rs.eof <> true then
response.write "<table border=1>"
while not Rs.eof
response.write "<tr><td>" & Rs.fields("ID") & "</td><td>" &

Rs.fields("Name") & "</td><td>" & Rs.fields("Address") & "</td><td>" & Rs.fields("Descr") &

response.write "</table>"
end if
set rs=nothing
i have used this code but the error message appear..
"Adobe Reader could not open 'Enquiry_List.pdf' because it is either not supported file type or because the file has been damage"