<!-- Provided as example code by SECPay Ltd (www.secpay.com) -->
<!-- No warranties are offered on this code and use is strictly limited to example only. -->
<!-- For help using the SECPay system please contact support@secpay.com  -->

<!--#include virtual="xmlrpc.asp" -->
<%
   Dim paramList(14)
   paramList(0)="secpay"		' Test merchant id
   paramList(1)="secpay"		' vpn password
   paramList(2)="xmltest"		' transaction id
   paramList(3)="123.4.56.789"  	' IP of customer   
   paramList(4)="John Doe" 		' customer name
   paramList(5)="4444333322221111" 	' credit card number
   paramList(6)="49.99" 		' amount
   paramList(7)="0105" 			' expiry date
   paramList(8)="" 			' issue number (switch/solo only)
   paramList(9)="" 			' start date

   ' order information
   paramList(10)="prod=funny_book,amount=18.50;prod=sad_book,amount=16.50x3" 
   
   ' shipping address
   paramList(11)="name=CONTACT,company=COMPANY,addr_1=ADDRESSLINE1,addr_2=ADDRESSLINE2,city=CITY,state=COUNTY,country=COUNTY,post_code=POST_CODE,tel=TELEPHONE,email=EMAIL,url=URL" 

   ' billing address
   paramList(12)="name=CONTACT,company=COMPANY,addr_1=ADDRESSLINE1,addr_2=ADDRESSLINE2,city=CITY,state=COUNTY,country=COUNTY,post_code=POST_CODE,tel=TELEPHONE,email=EMAIL,url=URL" 

   ' options string
   paramList(13)="test_status=true,dups=false" 

   transaction = xmlRPC ("https://www.secpay.com/secxmlrpc/make_call", "SECVPN.validateCardFull", paramList)
   response.write(transaction)
%>