<%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim objfs
dim objfile
dim myTitle
dim myKeywords
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/web_site_title.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/web_site_title.txt"),1,-1,0)
myTitle = objfile.ReadLine
objfile.close
set objfile = nothing
end if
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/keywords.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/keywords.txt"),1,-1,0)
myKeywords = objfile.ReadLine
objfile.close
set objfile = nothing
end if
set objfs = nothing
%>
<%
else
Response.Redirect "../../index.asp"
end if
%>