%@ 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

|
|
Order Sent
|
| |
<%
If (RS_ord.EOF) then
Response.write "
Till now there is no orders for you... "
Response.write " | "
Else %>
|
|
Page No: <%=cStr(M_cPage)%>
| S.No. |
Order Sent to |
Product Name |
Order Date |
Price |
Check Details |
<%
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)
'********************************************************************
%>
<%=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
%>
|
| |
|
|
|
|
|
<%End if%>
<%
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%>
|
|