<%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj Dim M_let,M_cont_id,M_coun_id,M_stat_id,M_city_id,M_cPage,rowCount,M_dblet M_dblet = Request.QueryString("dblet") M_let = LEFT(M_dblet,1) M_cPage=Request.QueryString("cPage") If Session("cont_id")="" then Session("cont_id")=8 Session("coun_id")=0 Session("stat_id")=0 Session("city_id")=0 End if M_cont_id=Session("cont_id") M_coun_id=Session("coun_id") M_stat_id=Session("stat_id") M_city_id=Session("city_id") Set ConnecObj=Server.CreateObject("ADODB.Connection") ConnecObj.Open "orientaljewels","plunia","PL765$" LocStr="" CommandText="Select cont_name from continTB where cont_id=" & M_cont_id Set RS_cont = Server.CreateObject("ADODB.Recordset") RS_cont.Open CommandText, ConnecObj If (NOT RS_cont.EOF) then LocStr=RS_cont("cont_name") CommandText="Select coun_name from countrTB where coun_id=" & M_coun_id & " AND cont_id=" & M_cont_id Set RS_coun = Server.CreateObject("ADODB.Recordset") RS_coun.Open CommandText, ConnecObj If (NOT RS_coun.EOF) then LocStr = LocStr & " - " & RS_coun("coun_name") CommandText="Select stat_name from stateTB where stat_id=" & M_stat_id & " AND coun_id=" & M_coun_id Set RS_stat = Server.CreateObject("ADODB.Recordset") RS_stat.Open CommandText, ConnecObj If (NOT RS_stat.EOF) then LocStr = LocStr & " - " & RS_stat("stat_name") CommandText="Select city_name from cityTB where city_id=" & M_city_id & " AND stat_id=" & M_stat_id & " AND coun_id=" & M_coun_id Set RS_city = Server.CreateObject("ADODB.Recordset") RS_city.Open CommandText, ConnecObj If (NOT RS_city.EOF) then LocStr = LocStr & " - " & RS_city("city_name") End if End if End if End if CommandText = "Select * from categoTB where UPPER(LEFT(cate_name,2))='" & TRIM(UCASE(M_dblet)) & "'" Set RS_cate = ConnecObj.Execute(CommandText,RecoredsAffected,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



I n q u i r e   i n   C a t e g o r i e s

Present working location: *<%=LocStr%>*                    
Change Location

To choose category click on the first two alphabets of the category you want (like IN for Insurance)

Start Alphabets:-
<%=M_let%>A <%=M_let%>B <%=M_let%>C <%=M_let%>D <%=M_let%>E <%=M_let%>F <%=M_let%>G <%=M_let%>H <%=M_let%>I <%=M_let%>J <%=M_let%>K <%=M_let%>L <%=M_let%>M <%=M_let%>N <%=M_let%>O <%=M_let%>P <%=M_let%>Q <%=M_let%>R <%=M_let%>S <%=M_let%>T <%=M_let%>U <%=M_let%>V <%=M_let%>W <%=M_let%>X <%=M_let%>Y <%=M_let%>Z

Or
Select the category for the "product/service" you want to look into or click "Inquire" for inquire to all the category members - - -

<% Set RS_LetCate = Server.CreateObject("ADODB.Recordset") If (M_cPage="") then M_cPage=1 rowCount = 0 End if RS_LetCate.CursorType = adOpenStatic RS_LetCate.PageSize = 20 CommandText = "Select * from categoTB where LEFT(UPPER(cate_name),2)='" & TRIM(UCASE(M_dblet)) & "'" RS_LetCate.Open CommandText,ConnecObj If (RS_LetCate.EOF) then Response.write "

Sorry, right now there is no categories available starting from the specified alphabet. Action4bid will try to cover them as soon as possible.



" Else RS_LetCate.AbsolutePage = cINT(M_cPage) Response.write "Page No: " + cStr(M_cPage) + "
" End if %> <% WHILE (NOT RS_LetCate.EOF AND rowCount < RS_LetCate.PageSize) If ((rowCount mod 2) = 0) then %>
Inquire
to all
Inquiry Category Name Explore category
"> Inquire "><%=RS_LetCate("cate_name")%> ">Show All <% Else %>
"> Inquire "><%=RS_LetCate("cate_name")%> ">Show All <% End if rowCount = rowCount + 1 RS_LetCate.MoveNext WEND %>
     
<% Response.write "


" Response.write "

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

Jewellery

    

Products

 

  Services      

  Contact      

  Home