<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim category_rs dim sub_category_rs dim ssql %> <% ssql = "select category_id, category_name from tbl_category order by category_name" set category_rs = server.CreateObject("adodb.recordset") category_rs.Open ssql,conn,3,3 ssql = "select sub_category_id, sub_category_name from tbl_sub_category order by sub_category_name" set sub_category_rs = server.CreateObject("adodb.recordset") sub_category_rs.Open ssql,conn,3,3 %>

<% '---------------------------------------------------------------------------------------------- '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" '---------------------------------------------------------------------------------------------- %>

NEW PRODUCT ITEM
PRODUCT CODE :
CATEGORY :	<% do until category_rs.eof %> <% = ucase(category_rs("category_name")) %> <% category_rs.MoveNext loop %>
SUB CATEGORY :	<% do until sub_category_rs.eof %> <% = ucase(sub_category_rs("sub_category_name")) %> <% sub_category_rs.MoveNext loop %>
PRODUCT NAME :
MEMBER PRICE :	<% = session("company_currency_format") %>
RETAIL PRICE :	<% = session("company_currency_format") %>
PUBLISH ON STORE :
PUBLISH AS LATEST PRODUCT :
DETAILS :
IMAGE :

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