<!-- #include file=config.inc -->

<%

' --------------------------------------------
'  This page is intended to test DynamicPDF
'
'  Written by: Robert Scott Katarincic
'              2008-02-27
' --------------------------------------------
'

Function DisplayError

if err.number <> 0 then
    response.write("Error number:  " & err.number & "<br>")
    ' response.write("Error Line:  " & err.line & "<br>")
    response.write("Error source:  " & err.source & "<br>")
    response.write("Error Description:  " & err.description & "<br><br>")
end if

end function

' ---------------------------------------------

filepath = CONFIGPDFDIR & "testdynamicPDF.pdf"


response.write("Start DynamicPDF Test " & now() & "<br><br>")
Response.write("File path:" & filepath & "<br>")
Response.write("CONFIGPDFDIR (config.inc):" & CONFIGPDFDIR & "<br><br>")


on error resume next

Dim objDoc, objPage

Set objDoc = Server.CreateObject("DynamicPDF.Document")
DisplayError


objDoc.Title = "Test DynanmicPDF"


'Draw the Document to the Browser
'objDoc.SetLayoutGrid

objDoc.InitialZoom = 1

' dim intExpire
' intExpire = 6
' Response.Expires = intExpire
' objDoc.DrawToASP true
' objDoc.DrawToASP

Set objPage = objDoc.AddPage()
With objPage
    .MarginLeft = 10
    .MarginRight = 10
    .MarginTop = 10
    .MarginBottom = 10
End With


DisplayError


objDoc.DrawToFile filepath

DisplayError

' Object cleanup

if err.number = 0 then
   Response.write("NO errors were detected with DynmicPDF.<br><br>")
   Response.Redirect pdfpath
else
   Response.write("Errors were detected with DynmicPDF, make sure that the .dll is registered properly.<br><br>")
end if

Set objDoc = Nothing
Set objPage = Nothing


response.write("End DynamicPDF Test " & now() & "<br><br>")


' response.end

' ------------------------------------------------

<%

' ----------------------
' config.inc
'   written by: Robert Scott Katarincic
'               2008-03-06
'
'   The intent of this file is for pathnames and other global values that could change
'   if the filesystem hierarchy is moved to a new location
' ----------------------


' the following is used by .asp dynamicPDF printing

Dim CONFIGHOMEDIR, CONFIGPDFDIR
CONFIGHOMEDIR = "C:\Inetpub\websitefolder"
CONFIGPDFDIR = CONFIGHOMEDIR & "\pdf\"


%>