<%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim sTitle
dim sKeywords
dim return_page
dim objfs
dim objfile
%>
<%
sTitle = request.Form("title")
sKeywords = request.Form("keywords")
'update data
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/web_site_title.txt")) = true then
objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/web_site_title.txt"),0
end if
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/web_site_title.txt"),8,-1,0)
objfile.WriteLine sTitle
objfile.close
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/keywords.txt")) = true then
objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/keywords.txt"),0
end if
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/keywords.txt"),8,-1,0)
objfile.WriteLine sKeywords
objfile.close
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/index.htm")) = true then
objfs.DeleteFile server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/index.htm"),0
end if
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/index.htm"),8,-1,0)
objfile.WriteLine "" & sTitle & ""
objfile.WriteLine ""
objfile.WriteLine ""
objfile.WriteLine ""
objfile.WriteLine ""
objfile.WriteLine ""
objfile.close
set objfile = nothing
return_page = ""
Response.Write return_page
set objfs = nothing
else
Response.Redirect "../../index.asp"
end if
%>