<% dim ind,cat,lent cat = 50 ind = "009004" lent = 6 %> Trade Details of Bar Accessories,manufacturers and trade directory of Bar Accessories from India <% handicrafts_top "Trade Leads","" %> <% Sql = "select cat_id,pagename from Products_Master where cat_id in (select cat_id from category where index1 like '" & ind & "%')" set rst =server.CreateObject("Adodb.Recordset") rst.Open sql,db,3,2 %>
<% baseprdLink = "http://handicrafts.easy2source.com/products/" If rst.RecordCount > 0 Then %>
Product Categories
<% Do While Not rst.EOF dirSupp = baseprdLink & getFolderName(rst("cat_id")) if cstr(rst("cat_id")) <> cstr(rst("pagename")) then dirSupp = dirSupp & rst("pagename") &".htm" ProductName = GetFieldValue("Pagetitle", "Products_Master", "pagename", rst("pagename")) response.write ""&ProductName&"
" rst.MoveNext Loop %>
<%End If rst.Close %>

<% baseprdLink = "http://handicrafts.easy2source.com/directory/" Set RsSuppCoun = server.CreateObject("Adodb.Recordset") Set RsInnCoun = server.CreateObject("Adodb.Recordset") Sql = "select * from category where index1 like '" & ind & "%' order by category" rst.Open sql,db,3,2 If rst.RecordCount > 0 Then SuppCoun = "Select top 1 Supplier_id from cat where cat_id in (Select cat_id from Category where index1 like '"&ind&"%' )" RsSuppCoun.open SuppCoun,db,3,2 if not RsSuppCoun.eof then %>
Supplier Directory
<% Do While Not rst.EOF InnCoun = "Select Supplier_Id from cat where cat_id = "&rst("Cat_id") RsInnCoun.open InnCoun,db,3,2 if not RsInnCoun.eof then dirProd = baseprdLink & getFolderName(rst("cat_id")) response.write ""&rst("category")&"
" end if RsInnCoun.close rst.MoveNext Loop %>

<% end If RsSuppCoun.close End If %>
Home >> Trade Search >> Accessories Products >> Bar Accessories :
( Trade Details of Bar Accessories,manufacturers and trade directory of Bar Accessories from India )
Search Result:   0 Buy , 1 Sell and 0 Biz Leads
Narrow your search by selecting a category
All Leads Buy Sell Biz
<% if name <> "" and suid <> "" then %> <% else %> <% end if %>
<%if name <> " and suid <> " then %> Post Your Trade Lead (Free)    <%else %> Post Your Trade Lead (Free)    <%end if%>
Search Result : Trade Lead 1 to 1 of 1
Select All
Clear All
ROYAL ARTS Sell
Title: Test Subject
Description : This details r written by amit on behalf of handicrafts.
Post on : 12/27/2006 11:41:00 PM
Send : <% if name <> "" and suid <> "" then tin = "http://handicrafts.easy2source.com/TradeRegInq.asp?cat=50&ind=009004&lead=5" else tin = "http://handicrafts.easy2source.com/tradeInq.asp?cat=50&ind=009004&lead=5" end if %> On-Line Trade Inquiry
Select All
Clear All
Result Page : 1


| Handicrafts Home | Handicrafts Directory | Handicrafts Products |
--------------------------------------------------------------------------------
Website Development and Search Engine Optimization by : Aditya Infotech
Copyright © 2006 Netlink Solutions (India) Ltd. All rights reserved, including the right to reproduce the contents of this website in whole or in part without prior written permission