<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim rs dim sub_category_description %> <% ssql = "select * from tbl_sub_category where sub_category_id = '" & Request.QueryString("sub_category_id") & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if len(trim(rs("sub_category_description"))) > 0 then sub_category_description = replace(rs("sub_category_description"),"
",vbcrlf, 1, -1, 1) end if dim objfs dim objfile dim myCatStatus set objfs = server.CreateObject("scripting.FileSystemObject") if objfs.FileExists(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/cat" & rs("sub_category_id") & ".txt")) = true then set objfile = objfs.OpenTextFile(server.MapPath("../../../../../member/" & Request.Cookies("storename") & "/cat" & rs("sub_category_id") & ".txt"),1,-1,0) myCatStatus = objfile.ReadLine objfile.close set objfile = nothing end if set objfs = nothing %>

EDIT PRODUCT SUB CATEGORY
SUB CATEGORY NAME :
SHOW ALL :	<% if myCatStatus = "on" then %> <% else %> <% end if %>
DESCRIPTION :	<% = sub_category_description %>
','_self')" />

<% rs.Close conn.Close set rs = nothing set conn = nothing else Response.Redirect "../../index.asp" end if %>