<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim rs dim category_description %> <% ssql = "select * from tbl_category where category_id = '" & Request.QueryString("category_id") & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if len(trim(rs("category_description"))) > 0 then category_description = replace(rs("category_description"),"
",vbcrlf, 1, -1, 1) end if %>

EDIT PRODUCT CATEGORY
CATEGORY NAME :
DESCRIPTION :	<% = category_description %>
','_self')" />

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