F/PDF, ASP, Self-Sign Signatures and ADO (Save Signatures Subroutine)

 

Sub SAVE_SIGNATURES(byVal Form_ID,byVal Primary_Value)

On error resume next

Dim FDFAcx2, FDFin2

Dim objFDF2

Set FdfAcX2 = Server.CreateObject("FdfApp.FdfApp")

Set objFdf2 = FDFAcx2.FDFCreate

Dim cTempFileSaveAppends, vntStream2, binObj2

Dim RS_Apr2

' Set to Session

cTempFileSaveAppends = Server.MapPath("Databases/”& Session.SessionID & ".pdf")

 

Set FDFin2 = FDFAcx2.FDFOpenFromBuf(Request.BinaryRead(Request.TotalBytes))

FDFin2.FDFExtractAppendSaves cTempFileSaveAppends

Set binObj2 = Server.CreateObject("binReadWriteBuf.BinRead")

vntStream2 = binObj2.readBinFile(cTempFileSaveAppends)

Dim SIG_NAME2

SIG_NAME2 = Fdfin2.FDFGetValue("NK_sigName") & ""

 

IF NOT SIG_NAME2 = "" THEN

Set RS_Apr2 = Server.CreateObject("ADODB.Recordset")

strDBPath = server.MapPath("Databases/PDF_Data.mdb")

 

          Dim sSQL, ConnStr

sSQL = "Select * From [NK_Signature] Where [SIGNAME] LIKE '" & SIG_NAME2 & "' AND [FormID] Like '" & Form_ID & "' AND [PrimaryValue] LIKE '" & Primary_Value & "';"

 

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

 

          RS_Apr2.Open sSQL, ConnStr, 3, 3

IF RS_Apr2.RECORDCOUNT < 1 THEN

                    RS_Apr2.AddNew

          Else

                   RS_Apr2.MoveFirst

          END IF

          Response.ContentType = "application/pdf"

          RS_Apr2("FormID") = Form_ID

          RS_Apr2("PrimaryValue") = Primary_Value

          RS_Apr2("FormObj").AppendChunk(vntStream2)

          RS_Apr2("SIGNAME") = SIG_NAME2

          RS_Apr2("FormSize") = LenB(vntStream2)

          RS_Apr2("ContentType") = "application/pdf"

 

          if RS_Apr2("FormObj").ActualSize > 3000 then

                   RS_Apr2.Update

          else

                   RS_Apr2.CancelUpdate

          end if

          Set RS_Apr2 = Nothing

END IF

Set binObj2 = Nothing

Response.End

End Sub