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

ADS MANAGER
DISPLAY ADS BANNER :	<% if myAdsStatus = "on" then %> <% else %> <% end if %>
ADS BANNER URL :
CURRENT ADS BANNER :	<% if len(myAds) > 0 then %> <% = myAds %> <% end if %>
UPLOAD NEW ADS BANNER :

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