<% 'option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sSetting_Id dim sOnline_Payment_Module dim sOffline_Payment_Module dim s2checkout_Account_Id dim s2checkout_Percent dim sExchange_Rate dim sOnline_Payment_Info dim sOnline_Payment_Test_Order_Mode dim sBank_Name dim sBank_Account_Number dim sOffline_Payment_Info dim return_page %> <% sSetting_Id = trim(request.Form("setting_id")) sOnline_Payment_Module = trim(request.Form("online_payment_module")) sOffline_Payment_Module = trim(request.Form("offline_payment_module")) s2checkout_Account_Id = trim(request.Form("2checkout_account_id")) s2checkout_Percent = trim(request.Form("2checkout_percent")) sExchange_Rate = trim(request.Form("exchange_rate")) sOnline_Payment_Info = trim(request.Form("online_payment_info")) sOnline_Payment_Test_Order_Mode = trim(request.Form("online_payment_test_order_mode")) sBank_Name = trim(request.Form("bank_name")) sBank_Account_Number = trim(request.Form("bank_account_number")) sOffline_Payment_Info = trim(request.Form("offline_payment_info")) 'replace vbCrLf to
if len(sOnline_Payment_Info) > 0 then sOnline_Payment_Info = replace(sOnline_Payment_Info, vbcrlf, "
", 1, -1, 1) end if if len(sOffline_Payment_Info) > 0 then sOffline_Payment_Info = replace(sOffline_Payment_Info, vbcrlf, "
", 1, -1, 1) end if if len(sExchange_Rate) = 0 then sExchange_Rate = 1 'update data ssql = "select * from tbl_setting where setting_id = '" & sSetting_Id & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 rs.Fields("online_payment_module") = sOnline_Payment_Module rs.Fields("offline_payment_module") = sOffline_Payment_Module rs.Fields("2checkout_account_id") = s2checkout_Account_Id rs.Fields("2checkout_percent") = s2checkout_Percent rs.Fields("exchange_rate") = sExchange_Rate rs.Fields("online_payment_info") = sOnline_Payment_Info rs.Fields("online_payment_test_order_mode") = sOnline_Payment_Test_Order_Mode rs.Fields("bank_name") = sBank_Name rs.Fields("bank_account_number") = sBank_Account_Number rs.Fields("offline_payment_info") = sOffline_Payment_Info rs.Update rs.Close conn.Close set rs = nothing set conn = nothing call Update2CheckoutId(s2checkout_Account_Id, ucase(Request.Cookies("storename"))) return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>