Action4bid.com - The most easiest and innovative way of business

<%@ LANGUAGE="VBSCRIPT" %> <%Response.Buffer=true%> <% Dim CommandText,ConnecObj Dim M_let,M_cont_id,M_coun_id,M_stat_id,M_city_id,M_cate_id,M_user_id,DefCurr,M_Selected_id(100,2),M_cPage Dim M_arrLimit Set ConnecObj=Server.CreateObject("ADODB.Connection") ConnecObj.Open "orientaljewels","plunia","PL765$" M_user_id=Session("user_id") If Session("cont_id")="" then Session("cont_id")=8 Session("coun_id")=0 Session("stat_id")=0 Session("city_id")=0 End if M_cate_id=Request.QueryString("cate_id") %> Action4bid.com - The most easiest and innovative way of business

ORIENTAL JEWELS INC.

301 EAST 47^thStreet #14A NEW YORK, N.Y.-10017

TELEPHONE : 212-486-0423 FAX: 212-759-4434

<% If Session("user_id")="" 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 '************Accepting the data ******* Dim M_from_id,M_ord_date,M_ref_no,M_delivery_pt,M_mode_of_pymt Dim M_pymt_spec,M_fre_tax_incl,M_order_text,M_special_remarks ReDim Preserve M_to_id(0) ReDim Preserve M_prod_name(0) ReDim Preserve M_price(0) M_from_id = M_user_id '********** i=1 ItemNos = Session("ItemNoArray") ItemQtys = Session("ItemQtyArray") WHILE (i<=UBOUND(ItemNos,1)) CommandText="Select * from storeTB where item_id=" & ItemNos(i) Set RS_seleItem = ConnecObj.Execute(CommandText,RecordsAffected,adCmdText) IF (NOT RS_seleItem.EOF) then ReDim Preserve M_to_id(UBOUND(M_to_id,1)+1) ReDim Preserve M_prod_name(UBOUND(M_prod_name,1)+1) ReDim Preserve M_price(UBOUND(M_price,1)+1) M_to_id(i) = RS_seleItem("user_id") M_prod_name(i) = RS_seleItem("brd_itm_name") M_price(i) = RS_seleItem("price") End if i=i+1 WEND M_ord_date = Replace(Request.Form("ord_date"),"'","''") M_ref_no = Replace(Request.Form("ref_no"),"'","''") M_delivery_pt = Replace(Request.Form("delivery_pt"),"'","''") M_mode_of_pymt = Replace(Request.Form("mode_of_pymt"),"'","''") M_pymt_spec = Replace(Request.Form("pymt_spec"),"'","''") M_fre_tax_incl = Replace(Request.Form("fre_tax_incl"),"'","''") M_order_text = Replace(Request.Form("order_text"),"'","''") M_special_remarks = Replace(Request.Form("special_remarks"),"'","''") '**************** Input Validation ************************************************************* Dim flag_Rdirect,err_str err_str="" If (LEN(TRIM(M_delivery_pt))=0 ) then err_str = err_str + "

You have not specified delivery point.

" flag_RDirect = "true" End if If (LEN(TRIM(M_pymt_spec))=0 ) then err_str = err_str + "

You have not specified perticulars about the payment in payment specification box.

" flag_RDirect = "true" End if If (LEN(TRIM(M_order_text))=0 ) then err_str = err_str + "

You have not specified perticulars in order text box.

" flag_RDirect = "true" End if '********************************************************************************************** CommandText="Select * from buyerTB where user_id='" & TRIM(M_user_id) & "'" Set RS_user = ConnecObj.Execute (CommandText,RecordsAffected,adCmdText) %>



SHOP at A c t i o n 4 b i d
<% If (flag_RDirect="true") then Response.write "You have made few mistakes like : (Please correct) " Response.write " " Response.write err_str Response.write " " %> Go Back and correct registration form and resubmit it. <% Else i=1 Ord_submitted = 0 WHILE (i<=UBOUND(ItemNos,1)) CommandText = "INSERT INTO orderTB (from_id,to_id,prod_name,ord_date,price,ref_no,delivery_pt,mode_of_pymt,pymt_spec,fre_tax_incl,order_text,special_remarks) VALUES ('" & M_from_id & "','" & M_to_id(i) & "','" & M_prod_name(i) & "','" & DATE() & "'," & M_price(i) & ",'" & M_ref_no & "','" & M_delivery_pt & "','" & M_mode_of_pymt & "','" & M_pymt_spec & "'," & M_fre_tax_incl & ",'" & M_order_text & "','" & M_special_remarks & "')" ConnecObj.Execute CommandText,RecordsAffected,adCmdText Ord_submitted = Ord_submitted + 1 If (RecordsAffected=0) then %> Sorry! Due to unkown reason your order is NOT submitted to <%=M_to_id(i)%> please try again and if this persists please contact us. <% End if i=i+1 WEND %> Success! Your <%=Ord_submitted%> orders are successfully submitted and it will be forwarded automatically to the respective Seller. <% End if %> <% End if %> [Change location] [Buyer's Guide Tour] [Seller's Guide Tour] [Help Desk] [Contact Us] (C) Copyright 2000 Indiangyan.com Pvt. Ltd.

Home