<%@ 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 Dim M_arrLimit If Session("shopCartItems")="" then Session("shopCartItems")=0 ReDim Preserve Dummy_ItemNos(0),Dummy_ItemQtys(0) Dummy_ItemNos(0) = "" Dummy_ItemQtys(0) = 0 Session("ItemNoArray") = Dummy_ItemNos Session("ItemQtyArray")= Dummy_ItemQtys End if 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 %> Action4bid.com - The most easiest and innovative way of business

ORIENTAL JEWELS INC.

301 EAST 47th  Street  #14A NEW YORK, N.Y.-10017

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

<% If Session("user_id")="" then%>

Action4bid - User Login



Invalid access - Please use login box to access your INBOX. Request through entering proper user ID and password is allowed ONLY.

<% Else 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="" postStr="" 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) '********************************************************** '*******Making selected sellers posting string *********** postStr = postStr & "" '********************************************************** '******* 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 '***************Getting all the items which are ordered and their respective quantities******* '*******1. Getting posted items **************** 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 M_arrLimit = UBOUND(Session("ItemNoArray"),1) '****Maximum Items selected '*****Getting latest collection of items ****** AllItemNos = Session("ItemNoArray") AllItemQtys = Session("ItemQtyArray") '*********************************************** '*********End************************************** '*******2. Getting posted Only Items details ****** '*******Making Query String****** prodSelectedQry="" For i=1 to UBOUND(AllItemNos,1) prodSelectedQry = prodSelectedQry & " OR item_id=" & cSTR(AllItemNos(i)) NEXT '******************************** CommandText = "Select * from storeTB where item_id=-1 " & prodSelectedQry & " ORDER BY currency" SET RS_selectedProds = Server.CreateObject("ADODB.Recordset") RS_selectedProds.CursorType = adOpenStatic RS_selectedProds.PageSize = 20 RS_selectedProds.Open CommandText,ConnecObj '********End*************************************** '********************************************************************************************* 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) %>


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

<% '***********Selecting all the products/services belonging to selected sellers ******** If (RS_selectedProds.EOF) then Response.write "Sorry, unable to find details of selected products/services ..." Else RS_prods.AbsolutePage = cINT(M_cPage) Response.write "

Order All - Shopping Cart
(Selected Products/Services Details)

" End if '************************************************************************************* %>
<% '*******posting sellers ******** Response.write postStr '******************************* %>
<% currencyTotal =0 If (NOT RS_selectedProds.EOF ) then M_LastCurr = RS_selectedProds("currency") End if WHILE (NOT RS_selectedProds.EOF AND rowCount < RS_selectedProds.PageSize) %> <% currencyTotal=0 M_LastCurr = RS_selectedProds("currency") End if End if '*************************************** WEND '*******Displaying the last currency total***** %> <% '************************************************ %>
#Item Code Brand / Item Name Seller (Qty. x Price) Currency Item Amount
#<%=RS_selectedProds("item_id")%> <%=RS_selectedProds("brd_itm_name")%> <%CommandText = "Select * from buyerTB where UPPER(user_id)='" & UCASE(RS_selectedProds("user_id")) & "'" Set RS_prodseller = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) Response.write RS_prodseller("organisation") & "
( " & RS_prodseller("f_name") & " " & RS_prodseller("l_name") & " )" %> 		<% i=1 WHILE (i<=M_arrLimit) If (AllItemNos(i) = RS_selectedProds("item_id")) then M_qty = AllItemQtys(i) Response.write M_qty & " x " & FormatNumber(RS_selectedProds("price"),2) currencyTotal = FormatNumber(currencyTotal,2) + cINT(AllItemQtys(i)) * FormatNumber(RS_selectedProds("price"),2) End if i=i+1 WEND %> <%=RS_selectedProds("currency")%> <%=FormatNumber(cINT(M_qty)*FormatNumber(RS_selectedProds("price"),2),2)%> <% rowCount = rowCount + 1 RS_selectedProds.MoveNext '*******Checking for currency change**** If (NOT RS_selectedProds.EOF) then If (RS_selectedProds("currency")<>M_LastCurr) then%>
Total * <%=M_LastCurr%> * <%=FormatNumber(currencyTotal,2)%>
 
Total * <%=M_LastCurr%> * <%=FormatNumber(currencyTotal,2)%>
           
 
Delivery Point:*
Mode of 
Payment:*
Money-Order
Credit-Card
Personal-Checks
Other

          

Payment 
Specifications:*
Freight & 
Taxes:
Included Excluded
Order Text:*
Special 
Remarks:

 

<%=QueryStr%> <% i=0 WHILE (i <% i=i+1 WEND %>               

<% End if %>

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

(C) Copyright 2000 Oriental Jewels Inc.

Jewellery

    

Products

 

  Services      

  Contact      

  Home