<%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_user_id,qrystr,M_no_inq,M_no_rep,M_cPage M_cPage=Request.QueryString("cPage") If (M_cPage="") then M_cPage=1 rowCount = 0 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_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 orders for sellers***************** CommandText = "Select DISTINCT * from orderTB where UPPER(from_id)='" & UCASE(M_user_id) & "' ORDER BY ord_date DESC" Set RS_ord = Server.CreateObject("ADODB.Recordset") RS_ord.CursorType = adOpenStatic RS_ord.PageSize = 20 RS_ord.Open CommandText,ConnecObj M_no_ord=RS_ord.RecordCount If (NOT RS_ord.EOF) then RS_ord.AbsolutePage = cINT(M_cPage) End if '***End 1.**** '***********End Fetching ******************************************************** %>


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

 As Buyer

" Else %>
Order     Sent
 
<% If (RS_ord.EOF) then Response.write "

Till now there is no orders for you...

" Response.write "

Page No: <%=cStr(M_cPage)%>
<% WHILE (NOT RS_ord.EOF AND rowCount < RS_ord.PageSize) If ((rowCount mod 2) = 0) then '*********Getting details of the seller to which order is sent******* CommandText = "Select * from buyerTB where UPPER(user_id)='" & UCASE(RS_ord("to_ID")) & "'" Set RS_sell = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) '******************************************************************** %> <%End if%>
S.No. Order Sent to Product Name Order Date Price Check Details
<%=rowCount+1%> <%Response.write RS_sell("organisation") & "
( " Response.write RS_sell("f_name") & " " Response.write RS_sell("l_name") & " )" %>
<%=RS_ord("prod_name")%> <%=RS_ord("ord_date")%> <%=RS_ord("price")%> "> Details... <% Else %>
<%=rowCount+1%> <%Response.write RS_sell("organisation") & "
( " Response.write RS_sell("f_name") & " " Response.write RS_sell("l_name") & " )" %>
<%=RS_ord("prod_name")%> <%=RS_ord("ord_date")%> <%=RS_ord("price")%> "> Details... <% End if rowCount = rowCount + 1 RS_ord.MoveNext WEND %>
           
<% Response.write "


" Response.write "

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

" %>

[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