Action4bid.com - The most easiest and innovative way of business

S e l e c t & I n q u i r e

Present working location: *<%=LocStr%>*
Change Location

Business Category: *<%=RS_cate("cate_name")%>*

<% Set RS_LetCate = Server.CreateObject("ADODB.Recordset") If (M_cPage="") then M_cPage=1 rowCount = 0 End if RS_LetCate.CursorType = adOpenStatic RS_LetCate.PageSize = 20 '***************Selection of seller within the working location specified by the user************ If (cINT(M_cont_id)=8) then CommandText = "Select * from buyerTB where UPPER(user_id) IN (SELECT UPPER(user_id) FROM sellerTB WHERE cate_id=" & cINT(M_cate_id) & ")" Else CommandText = "Select * from buyerTB where UPPER(user_id) IN (SELECT UPPER(user_id) FROM sellerTB WHERE cate_id=" & cINT(M_cate_id) & " AND cont_id=" & cINT(M_cont_id) & ")" If (cINT(M_coun_id)<>0) then CommandText = "Select * from buyerTB where UPPER(user_id) IN (SELECT UPPER(user_id) FROM sellerTB WHERE cate_id=" & cINT(M_cate_id) & " AND cont_id=" & cINT(M_cont_id) & " AND coun_id=" & cINT(M_coun_id) & ")" End if If (cINT(M_stat_id)<>0) then CommandText = "Select * from buyerTB where UPPER(user_id) IN (SELECT UPPER(user_id) FROM sellerTB WHERE cate_id=" & cINT(M_cate_id) & " AND cont_id=" & cINT(M_cont_id) & " AND coun_id=" & cINT(M_coun_id) & " AND stat_id=" & cINT(M_stat_id) & ")" End if If (cINT(M_city_id)<>0) then CommandText = "Select * from buyerTB where UPPER(user_id) IN (SELECT UPPER(user_id) FROM sellerTB WHERE cate_id=" & cINT(M_cate_id) & " AND cont_id=" & cINT(M_cont_id) & " AND coun_id=" & cINT(M_coun_id) & " AND stat_id=" & cINT(M_stat_id) & " AND city_id=" & cINT(M_city_id) & ")" End if End if '************************************************************************************************ RS_LetCate.Open CommandText,ConnecObj If (RS_LetCate.EOF) then Response.write "

Right now there is no seller available under this Business category BUT You can still inquire and Action4bid will try to catch inquire to some offers for you.

CLICK ON Inquire All to raise an inquiry.

" If (cINT(M_cont_id)<>8) then Response.write "

Hint: You can try again using different working location or broad your working location geographically.

" End if Response.write "

" Else RS_LetCate.AbsolutePage = cINT(M_cPage) Response.write "Page No: " + cStr(M_cPage) + "
"%> <% End if WHILE (NOT RS_LetCate.EOF AND rowCount < RS_LetCate.PageSize) '******SellerTB Access and data retrival for display***** Set RS_SellData = Server.CreateObject("ADODB.Recordset") CommandText="Select * from sellerTB where UPPER(user_id)='" & UCASE(RS_LetCate("user_id")) & "'" RS_SellData.Open CommandText,ConnecObj '******************************************************** If ((rowCount mod 2) = 0) then %>


Inquire to	Company Name	Brands	Phone	Country	E-mail	Complete
" value="1">	<%=RS_LetCate("organisation")%>	<%=RS_SellData("brand_name1")%> <%=RS_SellData("brand_name2")%>	<%=RS_LetCate("telephone")%>	<%=RS_LetCate("Country")%>	<%=RS_LetCate("email")%>	&cate_id=<%=M_cate_id%>">Profile--- <% Else %>
" value="1">	<%=RS_LetCate("organisation")%>	<%=RS_SellData("brand_name1")%> <%=RS_SellData("brand_name2")%>	<%=RS_LetCate("telephone")%>	<%=RS_LetCate("Country")%>	<%=RS_LetCate("email")%>	&cate_id=<%=M_cate_id%>">Profile--- <% End if rowCount = rowCount + 1 RS_LetCate.MoveNext WEND %>

<% Response.write "

" Response.write "

Page No: " For i=1 to RS_LetCate.PageCount %> <%=i%> <% next Response.write "

" %>

[Change location] [Buyer's Guide Tour] [Seller's Guide Tour]
[Help Desk] [Contact Us]