<%@ LANGUAGE="VBSCRIPT" %> <%Response.Buffer=true%> <% Dim CommandText,ConnecObj Dim M_item_id,M_Selected_id(100,2) M_item_id = Request.QueryString("item_id") M_cate_id = Request.QueryString("cate_id") 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 ErrMess = "TIMEOUT ... Your user session is Expired, Please go back and relogin from from the Main page and collect your items again" End if M_user_id = Session("user_id") 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_cont_id=Session("cont_id") M_coun_id=Session("coun_id") M_stat_id=Session("stat_id") M_city_id=Session("city_id") %> 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

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

<% 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) qryStr="" i=0 M_arrLimit=0 WHILE (NOT RS_seller.EOF) If (Request.QueryString(RS_seller("user_id"))<>"") then 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*********** qryStr = qryStr & "&" & M_Selected_id(i,1) & "=" & M_Selected_id(i,2) '********************************************************** End if i=i+1 RS_seller.MoveNext WEND Response.write "

Shopping Cart
(Selected Products/Services Details)


" %>
<% If (ErrMess<>"") then Response.write ErrMess Else '************* ItemNos = Session("ItemNoArray") ItemQtys = Session("ItemQtyArray") '********** checkFlag="false" For j=1 to UBOUND(ItemNos,1) If cINT(ItemNos(j)) = cINT(M_item_id) then ItemNos(j) = -1 checkFlag="true" Exit For End if NEXT '****************************************************************************************************** Session("shopCartItems")= cINT(Session("shopCartItems"))-1 '*******subtracting total items '***********Putting Back the Selected Items data into session variables* Session("ItemNoArray") = ItemNos Session("ItemQtyArray")= ItemQtys '*********************************************************************** Response.ReDirect "addToCart.asp?cate_id=" & M_cate_id & qryStr End if 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