<%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_user_id,qrystr,M_no_rep,M_cPage,M_no_rep_new 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 '**1. Fetching Replies*** '*****New Replies**** CommandText = "Select DISTINCT * from repliesTB where to_id='" & M_user_id & "' AND visited=0 ORDER BY rep_date DESC" Set RS_rep_new = Server.CreateObject("ADODB.Recordset") RS_rep_new.CursorType = adOpenStatic RS_rep_new.Open CommandText,ConnecObj M_no_rep_new=RS_rep_new.RecordCount '*****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 '***End 1.**** %>


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

 As Buyer

" Else %> Page No: <%=cStr(M_cPage)%>
Replies     Received

<%=M_no_rep_new%> New - Total <%=M_no_rep%> Replies

<% If (RS_rep.EOF) then Response.write "

There is no replies for you in your in box...

" Response.write "
<% WHILE (NOT RS_rep.EOF) If (RS_rep("visited")=0) then Response.write "" Else Response.write "" End if %> <% RS_rep.MoveNext WEND %> <%End if%>

              

  Reply From Subject Date
" value="<%=RS_rep("rep_id")%>"> <% CommandText="Select * from buyerTB where UPPER(user_id)='" & UCASE(RS_rep("to_ID")) & "'" Set RS_fromID = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) Response.write RS_fromID("f_name") & " " & RS_fromID("l_name") %> <% '****************Identifying that is reply from a seller so that buyer can order **** CommandText="Select * from sellerTB where UPPER(user_id)='" & UCASE(M_user_id) & "'" Set RS_sell = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) If (NOT RS_sell.EOF) then%> &replyoff=true"> <% Else%> "> <%End if '************************************************************************************ %> <%=RS_rep("subject")%> <%=RS_rep("rep_date")%>
       
<% Response.write "


" Response.write "

Page No: " For i=1 to RS_rep.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