<%
Response.Buffer = TRUE
Response.ContentType = "application/pdf"
%>
<%
vrOrderID = Request("OrderID")
if vrOrderID = "" then vrOrderID = 10300
' Create the component
set PDF =
server.createobject("aspPDF.EasyPDF")
' Loads the VEP file
PDF.WEB_APP = True
PDF.LoadVEPFile( Server.MapPath("erp_orders.vep")
)
' Sets the correct parameter for the year
PDF.SetParameter "OrderID",
vrOrderID
' Draw all pages from the VEP file definition
PDF.DrawVEP 0
PDF.BinaryWrite
set PDF = Nothing
%>