SitePoint Sponsor

User Tag List

Results 1 to 2 of 2
  1. #1
    SitePoint Addict matt_12511's Avatar
    Join Date
    Feb 2004
    Location
    Michigan
    Posts
    256
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    VeriSign Payflow Pro - Testing Issue

    Hello,

    Here is the error I get:

    RESPMSG = ESPMSG=The certificate chain did not validate, no local certificate found, Cert Path = certs, Working Directory = c:\windows\system32\inetsrv
    VeriSign says to have my host install the CERTS files correctly. Hostway (my host) says they have installed it correctly. And they just keep repeating themselves.

    Here my code that sends credit card info to VeriSign and gets a response. Any ideas what I can do? Is it really the CERTS folder installed incorrectly? Does my code look right?

    I can't get a clear response from my host or from VeriSign.
    Code:
    ' ***************
    ' ** Verisign Code **
    ' ***************
    		
    ' create the PNCOMClient component
    Set client = Server.CreateObject("PFProCOMControl.PFProCOMControl.1")
    
    
    'build the parameter list, such that we have a sale transaction and
    'a credit card tender.
    
    parmList = "TRXTYPE=A&TENDER=C"
    
    parmList = parmList + "&PARTNER=" + "VeriSign"
    parmList = parmList + "&VENDOR=" + "<my vendor id>"
    parmList = parmList + "&USER=" + "<my user id>"
    parmList = parmList + "&PWD=" + "<my password>"
    parmList = parmList + "&ACCT=" + ACCT
    parmList = parmList + "&EXPDATE=" + EXPDATE
    parmList = parmList + "&AMT=" + AMT
    parmList = parmList + "&NAME=" + FIRSTNAME
    parmList = parmList + "&STREET=" + chrBillAddress
    parmList = parmList + "&CITY=" + chrBillCity
    parmList = parmList + "&STATE=" + chrBillState
    parmList = parmList + "&ZIP=" + ZIP
    parmList = parmList + "&EMAIL=" + "johndoe@verisign.com"
    parmList = parmList + "&COMMENT1=" + "Comments"
    parmList = parmList + "&COMMENT2=" + "More Comments"
    parmList = parmList + "&INVNUM=" + INVNUM
    
    Ctx1 = client.CreateContext("test-payflow.verisign.com", 443, 30, "", 0, "", "")
    curString = client.SubmitTransaction(Ctx1, parmList, Len(parmList))
    client.DestroyContext (Ctx1)
    
    
    'loop until we're done processing the entire string
    Do while Len(curString) <> 0
    
    	'get the next name value pair
    
    	if InStr(curString,"&") Then
    		varString = Left(curString, InStr(curString , "&" ) -1)
    	else
    		varString = curString
    	end if
    	
    	'get the name part of the name/value pair
    	xname = Left(varString, InStr(varString, "=" ) -1)
    	
    	'get the value out of the name/value pair
    	xvalue = Right(varString, Len(varString) - (Len(name)+1))
    	
    	'check for Authorization
    	If xname = "RESPMSG" and xvalue = "APPROVED" then
    		VSAuth = "Passed"
    	end if	
    	
    	'write out the name/value pair in "name = value" format
    	VSResponse = xname
    	VSResponse = VSResponse & " = " & xvalue
    	
    	'skip over the &
    	if Len(curString) <> Len(varString) Then 
    		curString = Right(curString, Len(curString) - (Len(varString)+1))
    	else
    		curString = ""
    	end if
    Loop
    	
    	if VSAuth <> "Passed" then
    		session("VSResponse") = VSResponse
    		response.Redirect "Payment.asp"
    	end if
    Setting up credit card transactions should not take 2 months...

    Thanks,

    Matt

  2. #2
    Texan at Heart Corey Bryant's Avatar
    Join Date
    Sep 2003
    Location
    Castle Rock, CO
    Posts
    2,491
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Is it testing that you need? If you need help, I can set you up an FTP account on my server to see if it is your code or the server. My programmers are gone for the weekend so they would not be able to check it out though until probably Monday if it did turn out to be the code.


Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •