SlJournal Form
<%
On Error Resume Next
Dim action : action = lcase(request.QueryString("action"))
Dim id : id = ucase(request.QueryString("id"))
'received data from ePayment System
Dim amount : amount = request.form("amount")
Dim custom1 : custom1 = request.form("custom1")
Dim custom2 : custom2 = request.form("custom2")
Dim custom3 : custom3 = request.form("custom3")
Dim custom4 : custom4 = request.form("custom4")
Dim custom5 : custom5 = request.form("custom5")
Dim personalInfo : personalInfo = split(custom3,"|")
Dim productInfo : productInfo = split(custom4,"|")
'received data from Payment Gateway
Dim UAEUTransactionID : UAEUTransactionID = request.form("vpc_MerchTxnRef")
Dim transactionID : transactionID = request.form("vpc_TransactionNo")
Dim paidAmount : paidAmount = request.form("vpc_Amount")
Dim payeeName : payeeName = request.form("vpc_OrderInfo")
Dim receiptNo : receiptNo = request.form("vpc_ReceiptNo")
Dim responseCode : responseCode = request.form("vpc_ResponseCode")
Dim cardType : cardType = request.form("vpc_Card")
Dim message : message = request.form("vpc_Message")
Dim referrer : referrer = request.form("referrer")
Select Case action
Case "receipt"
Case else : action = "payment"
End Select
Select Case id
Case "IP"
Case "IE"
Case "CP"
Case "CE"
Case else : id = "IP"
End Select
%>
<% If action="payment" Then %>
Your payment is completed successfully and below are the payment details: Payee Information Course Details Bank Payment Receipt Your payment is rejected and below is the response received from the Payment Gateway <%=responseCode%>
Payee Name :
<%=payeeName%>
Email :
<%=custom1%>
Mobile :
<%=custom2%>
<%=Split(personalInfo(i),":")(0)%> :
<%=Split(personalInfo(i),":")(1)%>
<%=Split(productInfo(i),":")(0)%> :
<%=Split(productInfo(i),":")(1)%> AED (United Arab Emirates Dirhams)
Paid Amount :
<%=paidAmount%> AED (United Arab Emirates Dirhams)
Transaction Reference :
<%=UAEUTransactionID%>
Bank Reference :
<%=transactionID%>
Receipt No :
<%=receiptNo%>
Card Type :
<%=cardType%>
<% End If %> <% End If%>
Do you find this content helpful?
عفوا
لايوجد محتوى عربي لهذه الصفحة
عفوا
يوجد مشكلة في الصفحة التي تحاول الوصول إليها