<%

   Dim NVstamp : Set NVstamp = Server.CreateObject("PDFstamp.Neevia")

   Dim indx : indx = NVstamp.CreateNewStamp
   NVstamp.Stamps(indx).StampType = 2
   NVstamp.Stamps(indx).Name = "Stamp1"
   NVstamp.Stamps(indx).ImageFile = "c:\stamp.jpg"
   NVstamp.Stamps(indx).X = "center"
   NVstamp.Stamps(indx).Y = "center"
   NVstamp.Stamps(indx).PlaceAs = 1

   Dim retVal
   retVal = NVstamp.StampPDF("c:\in.pdf", "c:\out.pdf")

   If retVal <> 0 Then
     Response.Write("Error code=" & CStr(retVal))
   Else
     Response.Write("Done")
   End If

  %>