<% option explicit Response.Buffer = true if session("administrator_id") <> "" then dim conn dim rs dim ssql dim sStorename dim sReseller dim sDownload_Section_Size dim sVersion_Info dim return_page dim ClientDSNtemp dim ClientConn dim sMyMBPermission dim sPaypalPermission dim objfs dim objfile %> <% sStorename = trim(Request.Form("storename")) sReseller = trim(Request.Form("reseller_id")) sDownload_Section_Size = trim(Request.Form("download_section_size")) sVersion_Info = trim(Request.Form("version_info")) sMyMBPermission = trim(Request.Form("myMBPermission")) sPaypalPermission = trim(Request.Form("paypalPermission")) 'update data ssql = "select * from tbl_store where store_name = '" & sStorename & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 rs.Fields("reseller_id") = sReseller rs.Fields("download_section_size") = sDownload_Section_Size rs.Fields("version_info") = sVersion_Info rs.Update rs.Close conn.Close set rs = nothing set conn = nothing '**************************************************** 'update client store database ClientDSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " ClientDSNtemp=ClientDSNtemp & "DBQ=" & server.mappath("../../../member/" & sStorename & "/db/dbStore.mdb") ClientDSNtemp=ClientDSNtemp & ";Password=790527145433" set ClientConn = server.createobject("adodb.connection") ClientConn.Open ClientDSNtemp ssql = "update tbl_setting set max_download_section_size = '" & sDownload_Section_Size & "' where setting_id = 'default'" ClientConn.Execute ssql ClientConn.Close set ClientConn = nothing set objfs = server.CreateObject("scripting.FileSystemObject") if objfs.FileExists(server.MapPath("../../../member/" & sStorename & "/myMBPermission.txt")) = true then objfs.DeleteFile server.MapPath("../../../member/" & sStorename & "/myMBPermission.txt"),0 end if set objfile = objfs.OpenTextFile(server.MapPath("../../../member/" & sStorename & "/myMBPermission.txt"),8,-1,0) objfile.WriteLine sMyMBPermission objfile.close if objfs.FileExists(server.MapPath("../../../member/" & sStorename & "/paypalPermission.txt")) = true then objfs.DeleteFile server.MapPath("../../../member/" & sStorename & "/paypalPermission.txt"),0 end if set objfile = objfs.OpenTextFile(server.MapPath("../../../member/" & sStorename & "/paypalPermission.txt"),8,-1,0) objfile.WriteLine sPaypalPermission objfile.close set objfile = nothing if sMyMBPermission <> "on" then if objfs.FileExists(server.MapPath("../../../member/" & sStorename & "/myMBStatus.txt")) = true then objfs.DeleteFile server.MapPath("../../../member/" & sStorename & "/myMBStatus.txt"),0 end if end if if sPaypalPermission <> "on" then if objfs.FileExists(server.MapPath("../../../member/" & sStorename & "/paypalStatus.txt")) = true then objfs.DeleteFile server.MapPath("../../../member/" & sStorename & "/paypalStatus.txt"),0 end if end if return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>