<%
MerchantRefNo = Request.Form("MerchantRefNo")
TxnAmount = Request.Form("TxnAmount")
ClientAccNum = Request.Form("ClientAccNum")
'Set value to the variab
ClientCode = Session("ClientCode")
BlockUnBlockType = Request("BlockUnBlockType")
'Response.Write(" ")
'Response.Write(MerchantRefNo)
'Response.Write(" ")
'Response.Write(TxnAmount)
'Response.Write(" ")
'Response.Write(ClientAccNum)
'Response.Write(" ")
'Response.Write(ClientCode)
'Response.Write(" ")
'Response.Write(BlockUnBlockType)
'Response.End
' Response.Write(" ")
' Response.Write(TxnAmount)
' Response.Write(" ")
' Response.Write(ClientAccNum)
' Response.Write(" ")
' Response.Write(ClientCode)
BOIURL = "http://172.16.1.57:81/BOIFundBlock/Service.asmx?wsdl"
'Soap Client
Dim oSOAP
'XML Document to laod XML from web Services
Dim objDOMDoc
'Node list
Dim objNodeList
'Child node list of above Mode list
Dim objChildNodeList
'Create a SOAP client and call the C# web services
'Set oSOAP = Server.CreateObject("MSSOAP.SoapClient")
set oSOAP = Server.CreateObject("MSSOAP.SoapClient30")
oSOAP.ClientProperty("ServerHTTPRequest") = True
'Response.Write(" " & BOIURL)
'Response.end
oSOAP.mssoapinit(BOIURL)
if err.number <> 0 then errFlag = 1
if errFlag <> 1 then
'Create XML document and load XML from Web services method
Set objDOMDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
dim myoutput
'ClientCode = cstr("1N117")
'ClientAccNum = cstr("012211110000003")
'MerchantRefNo = cstr("123456789155")
'TxnAmount = cstr("1000")
'response.write(ClientCode &" "&ClientAccNum &" "&TxnAmount &" "&MerchantRefNo &" ")
myoutput = CStr(oSOAP.fnFundTransfer(ClientCode, ClientAccNum , TxnAmount, MerchantRefNo, BlockUnBlockType))
' Response.Write("MyOutput"&myoutput)
End If
Dim SuccessFlag
SuccessFlag = "F"
PAID = "N"
if myoutput = "00000" Then
SuccessFlag = "S"
PAID = "Y"
End IF
%>
Fund Transfer
<%
PRN = MerchantRefNo
BID = "123456789"
AMT = TxnAmount
CRN = "INR"
'response.write "prn = " & PRN
'response.write (" ")
'response.write AMT
'response.write (" ")
'response.write BID
'response.end
'-------------------------- XML Error Process Start Here-----------------------------------------
Dim xml
Dim MyArr()
reDim MyArr(10)
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = False
xml.load (Server.MapPath(BOI_ErrorMasterFile))
nodes=xml.documentElement.childNodes.length
ErrorCode= right(myoutput,3) '---------------------- Error Code from Bank
for i=0 to nodes-1
ReDim Preserve MyArr(i)
MyArr(i)= xml.documentElement.childNodes(i).childNodes(0).text
next
for counter = 0 to UBound(MyArr)
if MyArr(counter)= ErrorCode then
BankMSG="Bank Response Code/Message: " &MyArr(counter)&":" &xml.documentElement.childNodes(counter).childNodes(1).text
end if
next
Set xml = Nothing
'-------------------------- XML Error Process Till Here-----------------------------------------
SET adoCmd = Server.CreateObject("ADODB.COMMAND")
SET adoCmd.ActiveConnection = ConnORE
adoCmd.CommandType = adCMDStoredProc
adoCmd.COMMANDTEXT = "OREBankTransactionResponse"
adoCmd.Parameters.Append adoCmd.CreateParameter("ClientCode",adVarChar,ADParamInput,15)
adoCmd.Parameters.Append adoCmd.CreateParameter("PaymentReferenceNumber",adVarChar ,adParamInput,17)
adoCmd.Parameters.Append adoCmd.CreateParameter("AmountCredited",adDouble,adParamInput)
adoCmd.Parameters.Append adoCmd.CreateParameter("Success",adVarChar ,adParamInput,1)
adoCmd.Parameters.Append adoCmd.CreateParameter("BankTranId",adVarChar ,adParamInput,20)
' Creating Output Parameters
adoCmd.Parameters.Append adoCmd.CreateParameter("ErrorCode",adInteger,ADParamOutput)
adoCmd.Parameters.Append adoCmd.CreateParameter("Message",adVarChar,ADParamOutput,200)
' Assigning values to Input Params
adoCmd("ClientCode") = ""
adoCmd("PaymentReferenceNumber") = PRN
adoCmd("AmountCredited") = AMT
If PAID = "Y" Then
adoCmd("Success") = "Y"
Else
adoCmd("Success") = "N"
end if
adoCmd("BankTranId") = BID
'response.write Session("ClientCode")
'response.write (" ")
'response.write PRN
'response.write (" ")
'response.write adoCmd("Success")
'response.write (" ")
'response.write AMT
'response.write (" ")
'response.write BID
'response.end
adoCmd.Execute()
ErrorCode = adoCmd("ErrorCode")
Message = adoCmd("Message")
If PAID="Y" then
%>
Fund
Transfer - Success
Internal Reference No - <%= PRN %>
Bank Reference No - <%= BID %> <%=BankMSG &" Internal message: "&Message%>