<%

v_MerchantID = "10479"                                                                                                 'Number assigned by TransFirst (8 NUMBER)

v_RegKey = "AXHTA7B9ZQ8WRQRM"                                                                            'Number assigned by TransFirst (16 CURRENCY)

 

 

v_Amount = "5.00"

v_CardNumber = "4111111111111111"

v_CardHolderName = Request.Form("first_name") . Request.Form("last_name") ' this is a value from the first Form Page

v_Expiration = "0410"

v_CVV2 = ""

v_RefID = "1254875"

v_Address = "1234 State St"

v_ZipCode = "80027"

v_UserID = ""

v_TrackData = ""

v_SaleTaxAmount = "0.00"

v_PONumber = "0"

v_TaxIndicator = "0"

v_UsrDef1 = " "

v_UsrDef2 = " "

v_UsrDef3 = " "

v_UsrDef4 = " "

 

 

 

strXML = "MerchantID=" & v_MerchantID & _

            "&RegKey=" & v_RegKey & _

            "&Amount=" & v_Amount & _

            "&CardNumber=" & v_CardNumber & _

            "&CardHolderName=" & v_CardHolderName & _

            "&Expiration=" & v_Expiration & _

            "&RefID=" & v_RefID & _

            "&Address=" & v_Address & _

            "&ZipCode=" & v_ZipCode & _

            "&SaleTaxAmount=" & v_SaleTaxAmount & _

            "&CVV2=" & v_CVV2 & _

            "&PONumber=" & v_PONumber & _

            "&TaxIndicator=" & v_TaxIndicator & _

            "&UserID=" & v_UserID & _

            "&UsrDef1=" & v_UsrDef1 & _

            "&UsrDef2=" & v_UsrDef2 & _

            "&UsrDef3=" & v_UsrDef3 & _

            "&UsrDef4=" & v_UsrDef4 & _

            "&TrackData=" & v_TrackData 

 

 

strXML = Replace(strXML, " ", "%20")

 
response.write strXML
 

set xml = CreateObject("MSXML2.XMLHTTP")

' xml.open "POST", "https://webservices.primerchants.com/creditcard.asmx/CreditCardSaleAll?", False

' xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

' xml.send(strXML)           

            

            

' Response.write xml.responseText

 

' set xml = Nothing          

     
%>