<%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_user_id,qrystr,M_no_inq,M_no_rep 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_user_id=Session("user_id") CommandText="Select * from buyerTB where UPPER(user_id)='" & UCASE(M_user_id) & "'" Set RS_buyer = 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_buyer.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 '***********Fetching all the inquiries and replies to the seller***************** '**1. Fetching Inquiries*** '***********Getting user belonging business category************ CommandText="Select * from sellerTB where UPPER(user_id)='" & UCASE(M_user_id) & "'" Set RS_cate = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) M_cate_id = RS_cate("cate_id") M_cont_id = RS_cate("cont_id") M_coun_id = RS_cate("coun_id") M_stat_id = RS_cate("stat_id") M_city_id = RS_cate("city_id") '*************************************************************** '*********Making the query string for the selection of inquiries belonging******* qrystr = "(cont_id=8 OR cont_id=" & cINT(M_cont_id) & ") AND (coun_id=0 OR coun_id=" & cINT(M_coun_id) & ") AND (stat_id=0 OR stat_id=" & cINT(M_stat_id) & ") AND (city_id=0 OR city_id=" & cINT(M_city_id) & ")" '******************************************************************************** '***All inquiries*** CommandText = "Select DISTINCT * from inquirTB where cate_id=" & cINT(M_cate_id) & " AND (" & qrystr & ") ORDER BY inq_date DESC" Set RS_inq = Server.CreateObject("ADODB.Recordset") RS_inq.CursorType = adOpenStatic RS_inq.Open CommandText,ConnecObj M_no_inq=RS_inq.RecordCount '***End 1.**** '**2. Fetching Replies*** '*****All Replies**** CommandText = "Select DISTINCT * from repliesTB where to_id='" & M_user_id & "' ORDER BY rep_date DESC" Set RS_rep = Server.CreateObject("ADODB.Recordset") RS_rep.CursorType = adOpenStatic RS_rep.Open CommandText,ConnecObj M_no_rep=RS_rep.RecordCount '*****New Replies**** CommandText = "Select DISTINCT * from repliesTB where to_id='" & M_user_id & "' AND visited=0 ORDER BY rep_date DESC" Set RS_rep = Server.CreateObject("ADODB.Recordset") RS_rep.CursorType = adOpenStatic RS_rep.Open CommandText,ConnecObj M_no_rep_new=RS_rep.RecordCount '***End 2.**** '***********End Fetching ******************************************************** %>


Welcome:  <%=M_user_id%>   to your INBOX at Action4bid.com 
 As Seller

  As Buyer

  LogOUT

 
 In -  Box  ( <%=M_no_rep_new%>  NEW Replies) - Total  <%=M_no_inq%> Inquiries
 
Inquiries Received: You can check the inquiries sent by the Action4bid's auto system against the inquiries submitted by the various buyers

 
Offers Sent: You can check your previous offers which are sent to different buyers from you against their inquiries.

 
Order Received: All orders which are placed by buyer to you. For any information from buyer you can use the reply option also.

 
Reply to Reply: Check the reply against the replies you sent to any seller for further individual inquiry. 

 
Special Offers / Discounts: You can give special offers and/or discounts to buyer to attract them for bigger orders and more sale. These offers and/or discounts will be displayed right at first page of the Action4bid.com.

 

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

(C) Copyright 2000 Indiangyan.com Pvt. Ltd.
<% End if%>

Jewellery

    

Products

 

  Services      

  Contact      

  Home