%
option explicit
Response.Buffer = true
if session("company_id") <> "" then
dim conn
dim ssql
dim rs
dim copyright_notes
dim objfs
dim objfile
dim myCategoriesSetting
set objfs = server.CreateObject("scripting.FileSystemObject")
if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myCategoriesSetting.txt")) = true then
set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/myCategoriesSetting.txt"),1,-1,0)
myCategoriesSetting = 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("copyright_notes"))) > 0 then
copyright_notes = replace(rs("copyright_notes"),"
",vbcrlf, 1, -1, 1)
end if
%>