VeriSign Payflow Pro - Testing Issue

[matt_12511]

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.

' ***************
' ** 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

[Corey Bryant]

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.