<% option explicit Response.Buffer = true if session("company_id") <> "" then dim objfs dim objfile dim myTerms dim myTermStatus set objfs = server.CreateObject("scripting.FileSystemObject") if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/terms.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/terms.txt"),1,-1,0) myTerms = objfile.ReadLine objfile.close set objfile = nothing end if if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/terms_status.txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/terms_status.txt"),1,-1,0) myTermStatus = objfile.ReadLine objfile.close set objfile = nothing end if set objfs = nothing %>

ORDERING TERM
DISPLAY TERM :	<% if myTermStatus = "on" then %> <% else %> <% end if %>
TERMS :	<% = myTerms %>

<% else Response.Redirect "../../index.asp" end if %>