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

<%@ LANGUAGE="VBSCRIPT" %> <%Response.Buffer=true%> <% Dim CommandText,ConnecObj Dim M_let,M_cont_id,M_coun_id,M_stat_id,M_city_id,M_cate_id,M_user_id,DefCurr,M_Selected_id(100,2),M_cPage Set ConnecObj=Server.CreateObject("ADODB.Connection") ConnecObj.Open "orientaljewels","plunia","PL765$" If Session("cont_id")="" then Session("cont_id")=8 Session("coun_id")=0 Session("stat_id")=0 Session("city_id")=0 End if M_cate_id=Request.QueryString("cate_id") M_cPage=Request.QueryString("cPage") If (M_cPage="") then M_cPage=1 rowCount = 0 End if CommandText="Select * from buyerTB where UPPER(user_id) IN (Select UPPER(user_id) from sellerTB where cate_id=" & M_cate_id & ")" Set RS_seller = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) prodStr="" bktoStr="" i=0 M_arrLimit=0 WHILE (NOT RS_seller.EOF) If (Request.QueryString(RS_seller("user_id"))<>"") then i=i+1 M_arrLimit = M_arrLimit + 1 M_Selected_id(i,1)=RS_seller("user_id") M_Selected_id(i,2)=Request.QueryString(RS_seller("user_id")) '*******bktoStr used to send parameter with bkto*********** bktoStr = bktoStr & "&" & M_Selected_id(i,1) & "=" & M_Selected_id(i,2) '********************************************************** '******* string formation for searching product/services for selected sellers*********** prodStr = prodStr & " OR UPPER(user_id)='" & UCASE(M_Selected_id(i,1)) & "'" '*************************************************************************************** End if RS_seller.MoveNext WEND M_cont_id=Session("cont_id") M_coun_id=Session("coun_id") M_stat_id=Session("stat_id") M_city_id=Session("city_id") M_user_id=Session("user_id") If (M_user_id="") then Response.ReDirect "intm_login.asp?bkto=startshopping.asp?cate_id=" & M_cate_id & bktoStr Else CommandText="Select * from buyerTB where user_id='" & TRIM(M_user_id) & "'" Set RS_user = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) End if LocStr="" CommandText="Select cont_name from continTB where cont_id=" & M_cont_id Set RS_cont = Server.CreateObject("ADODB.Recordset") RS_cont.Open CommandText, ConnecObj If (NOT RS_cont.EOF) then LocStr=RS_cont("cont_name") CommandText="Select * from countrTB where coun_id=" & M_coun_id & " AND cont_id=" & M_cont_id Set RS_coun = Server.CreateObject("ADODB.Recordset") RS_coun.Open CommandText, ConnecObj If (NOT RS_coun.EOF) then LocStr = LocStr & " - " & RS_coun("coun_name") DefCurr = RS_coun("currency") CommandText="Select stat_name from stateTB where stat_id=" & M_stat_id & " AND coun_id=" & M_coun_id Set RS_stat = Server.CreateObject("ADODB.Recordset") RS_stat.Open CommandText, ConnecObj If (NOT RS_stat.EOF) then LocStr = LocStr & " - " & RS_stat("stat_name") CommandText="Select city_name from cityTB where city_id=" & M_city_id & " AND stat_id=" & M_stat_id & " AND coun_id=" & M_coun_id Set RS_city = Server.CreateObject("ADODB.Recordset") RS_city.Open CommandText, ConnecObj If (NOT RS_city.EOF) then LocStr = LocStr & " - " & RS_city("city_name") End if End if End if End if CommandText = "Select * from categoTB where cate_id=" & cINT(M_cate_id) Set RS_cate = ConnecObj.Execute(CommandText,RecoredsAffected,adCmdText) %> Action4bid.com - The most easiest and innovative way of business

ORIENTAL JEWELS INC.

301 EAST 47^thStreet #14A NEW YORK, N.Y.-10017

TELEPHONE : 212-486-0423 FAX: 212-759-4434

SHOP at A c t i o n 4 b i d

<% '***********Selecting all the products/services belonging to selected sellers ******** CommandText = "Select * from storeTB where user_id='dummy' " & prodStr & " ORDER BY user_id" SET RS_prods = Server.CreateObject("ADODB.Recordset") RS_prods.CursorType = adOpenStatic RS_prods.PageSize = 20 RS_prods.Open CommandText,ConnecObj If (RS_prods.EOF) then Response.write "Sorry, No products/services found..." Else RS_prods.AbsolutePage = cINT(M_cPage) Response.write "Check the Item / Brand Name you like and if NO items suits you click 'Inquire All' to raise the inquiry for all in this category.

" Response.write "Page No: " + cStr(M_cPage) + "
" End if '************************************************************************************* %>

<% WHILE (NOT RS_prods.EOF AND rowCount < RS_prods.PageSize) %>

Order FOR	# Item Code	Brand / Item Name	Seller	Currency	Price	Catalogue	Valid up to	Quantity
" value="1">	# <%=RS_prods("item_id")%>	<%=RS_prods("brd_itm_name")%>	<%CommandText = "Select * from buyerTB where UPPER(user_id)='" & UCASE(RS_prods("user_id")) & "'" Set RS_prodseller = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) Response.write RS_prodseller("organisation") & " ( " & RS_prodseller("f_name") & " " & RS_prodseller("l_name") & " )" %>	<%=RS_prods("currency")%>	<%=FormatNumber(RS_prods("price"),2)%>	<% If (TRIM(RS_prods("catalogue"))="" or TRIM(RS_prods("catalogue")="http://")) then Response.write " " Else%> "> site <% End if%>	<%=DateAdd("m",RS_prods("max_limit"),RS_prods("date"))%>	<% rowCount = rowCount + 1 RS_prods.MoveNext WEND %>

<% i=1 WHILE (i<=M_arrLimit) %> <% i=i+1 WEND %>

<% Response.write "

" Response.write "

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

" %>

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

(C) Copyright 2000 Indiangyan.com Pvt. Ltd.

Home