<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim rs dim offline_payment_info dim online_payment_info dim objfs dim objfile dim myMBEmail dim myMBStatus dim myMBPermission set objfs = server.CreateObject("scripting.FileSystemObject") if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myMBEmail.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myMBEmail.txt"),1,-1,0) myMBEmail = objfile.ReadLine objfile.close set objfile = nothing end if if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myMBStatus.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myMBStatus.txt"),1,-1,0) myMBStatus = objfile.ReadLine objfile.close set objfile = nothing end if if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myMBPermission.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myMBPermission.txt"),1,-1,0) myMBPermission = objfile.ReadLine objfile.close set objfile = nothing end if dim my88Code dim my88Status dim my88Permission if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Code.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Code.txt"),1,-1,0) my88Code = objfile.ReadLine objfile.close set objfile = nothing end if if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Status.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Status.txt"),1,-1,0) my88Status = objfile.ReadLine objfile.close set objfile = nothing end if if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Permission.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Permission.txt"),1,-1,0) my88Permission = objfile.ReadLine objfile.close set objfile = nothing end if dim paypalCode dim paypalStatus dim paypalPermission if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/paypalCode.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/paypalCode.txt"),1,-1,0) paypalCode = objfile.ReadLine objfile.close set objfile = nothing end if if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/paypalStatus.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/paypalStatus.txt"),1,-1,0) paypalStatus = objfile.ReadLine objfile.close set objfile = nothing end if if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/paypalPermission.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/paypalPermission.txt"),1,-1,0) paypalPermission = objfile.ReadLine objfile.close set objfile = nothing end if set objfs = nothing %> <% ssql = "select * from tbl_setting" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if len(trim(rs("offline_payment_info"))) > 0 then offline_payment_info = replace(rs("offline_payment_info"),"
",vbcrlf, 1, -1, 1) end if 'if len(trim(rs("online_payment_info"))) > 0 then 'online_payment_info = replace(rs("online_payment_info"),"
",vbcrlf, 1, -1, 1) online_payment_info = "" 'end if %>
ORDER PROCESSING SETUP
Accept Credit Card Order Today !!
USE ONLINE PAYMENT MODULE :   <% if rs("online_payment_module") = "on" then %> <% else %> <% end if %>
USE 2CHECKOUT ONLINE PAYMENT MODULE :   <% if rs("online_payment_test_order_mode") = "on" then %> <% else %> <% end if %>
2CHECKOUT ACCOUNT ID :    
% PLUS ON TOTAL SALES :     %   (DEFAULT IS 5.5%)
EXCHANGE RATE :     1 USD = <% = session("company_currency_format") %> 
INSTRUCTION :     USE DEFAULT INSTRUCTION    (SHOW HOW)
USE OFFLINE PAYMENT MODULE :   <% if rs("offline_payment_module") = "on" then %> <% else %> <% end if %>
BANK NAME :    
ACCOUNT NUMBER :    
INSTRUCTION :    
<% if myMBPermission = "on" then %>
MONEYBOOKERS SETUP
USE MONEYBOOKERS ONLINE PAYMENT MODULE :   <% if myMBStatus = "on" then %> <% else %> <% end if %>
MONEYBOOKERS EMAIL :    
<% end if %> <% if my88Permission = "on" then %>
PAY88 SETUP
USE PAY88 ONLINE PAYMENT MODULE :   <% if my88Status = "on" then %> <% else %> <% end if %>
MERCHANT CODE :    
<% if paypalPermission = "on" then %>
PAYPAL SETUP
USE PAYPAL ONLINE PAYMENT MODULE :   <% if paypalStatus = "on" then %> <% else %> <% end if %>
PAYPAL EMAIL :    
<% end if %> <% end if rs.Close conn.Close set rs = nothing set conn = nothing else Response.Redirect "../../index.asp" end if %>