<%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_user_id,qrystr,M_no_inq,M_no_rep,M_off_id M_reply_to = Request.Form("reply_to") 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 %>


Welcome:  <%=M_user_id%>   to your INBOX at Action4bid.com 
Post reply
 
Reply to : <% CommandText = "Select * from buyerTB where UPPER(user_id)='" & UCASE(M_reply_to) & "'" Set RS_rplto = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) If (NOT RS_rplto.EOF) then Response.write RS_rplto("f_name") & " " & RS_rplto("l_name") If (TRIM(RS_rplto("organisation"))<>"") then Response.write " ( " & RS_rplto("organisation") & " )" End if End if %>
Subject :
Reply Text :

      

[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