<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim ssql dim rs dim sub_category_rs dim category_rs dim sDetails %> <% ssql = "select * from tbl_category order by category_name" set category_rs = server.CreateObject("adodb.recordset") category_rs.Open ssql,conn ssql = "select * from tbl_sub_category order by sub_category_name" set sub_category_rs = server.CreateObject("adodb.recordset") sub_category_rs.Open ssql,conn ssql = "select * from tbl_product where product_id = '" & Request.QueryString("product_id") & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 if len(rs("product_details")) > 0 then sDetails = replace(rs("product_details"), "
", vbcrlf, 1, -1, 1) end if %>

<% '---------------------------------------------------------------------------------------------- 'The following onload event needs to be placed into the body tag for the web page you 'are placing the RTE into to initialise the Javascript for the Web Wiz Rich Text Editor (RTE):- 'OnLoad="initialiseWebWizRTE();" 'The following needs to be placed on the line above the textarea that you wish to be 'replaced with the Web Wiz Rich Text Editor (RTE). '---------------------------------------------------------------------------------------------- Dim strFormName Dim strTextAreaName 'Edit the intilised variables below to put in the name of your textrea's ID and the name 'of the form the textarea is within 'Name of the HTML form the textarea is within strFormName = "myform" 'ID tag name of HTML textarea being replaced strTextAreaName = "product_details" '---------------------------------------------------------------------------------------------- %>

EDIT PRODUCT ITEM
PRODUCT CODE :
CATEGORY :	<% do until category_rs.eof if category_rs("category_id") = rs("product_category_id") then %> <% = ucase(category_rs("category_name")) %> <% else %> <% = ucase(category_rs("category_name")) %> <% end if category_rs.MoveNext loop %>
SUB CATEGORY :	<% do until sub_category_rs.eof if sub_category_rs("sub_category_id") = rs("product_sub_category_id") then %> <% = ucase(sub_category_rs("sub_category_name")) %> <% else %> <% = ucase(sub_category_rs("sub_category_name")) %> <% end if sub_category_rs.MoveNext loop %>
PRODUCT NAME :
MEMBER PRICE :	<% = session("company_currency_format") %>
RETAIL PRICE :	<% = session("company_currency_format") %>
PUBLISH ON STORE :	<% if rs("product_status") = "on" then %> <% else %> <% end if %>
PUBLISH AS LATEST PRODUCT :	<% if rs("show_as_latest_product") = "on" then %> <% else %> <% end if %>
DETAILS :	<% = sDetails %>
CURRENT IMAGE :	<% if len(rs("product_images")) > 0 then %> <% = rs("product_images") %> <% end if %>
UPLOAD NEW IMAGE :
&product_images=<% = rs("product_images") %>','_self')" />

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