<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sOrder_Id dim intPrice dim i dim return_page dim ShippingCharges %> <% sOrder_Id = trim(Request.QueryString("system_order_id")) ssql = "select * from tbl_order_review where system_order_id = '" & sOrder_Id & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 intPrice = 0 i = 1 ShippingCharges = rs.Fields("shipping_charges") %>

SALES ORDER DETAILS

<% = ucase(rs("member_name")) %> <% = rs("member_address") %> TEL : <% = rs("member_phone") %> EMAIL : <% = ucase(rs("member_email")) %>

NO : <% = rs("order_id") %> DATE : <% = rs("order_date") %>

<% do until rs.EOF %> <% intPrice = intPrice + (rs("order_quantity") * rs("product_price")) i = i + 1 rs.MoveNext loop %>

NO	CODE	PRODUCT NAME	PRICE	QTY	AMOUNT
<% = i %>	<% = rs("product_code") %>	<% = rs("product_model") %>	<% = rs("product_price") %>	<% = rs("order_quantity") %>	<% = rs("order_quantity") * rs("product_price") %>
SHIPPING CHARGES <% = session("company_currency_format") %>					<% = ShippingCharges %>
TOTAL <% = session("company_currency_format") %>					<% = intPrice + ShippingCharges %>

<% rs.MoveFirst %>

PAYMENT INFO
PAYMENT TYPE <% = ucase(rs("payment_type")) %> PROCESS REFERENCE NUMBER <% = ucase(rs("reference_number")) %> CREDIT CARD PROCESSED <% = ucase(rs("credit_card_processed")) %>

<% conn.Close set conn = nothing else Response.Redirect "../../index.asp" end if %>