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

<%@ LANGUAGE="VBSCRIPT" %> <% Dim CommandText,ConnecObj,ConnecObj2,M_Selected_id(50,2),M_UBound 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 Dim M_from_id,M_to_id,M_prod_name,M_ord_date,M_price,M_ref_no,M_delivery_pt,M_mode_of_pymt Dim M_pymt_spec,M_fre_tax_incl,M_order_text,M_special_remarks M_user_id = Session("user_id") M_from_id = M_user_id M_to_id = Request.Form("order_to") M_prod_name = Replace(Request.Form("prod_name"),"'","''") M_ord_date = Replace(Request.Form("ord_date"),"'","''") M_price = Replace(Request.Form("price"),"'","''") 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_prod_name))=0 ) then err_str = err_str + "

You have not specified product/service for order.

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

You have not entered price or bid settled for the product or service.

" flag_RDirect = "true" End if 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 If (LEN(TRIM(M_ord_date))=0 ) then err_str = err_str + "

You should specify your order date.

" flag_RDirect = "true" Else If (InStr(M_ord_date,"/")=0 ) then err_str = err_str + "

Date is not in specified standard.

" flag_RDirect = "true" Else ON ERROR RESUME NEXT M_ord_date=FormatDateTime(cDATE(M_ord_date),2) If (M_ord_date="") then M_ord_date=Date() End if fakeObj.Blah End if End if '********************************************************************************************** %> 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 (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 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 & "','" & M_prod_name & "','" & M_ord_date & "'," & M_price & ",'" & 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 If (RecordsAffected>0) then %>

Success!

Your order is successfully submitted and it will be forwarded automatically to the respective Seller. <% Else%>

Sorry!

Due to unkown reason your order is NOT submitted please try again and if this persists please contact us. <% 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