<% 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 %>