%
response.Buffer = true
dim conn
dim DSNtemp
dim rs
dim ssql
dim MerchantCode
dim PaymentId
dim RefNo
dim Amount
dim eCurrency
dim Remark
dim TransId
dim Status
dim ErrDesc
dim storename
'MerchantCode=M00061&PaymentId=1&RefNo=ref&Remark=1612200523540&TransId=transid123&Status=1&ErrDesc=errdes
MerchantCode = Request("MerchantCode")
PaymentId = Request("PaymentId")
RefNo = Request("RefNo")
Amount = Request("Amount")
Remark = Request("Remark")
TransId = Request("TransId")
Status = Request("Status")
ErrDesc = Request("ErrDesc")
response.Write "MerchantCode : " & MerchantCode & "
"
response.Write "PaymentId : " & PaymentId & "
"
response.Write "RefNo : " & RefNo & "
"
response.Write "Amount : " & Amount & "
"
response.Write "Remark : " & Remark & "
"
response.Write "TransId : " & TransId & "
"
response.Write "Status : " & Status & "
"
response.Write "ErrDesc : " & ErrDesc & "
"
if Status = "1" then Status = "Success"
if Status = "0" then Status = "Fail"
'***********************************************************************************
'GET CLIENT(MEMBER) STORENAME
'***********************************************************************************
'create database connection to server database
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=" & server.mappath("db/dbServer.mdb")
DSNtemp=DSNtemp & ";Password=790527145433"
set conn = server.createobject("adodb.connection")
conn.Open DSNtemp
dim rsStoreName
ssql = "select * from tbl_store where pay88_id = '" & MerchantCode & "'"
set rsStoreName = server.CreateObject("adodb.recordset")
rsStoreName.Open ssql,conn,3,3
if not rsStoreName.EOF then
storename = rsStoreName.Fields("store_name")
end if
rsStoreName.Close
rsStoreName.ActiveConnection = nothing
set rsStoreName = nothing
if len(trim(storename)) > 0 then
'***********************************************************************************
'UPDATE CLIENT(MEMBER) DATABASE
'***********************************************************************************
'create database connection to member store via storename
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=DSNtemp & "DBQ=" & server.mappath("member/" & storename & "/db/dbStore.mdb")
DSNtemp=DSNtemp & ";Password=790527145433"
set conn = server.createobject("adodb.connection")
conn.Open DSNtemp
'update order info
ssql = "select * from tbl_order where system_order_id = '" & Remark & "'"
set rs = server.CreateObject("adodb.recordset")
rs.Open ssql,conn,3,3
rs.Fields("payment_type") = "online"
rs.Fields("reference_number") = TransId
rs.Fields("credit_card_processed") = Status
rs.Update
rs.Close
set rs = nothing
'close member store database connection
conn.Close
set conn = nothing
'response.Redirect "member/" & storename
end if
%>