<%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_user_id,qrystr,M_no_inq,M_no_rep,M_off_id M_rep_id = Request.QueryString("rep_id") M_replyoff = Request.QueryString("replyoff") 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 '************Accessing the reply******************** CommandText = "Select * from repliesTB where rep_id=" & M_rep_id Set RS_rep = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) If (NOT RS_rep.EOF) then CommandText = "UPDATE repliesTB set visited=1 where rep_id=" & M_rep_id Set RS_upd = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) End if '*************************************************** %>


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

 As Buyer
Reply Details
 
">
Subject : <%=RS_rep("subject")%>
 
Reply <%=RS_rep("reply")%>
   
"> <% If (M_replyoff="true") then%> <% 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