<%@ LANGUAGE="VBSCRIPT" %> <%Response.Buffer="true"%> <% Dim CommandText,ConnecObj,ConnecObj2,M_item_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_item_id = Request.QueryString("item_id") M_user_id = Session("user_id") CommandText="SELECT * FROM buyerTB WHERE user_id='" & TRIM(M_user_id) & "'" Set RS_buyer = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) CommandText="SELECT * FROM sellerTB WHERE user_id='" & TRIM(M_user_id) & "'" Set RS_seller = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) %> 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 (RS_seller.EOF) 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 = "DELETE storeTB where item_id=" & M_item_id Response.write CommandText Set RS_itm = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) If (RecordsAffected<1) then Response.write "Due to Unknown problem Action4bid unable to REMOVE the item from your store ... Please contact us to remove the problem." Else Response.ReDirect "editstore.asp" End if %>

<% %>



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

(C) Copyright 2000 Oriental Jewels Inc.
<% End if%>

Jewellery

    

Products

 

  Services      

  Contact      

  Home