<%@ Language=VBScript%> <% Dim strPageCode,nmId strPageCode="33IMP03" session("usertype")="SUS" nmId=Request.QueryString("Id") %> Search Product category - <%=Application("Title")%>
<% dim NavigArray() Redim NavigArray(1,0) NavigArray(0,0) = "/fairregistration/admin/" NavigArray(1,0) = DIRECTORY_NAME Redim Preserve NavigArray(1,1) NavigArray(0,1) = RELATIVE_PATH NavigArray(1,1) = "View Product Category" Proc_TO_Display_NavigationPath NavigArray, "A" %>
View Category Details
<%dim rsspace set rsspace=server.CreateObject("ADODB.Recordset") rsspace.ActiveConnection=objConn rsspace.CursorType=1 rsspace.Open "Select ProdID,ProductName,Active from Products_Master where ProdID="& nmId &"" %> <%dim act if rsspace("ProductName")="Y" then act="Yes" else act="No" end if %>
Product Category Details
Category Code
<%=rsspace("ProdID")%>
Description
<%=rsspace("ProductName")%>
Active
<%=act%>
">
<% rsspace.Close set rsspace=nothing %>