<%@ Language=VBScript %> <%Response.Buffer =true Server.ScriptTimeout = 600%> Aglowmed Limited

India

<% set rs=CreateObject("ADODB.Recordset") sql="select * from Category_Master" rs.Open sql,conn,3,2 while not rs.EOF %> <%if rs("content_Id")=int(request("catid")) then set rs1=Createobject("ADODB.Recordset") sql1="select * from SubCategory_Master where Category_ID="& rs("content_ID") &"" rs1.Open sql1,conn,3,2 while not rs1.EOF %> <%rs1.movenext wend rs1.close() end if rs.movenext wend rs.Close() %>
Home  »  Operations  »   India  »  <% set rs1=CreateObject("ADODB.Recordset") sql1="select * from Category_Master where Content_ID="&request("catid")&"" rs1.Open sql1,conn,3,2 Response.Write(rs1("Category_Name")) rs1.close() %>
<%if request("subcatid")="" then set rs1=CreateObject("ADODB.Recordset") sql1="select TOP 1 * from SubCategory_Master where Category_ID="&request("catid")&"" rs1.Open sql1,conn,3,2 subcatid=rs1("Content_Id") else subcatid=Request("subcatid") end if set catrs=CreateObject("ADODB.Recordset") catsql="select * from Product_Master where Subcategory_Id="&subcatid&"" catrs.Open catsql,conn,3,2 while not catrs.EOF %>

<%=catrs("Product_Name")%>

<%=catrs("Product_details")%>

" alt="<%=catrs("Product_Name")%>" />
<%catrs.movenext wend catrs.Close()%>