<% 'option explicit Response.Buffer = true if session("company_id") <> "" then dim sMy88Code dim sMy88Status dim return_page dim objfs dim objfile %> <% sMy88Code = Request.Form("pay88_payment_merchant_code") sMy88Status = Request.Form("pay88_payment") 'update data set objfs = server.CreateObject("scripting.FileSystemObject") if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Code.txt")) = true then objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Code.txt"),0 end if set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Code.txt"),8,-1,0) objfile.WriteLine sMy88Code objfile.close set objfile = nothing if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Status.txt")) = true then objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Status.txt"),0 end if set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/my88Status.txt"),8,-1,0) objfile.WriteLine sMy88Status objfile.close set objfile = nothing call UpdatePay88Id(sMy88Code, ucase(Request.Cookies("storename"))) return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>