<!-- #include file="kernel.asp" -->
<%
'****************************************************************************************************************************************************************************
'
'	Develop By : Net Lee
'	Kernel Version : 89.485.5691
'	Cart Version : 27.577.1531
'	Last Update @ 12:00 AM 11/23/2005
'
'****************************************************************************************************************************************************************************
'
' Function Contents :
'	assign_session					=		assign_session(i)
'	insert_into_array				=		insert_into_array(product_id, product_code, product_model, product_price, product_price_2)
'	insert_item						=		insert_item()
'	cancel item (empty basket)		=		cancel_item
'	update_item						=		update_item()
'	query_item						=		query_item()
'	display_result					=		display_result()
'	calculate_item					=		calculate_item
'
'****************************************************************************************************************************************************************************

Dim arr_Product_id, arr_Product_code, arr_Product_model, arr_Product_Member_price, arr_Product_Retail_price, arr_Order_quantity

call OpenDataConnection(Request.QueryString("storename"))
call LoadOrderTerms(Request.QueryString("storename"))
'*********************************************************************************************************
'select user action
'*********************************************************************************************************
select case LCase(Request("mytype"))
	case "insert" :
		insert_item
	case "query" :
		query_item
	case "update" :
		update_item
	case "calculate" :
		calculate_item
	case "cancel" :
		cancel_item
end select
call CloseDataConnection()


'*********************************************************************************************************
'assign_session
'*********************************************************************************************************
sub assign_session(i)
	arr_Product_id = "arr_Product_id." & i
	arr_Product_code = "arr_Product_code." & i
	arr_Product_model = "arr_Product_model." & i
	arr_Product_Member_price = "arr_Product_Member_price." & i
	arr_Product_Retail_price = "arr_Product_Retail_price." & i
	arr_Order_quantity = "arr_Order_quantity." & i
end sub

'*********************************************************************************************************
'insert_into_array
'*********************************************************************************************************
sub insert_into_array(product_id, product_code, product_model, product_price, product_price_2)
	dim j
	session("item_no") = session("item_no") + 1
	j = session("item_no")
	assign_session j
	session(arr_Product_id) = product_id
	session(arr_Product_code) = product_code
	session(arr_Product_model) = product_model
	session(arr_Product_Member_price) = product_price
	session(arr_Product_Retail_price) = product_price_2
	session(arr_Order_quantity) = cint(1)
end sub

'*********************************************************************************************************
'insert_item
'*********************************************************************************************************
sub insert_item()
	dim i, chk_exist
	dim product_id, product_code, product_model, product_price, product_price_2, order_quantity

	product_id = trim(Request.Form("product_id"))
	product_code = trim(Request.Form("product_code"))
	product_model = trim(Request.Form("product_model"))
	product_price = cdbl(Request.Form("product_member_price"))
	product_price_2 = cdbl(Request.Form("product_retail_price"))
	if session("item_no") = 0 then
		insert_into_array product_id, product_code, product_model, product_price, product_price_2
	else
		chk_exist = false
		for i = 1 to session("item_no")
			assign_session i
			if trim(session(arr_Product_id)) = product_id then
				chk_exist = true
				session(arr_Order_quantity) = session(arr_Order_quantity) + 1
				exit for
			end if
		next
		if not chk_exist then
			insert_into_array product_id, product_code, product_model, product_price, product_price_2
		end if
	end if
	query_item
end sub

'*********************************************************************************************************
'cancel item (empty basket)
'*********************************************************************************************************
sub cancel_item
	session("item_no") = 0
	Response.Redirect "index.asp?storename=" & Request.QueryString("storename")
end sub

'*********************************************************************************************************
'update_item
'*********************************************************************************************************
sub update_item()
	dim i, fldQty, intQty, recno
	dim fldChk, ChkValue
	dim snd_Product_id(), snd_Product_code(), snd_Product_model(), snd_Product_price(), snd_Product_price_2(), snd_Order_quantity()

	i = session("item_no")
	redim snd_Product_id(i), snd_Product_code(i), snd_Product_model(i), snd_Product_price(i), snd_Product_price_2(i), snd_Order_quantity(i)
	recno = 0
	for i = 1 to session("item_no")
		fldQty = "Qty" & i
		if isnumeric(Request.Form(fldQty)) then
			intQty = cint(Request.Form(fldQty))
		else
			intQty = 1
		end if
		fldChk = "Del" & i
		ChkValue = Request.Form(fldChk)
		if ChkValue = "" then
			if intQty > 0 then
				recno = recno + 1
				assign_session i
				snd_Product_id(recno) = session(arr_Product_id)
				snd_Product_code(recno) = session(arr_Product_code)
				snd_Product_model(recno) = session(arr_Product_model)
				snd_Product_price(recno) = session(arr_Product_Member_price)
				snd_Product_price_2(recno) = session(arr_Product_Retail_price)
				snd_Order_quantity(recno) = intQty
			end if
		end if
	next
	if recno > 0 then
		session("item_no") = recno
		for i = 1 to recno
			assign_session i
			session(arr_Product_id) = snd_Product_id(i)
			session(arr_Product_code) = snd_Product_code(i)
			session(arr_Product_model) = snd_Product_model(i)
			session(arr_Product_Member_price) = snd_Product_price(i)
			session(arr_Product_Retail_price) = snd_Product_price_2(i)
			session(arr_Order_quantity)	= snd_Order_quantity(i)
		next
	end if
	session("Shipping_Charges") = Request.Form("selected_shipping_charges")
	query_item
end sub

'*********************************************************************************************************
'query_item
'*********************************************************************************************************
sub query_item()
	dim i, intPrice

	call PageHeader(Request.QueryString("storename"))
	'modify title design here ....
	Response.Write "<table border='0' cellspacing='0' cellpadding='0' width='" & session("Min_Design_Width") & "' bgcolor='#ffffff'>"
	Response.Write "<tr>"
	Response.Write "<td width='100%' valign='middle' bgcolor='" & session("TitleColor") & "' height='20'>"
	Response.Write "<font face='Verdana' color='white' style='font size:7pt ; font face:bold'>"
	Response.Write "&nbsp;"
	Response.Write "CART CONTENTS"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	Response.Write "<table border='1' cellspacing='0' cellpadding='2' style='border-collapse: collapse' bordercolor='#cfcfcf' width='" & session("Min_Design_Width") & "' bgcolor='#ffffff'>"
	Response.Write "<tr><td height='300' valign='top'>"
	
	'modify item content table header design here ....
	Response.Write "<table border='0' cellspacing='0' cellpadding='2' style='border-collapse: collapse' bordercolor='#cfcfcf' width='100%'>"
	Response.Write "<tr bgcolor='" & session("CartTableHeaderColor") & "'>"
	Response.Write "<td width='3%'><font face='Verdana' size='1' color='#525152'><b>No </b></font></td>"
	Response.Write "<td width='15%'><font face='Verdana' size='1' color='#525152'><b>Code </b></font></td>"
	Response.Write "<td><font face='Verdana' size='1' color='#525152'><b>Model </b></font></td>"
	Response.Write "<td width='10%'><font face='Verdana' size='1' color='#525152'><b>Unit Price </b></font></td>"
	Response.Write "<td width='10%'><font face='Verdana' size='1' color='#525152'><b>Quantity </b></font></td>"
	Response.Write "<td width='10%'><font face='Verdana' size='1' color='#525152'><b>Amount </b></font></td>"
	Response.Write "<td width='10%' align='middle'><font face='Verdana' size='1' color='#525152'><b>Delete Item </b></font></td>"
	Response.Write "</tr>"

	Response.Write "<form method='post' name='order_form' action='cart.asp?storename=" & Request.QueryString("storename") & "'>"
	intPrice = 0
	for i = 1 to session("item_no")
		assign_session i
		'modify table content design here ....
		Response.Write "<tr bgcolor='" & session("CartTableBodyColor") & "'>"
		Response.Write "<td><font face='Verdana' size='1' color='#525152'>" & i & " </font></td>"
		Response.Write "<td><font face='Verdana' size='1' color='#525152'>" & session(arr_Product_code) & " </font></td>"
		Response.Write "<td><font face='Verdana' size='1' color='" & session("SideMenuFamiliesColor") & "'>" & session(arr_Product_model) & " </font></td>"
		if session("member_level") <> "USER" then
			Response.Write "<td><font face='Verdana' size='1' color='#525152'> " & session("company_currency_format") & "&nbsp;" & session(arr_Product_Member_price) & " </font></td>"
		else
			Response.Write "<td><font face='Verdana' size='1' color='#525152'> " & session("company_currency_format") & "&nbsp;" & session(arr_Product_Retail_price) & " </font></td>"
		end if
		Response.Write "<td><input type='text' name='Qty" & i & "' size='1' value='" & session(arr_Order_quantity) & "' maxlength='3' style='font-family: Arial; font-size: 7pt; font-weight: bold'></td>"
		if session("member_level") <> "USER" then
			Response.Write "<td><font face='Verdana' size='1' color='#525152'>" & session("company_currency_format") & "&nbsp;" & session(arr_Order_quantity) * session(arr_Product_Member_price) & " </font></td>"
		else
			Response.Write "<td><font face='Verdana' size='1' color='#525152'>" & session("company_currency_format") & "&nbsp;" & session(arr_Order_quantity) * session(arr_Product_Retail_price) & " </font></td>"
		end if
		Response.Write "<td align='middle'><input type='checkbox' name='Del" & i & "' value='" & session(arr_Product_id) & "'</td>"
		Response.Write "</tr>"
		if session("member_level") <> "USER" then
			intPrice = intPrice + (session(arr_Order_quantity) * session(arr_Product_Member_price))
		else
			intPrice = intPrice + (session(arr_Order_quantity) * session(arr_Product_Retail_price))
		end if
	next

	if session("item_no") > 0 then
		if session("display_shipping_charges") = "on" then
			'modify shipping charges design here ....
			ssql = "select * from tbl_shipping"
			set rs = server.CreateObject("adodb.recordset")
			rs.Open ssql,conn,3,3
			Response.Write "<tr bgcolor='" & session("CartTableBodyColor") & "'>"
			Response.Write "<td colspan='5' align='right'><font face='Verdana' size='1' color='#525152'><b> Shipping Charges </b>&nbsp;"
			Response.Write "<select name='selected_shipping_charges' style='font-family: Verdana; font-size: 7pt; width: 200px'>"	
				if not rs.eof then
					if session("Shipping_Charges") = "" then
						session("Shipping_Charges") = rs.Fields("shipping_charges")
						Response.Write "<option selected value='" & rs.Fields("shipping_charges") & "'>" & rs.Fields("shipping_name") & " - " & session("company_currency_format") & " " & rs.Fields("shipping_charges") 
						rs.MoveNext 
					end if
				end if
				do until rs.EOF
					if session("Shipping_Charges") = rs.Fields("shipping_charges") then
						Response.Write "<option selected value='" & rs.Fields("shipping_charges") & "'>" & rs.Fields("shipping_name") & " - " & session("company_currency_format") & " " & rs.Fields("shipping_charges")
					else
						Response.Write "<option value='" & rs.Fields("shipping_charges") & "'>" & rs.Fields("shipping_name") & " - " & session("company_currency_format") & " " & rs.Fields("shipping_charges")
					end if
					rs.MoveNext 
				loop
			Response.Write "</select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</font></td>"
			Response.Write "<td> <font face='Verdana' size='1' color='#525152'><b>" & session("company_currency_format") & "&nbsp;<input type='hidden' name='shipping_charges' size='1' value='" & session("Shipping_Charges") & "' maxlength='3' style='font-family: Arial; font-size: 7pt; font-weight: bold'>" & session("Shipping_Charges") & "</font></td>"
			Response.Write "<td> &nbsp; </td>"
			Response.Write "</tr>"
			rs.Close
			set rs = nothing
			intPrice = intPrice + session("Shipping_Charges")
		end if
	end if

	'modify table footer design here ....
	Response.Write "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	Response.Write "<td colspan='5' align='right'><font face='Verdana' size='1' color='#525152'><b> Total </b></font></td>"
	Response.Write "<td> <font face='Verdana' size='1' color='#525152'><b>" & session("company_currency_format") & "&nbsp;" & intPrice & " </b></font></td>"
	Response.Write "<td> &nbsp; </td>"
	Response.Write "</tr>"
	if session("myTermStatus") = "on" then
	    'loading ordering terms ....
	    Response.Write "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	    Response.Write "<td colspan='6'><font face='Verdana' size='1' color='#525152'><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	    Response.Write "訂購條約</td>"
	    Response.Write "<td> &nbsp; </td>"
	    Response.Write "</tr>"
	    Response.Write "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	    Response.Write "<td colspan='6' align='right'><textarea cols='70' rows='5'>" & session("myTerms")
	    Response.Write "</textarea><br></td>"
	    Response.Write "<td> &nbsp; </td>"
	    Response.Write "</tr>"
	    Response.Write "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	    Response.Write "<td colspan='6' align='right'>"
	    Response.Write "<input type='checkbox' name='accept_terms' onclick='AcceptTerm_onclick()'>"
	    Response.Write "<font face='Verdana' size='1' color='#525152'><b>"
	    Response.Write "我同意<br><br></td>"
	    Response.Write "<td> &nbsp; </td>"
	    Response.Write "</tr>"
        Response.Write "<script language='vbscript'>" & vbcrlf
        Response.Write "sub AcceptTerm_onclick()" & vbcrlf
        Response.Write "if order_form.accept_terms.status = true then" & vbcrlf
        Response.Write "checkout_form.btn_checkout.disabled = false" & vbcrlf
        Response.Write "else" & vbcrlf
        Response.Write "checkout_form.btn_checkout.disabled = true" & vbcrlf
        Response.Write "end if" & vbcrlf
        Response.Write "end sub" & vbcrlf
        Response.Write "</script>" & vbcrlf
	end if
	Response.Write "</table>"

	Response.Write "<br>"
	Response.Write "<table border='0' align='center' width='75%' cellspacing='0' cellpadding='0'>"
	Response.Write "<tr>"

	if session("item_no") = 0 then
		'show continue shopping button ....
		Response.Write "<td height='30' colspan='5' align='middle'>"
		Response.Write "<input type='button' value='Go Shopping' style='font-size: 8pt; font-family: Arial; width: 120px' "
		Response.Write "onclick=""window.navigate ('product.asp?storename=" & Request.QueryString("storename") & "')"" id='button'1 name='button'1>&nbsp"
		Response.Write "</td>"
	else
		'show continue shopping button ....
		Response.Write "<td height='30'>"
		Response.Write "<input type='button' value='Continue Shopping' style='font-size: 8pt; font-family: Arial; width: 120px' "
		Response.Write "onclick=""window.navigate ('product.asp?storename=" & Request.QueryString("storename") & "')"">&nbsp"
		Response.Write "</td>"

		'show update item button ....
		Response.Write "<td height='30'>"
		Response.Write "<input type='hidden' name='mytype' value='update'>"
		Response.Write "<input type='submit' value='Update Cart' style='font-size: 8pt; font-family: Arial; width: 120px'>"
		Response.Write "&nbsp"
		Response.Write "</td>"

		'show empty basket button ....
		Response.Write "<td height='30'>"
		Response.Write "<input type='button' value='Empty Cart' style='font-size: 8pt; font-family: Arial; width: 120px' "
		Response.Write "onclick=""window.navigate ('cart.asp?mytype=cancel&storename=" & Request.QueryString("storename") & "')"">&nbsp"
		Response.Write "&nbsp"
		Response.Write "</td></form>"

		'show checkout button ....
		Response.Write "<form name='checkout_form' method='post' action='cart.asp?storename=" & Request.QueryString("storename") & "'>"
		Response.Write "<td height='30'>"
		Response.Write "<input type='hidden' name='mytype' value='calculate'>"
		if session("myTermStatus") = "on" then
		    Response.Write "<input type='submit' name='btn_checkout' value='Checkout' disabled style='font-size: 8pt; font-family: Arial; width: 120px'>"
		else
		    Response.Write "<input type='submit' name='btn_checkout' value='Checkout' style='font-size: 8pt; font-family: Arial; width: 120px'>"
		end if
		Response.Write "&nbsp"
		Response.Write "</td></form>"
	end if

	Response.Write "</tr>"
	Response.Write "</table>"
	Response.Write "</td></tr></table>"

	call PageFooter(Request.QueryString("storename"))
end sub

'*********************************************************************************************************
'display_result
'*********************************************************************************************************
sub display_result()
	dim i, intPrice
	dim order_id
	dim order_rs, order_details_rs

	call PageHeader(Request.QueryString("storename"))
	'modify title design here ....
	Response.Write "<table border='0' cellspacing='0' cellpadding='0' width='" & session("Min_Design_Width") & "' bgcolor='#ffffff'>"
	Response.Write "<tr>"
	Response.Write "<td width='100%' valign='middle' bgcolor='" & session("TitleColor") & "' height='20'>"
	Response.Write "<font face='Verdana' color='white' style='font size:7pt ; font face:bold'>"
	Response.Write "&nbsp;"
	Response.Write "THANK YOU!"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	Response.Write "<table border='1' cellspacing='0' cellpadding='2' style='border-collapse: collapse' bordercolor='#cfcfcf' width='" & session("Min_Design_Width") & "' bgcolor='#ffffff'>"
	Response.Write "<tr><td height='300' valign='top'>"

	'modify item content table header design here ....
	Response.Write "<center>"
	Response.Write "<table border='0' cellspacing='0' cellpadding='2' style='border-collapse: collapse' bordercolor='#cfcfcf' width='100%'>"
	Response.Write "<tr bgcolor='" & session("CartTableHeaderColor") & "'>"
	Response.Write "<td width='3%'><font face='Verdana' size='1' color='#525152'>No</font></td>"
	Response.Write "<td width='15%'><font face='Verdana' size='1' color='#525152'>Code</font></td>"
	Response.Write "<td><font face='Verdana' size='1' color='#525152'>Model</font></td>"
	Response.Write "<td width='15%'><font face='Verdana' size='1' color='#525152'>Unit Price</font></td>"
	Response.Write "<td width='10%'><font face='Verdana' size='1' color='#525152'>Quantity</font></td>"
	Response.Write "<td width='15%'><font face='Verdana' size='1' color='#525152'>Amount</font></td>"
	Response.Write "</tr>"

	order_id = day(now) & month(now) & year(now) & hour(now) & minute(now) & second(now)
	set order_rs = server.CreateObject("adodb.recordset")
	order_rs.Open "tbl_order",conn,3,3
	order_rs.AddNew 
	order_rs.Fields("system_order_id") = order_id
	order_rs.Fields("order_date") = day(now) & "-" & month(now) & "-" & year(now)
	order_rs.Fields("member_email") = session("member_email")
	order_rs.Fields("payment_type") = "offline"
	order_rs.Fields("shipping_charges") = session("Shipping_Charges")
	order_rs.Update

	set order_details_rs = server.CreateObject("adodb.recordset")
	order_details_rs.Open "tbl_order_details",conn,3,3
	intPrice = 0
	for i = 1 to session("item_no")
		assign_session i
		order_details_rs.AddNew 
		order_details_rs.Fields("system_order_id") = order_id
		order_details_rs.Fields("product_id") = session(arr_Product_id)
		order_details_rs.Fields("product_code") = session(arr_Product_code)
		order_details_rs.Fields("product_model") = session(arr_Product_model)
		if session("member_level") <> "USER" then
			order_details_rs.Fields("product_price") = session(arr_Product_Member_price)
			order_details_rs.Fields("product_point") = session(arr_Product_Member_price)
		else
			order_details_rs.Fields("product_price") = session(arr_Product_Retail_price)
			order_details_rs.Fields("product_point") = session(arr_Product_Retail_price)
		end if
		order_details_rs.Fields("order_quantity") = session(arr_Order_quantity)
		order_details_rs.Update
		'modify table content design here ....
		Response.Write "<tr bgcolor='" & session("CartTableBodyColor") & "'>"
		Response.Write "<td valign='top'><font face='Verdana' size='1' color='#525152'>" & i & " </font></td>"
		Response.Write "<td valign='top'><font face='Verdana' size='1' color='#525152'>" & session(arr_Product_code) & " </font></td>"
		Response.Write "<td valign='top'><font face='Verdana' size='1' color='" & session("SideMenuFamiliesColor") & "'>" & session(arr_Product_model) & " </font></td>"
		if session("member_level") <> "USER" then
			Response.Write "<td valign='top'><font face='Verdana' size='1' color='#525152'> " & session("company_currency_format") & "&nbsp;" & session(arr_Product_Member_price) & " </font></td>"
		else
			Response.Write "<td valign='top'><font face='Verdana' size='1' color='#525152'> " & session("company_currency_format") & "&nbsp;" & session(arr_Product_Retail_price) & " </font></td>"
		end if
		Response.Write "<td valign='top'><font face='Verdana' size='1' color='#525152'>" & session(arr_Order_quantity) & " </font></td>"
		Response.Write "<td valign='top'><font face='Verdana' size='1' color='#525152'> " & session("company_currency_format") & "&nbsp;" & session(arr_Order_quantity) * session(arr_Product_Member_price) & " </font></td>"
		Response.Write "</tr>"
		intPrice = intPrice + (session(arr_Order_quantity) * session(arr_Product_Member_price))
	next
	order_rs.Close
	order_details_rs.Close
	set order_rs = nothing
	set order_details_rs = nothing

	if session("display_shipping_charges") = "on" then
		'modify shipping charges design here ....
		Response.Write "<tr bgcolor='" & session("CartTableBodyColor") & "'>"
		Response.Write "<td colspan='5' align='right'><font face='Verdana' size='1' color='#525152'><b> Shipping Charges </b></font></td>"
		Response.Write "<td> <font face='Verdana' size='1' color='#525152'><b>" & session("company_currency_format") & "&nbsp;" & session("Shipping_Charges") & "</font></td>"
		Response.Write "</tr>"
		intPrice = intPrice + session("Shipping_Charges")
	end if

	'modify table footer design here ....
	Response.Write "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	Response.Write "<td colspan='5' align='right'><font face='Verdana' size='1' color='#525152'><b> Total </b></font></td>"
	Response.Write "<td> <font face='Verdana' size='1' color='#525152'><b> " & session("company_currency_format") & "&nbsp;" & intPrice & " </b></font></td>"
	Response.Write "</tr>"

	if session("myTermStatus") = "on" then
	    'loading ordering terms ....
	    Response.Write "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	    Response.Write "<td colspan='6' align='right'><font face='Verdana' size='1' color='#525152'><b>"
	    Response.Write "訂購條約</td>"
	    Response.Write "<td> &nbsp; </td>"
	    Response.Write "</tr>"
	    Response.Write "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	    Response.Write "<td colspan='6' align='right'><br><textarea cols='70' rows='5'>" & session("myTerms")
	    Response.Write "</textarea><br><br></td>"
	    Response.Write "<td> &nbsp; </td>"
	    Response.Write "</tr>"
	end if
	Response.Write "</table>"
	Response.Write "<br>"

	Response.Write "<table border='0' cellspacing='0' cellpadding='0' bordercolorlight='#F1F1F1' bordercolordark='#FFFFFF'>"
	Response.Write "<tr>"

	'show pay by offline & online button ....
	Response.Write "<td>"
	Response.Write "<br>"
	
	if session("offline_payment_module") = "on" then
		Response.Write "<input type='button' value='Pay offline' style='font-size: 8pt; font-family: Arial; width: 120px' "
		Response.Write "onclick=""window.navigate ('payment.asp?storename=" & Request.QueryString("storename") & "&payment_mode=offline&total=" & intPrice & "&order_id=" & order_id & "')"">&nbsp"
	end if
	Response.Write "&nbsp&nbsp&nbsp&nbsp"
	if session("online_payment_module") = "on" then
		Response.Write "<input type='button' value='Pay by credit card' style='font-size: 8pt; font-family: Arial; width: 120px' "
		Response.Write "onclick=""window.navigate ('payment.asp?storename=" & Request.QueryString("storename") & "&payment_mode=online&total=" & intPrice & "&order_id=" & order_id & "')"">&nbsp"
	end if
	Response.Write "&nbsp </td>"
	Response.Write "</tr>"
	Response.Write "</table>"
	Response.Write "<br>"
	Response.Write "</td></tr></table>"

	session("item_no") = 0
	call PageFooter(Request.QueryString("storename"))
end sub

'*********************************************************************************************************
'calculate_item
'*********************************************************************************************************
sub calculate_item
	dim i, intPrice
	dim htmlbody

	if session("member_email") <> "" then
		'modify customer info table design here ....
		htmlbody = "<html><body><center>"
		htmlbody = htmlbody & "<br>"
		htmlbody = htmlbody & "<table border='0' width='90%' cellspacing='0' cellpadding='0'>"
		htmlbody = htmlbody & "<tr>"
		htmlbody = htmlbody & "<td width='100%'>"
		htmlbody = htmlbody & "<font face='Verdana' size='3'><b>Sales Order</b></font>"
		htmlbody = htmlbody & "</td>"
		htmlbody = htmlbody & "</tr><tr>"
		htmlbody = htmlbody & "<td width='100%'>"
		htmlbody = htmlbody & "<font face='Verdana' size='1'><b>Billing & Shipping Info...</b></font>"
		htmlbody = htmlbody & "</td>"
		htmlbody = htmlbody & "</tr><tr>"
		htmlbody = htmlbody & "<td width='100%'>"
		htmlbody = htmlbody & "<font face='Verdana' size='1'>"
		htmlbody = htmlbody & "Customer Name : " & session("member_name") & "<br>"
		htmlbody = htmlbody & "Customer Address : " & session("member_address") & "<br>"
		htmlbody = htmlbody & "Tel : " & session("member_phone") & "&nbsp;&nbsp;"
		htmlbody = htmlbody & "Email : " & session("member_email") & "<br>"
		htmlbody = htmlbody & "</td>"
		htmlbody = htmlbody & "</table>"

		'modify item content table header design here ....
		htmlbody = htmlbody & "<table border='0' cellspacing='0' cellpadding='2' style='border-collapse: collapse' bordercolor='#cfcfcf' width='90%'>"
		htmlbody = htmlbody & "<tr bgcolor='" & session("CartTableHeaderColor") & "'>"
		htmlbody = htmlbody & "<td width='3%'><font face='Verdana' size='1' color='#525152'>No</font></td>"
		htmlbody = htmlbody & "<td width='15%'><font face='Verdana' size='1' color='#525152'>Code</font></td>"
		htmlbody = htmlbody & "<td><font face='Verdana' size='1' color='#525152'>Model</font></td>"
		htmlbody = htmlbody & "<td width='15%'><font face='Verdana' size='1' color='#525152'>Unit Price</font></td>"
		htmlbody = htmlbody & "<td width='10%'><font face='Verdana' size='1' color='#525152'>Quantity</font></td>"
		htmlbody = htmlbody & "<td width='15%'><font face='Verdana' size='1' color='#525152'>Amount</font></td>"
		htmlbody = htmlbody & "</tr>"

		intPrice = 0
		for i = 1 to session("item_no")
			assign_session i
			'modify table content design here ....
			htmlbody = htmlbody & "<tr bgcolor='" & session("CartTableBodyColor") & "'>"
			htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='#525152'><b>" & i & " </b></font></td>"
			htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='#525152'><b>" & session(arr_Product_code) & " </b></font></td>"
			htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='" & session("SideMenuFamiliesColor") & "'><b>" & session(arr_Product_model) & " </b></font></td>"
			if session("member_level") <> "USER" then
				htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='#525152'><b>" & session(arr_Product_Member_price) & " </b></font></td>"
			else
				htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='#525152'><b>" & session(arr_Product_Retail_price) & " </b></font></td>"
			end if
			htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='#525152'><b>" & session(arr_Order_quantity) & " </b></font></td>"
			if session("member_level") <> "USER" then
				htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='#525152'><b>" & session(arr_Order_quantity) * session(arr_Product_Member_price) & " </b></font></td>"
			else
				htmlbody = htmlbody & "<td valign='top'><font face='Verdana' size='1' color='#525152'><b>" & session(arr_Order_quantity) * session(arr_Product_Retail_price) & " </b></font></td>"
			end if				
			htmlbody = htmlbody & "</tr>"
			intPrice = intPrice + (session(arr_Order_quantity) * session(arr_Product_Member_price))
		next

		if session("display_shipping_charges") = "on" then
			'modify shipping charges design here ....
			htmlbody = htmlbody & "<tr bgcolor='" & session("CartTableBodyColor") & "'>"
			htmlbody = htmlbody & "<td colspan='5' align='right'><font face='Verdana' size='1' color='#525152'><b> Shipping Charges </b></font></td>"
			htmlbody = htmlbody & "<td> <font face='Verdana' size='1' color='#525152'><b>" & session("company_currency_format") & "&nbsp;" & session("Shipping_Charges") & "</font></td>"
			htmlbody = htmlbody & "</tr>"
			intPrice = intPrice + session("Shipping_Charges")
		end if
	
		'modify table footer design here ....
		htmlbody = htmlbody & "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
		htmlbody = htmlbody & "<td colspan='5' align='right'><font face='Verdana' size='1' color='#525152'><b> Total </b></font></td>"
		htmlbody = htmlbody & "<td> <font face='Verdana' size='1' color='#525152'><b>" & session("company_currency_format") & "&nbsp;" & intPrice & " </b></font></td>"
		htmlbody = htmlbody & "</tr>"
	    if session("myTermStatus") = "on" then
	        'loading ordering terms ....
	        htmlbody = htmlbody & "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	        htmlbody = htmlbody & "<td colspan='6' align='right'><font face='Verdana' size='1' color='#525152'><b>"
	        htmlbody = htmlbody & "訂購條約</td>"
	        htmlbody = htmlbody & "<td> &nbsp; </td>"
	        htmlbody = htmlbody & "</tr>"
	        htmlbody = htmlbody & "<tr bgcolor='" & session("CartTableFooterColor") & "'>"
	        htmlbody = htmlbody & "<td colspan='6' align='right'><br><textarea cols='70' rows='5'>" & session("myTerms")
	        htmlbody = htmlbody & "</textarea><br><br></td>"
	        htmlbody = htmlbody & "<td> &nbsp; </td>"
	        htmlbody = htmlbody & "</tr>"
	    end if
		htmlbody = htmlbody & "</table>"
		htmlbody = htmlbody & "<br></center></body></html>"

		'send order to administrator
		dim objCDOSYSMail 
		dim objCDOSYSCon 

		' Create the e-mail server object 
		Set objCDOSYSMail = Server.CreateObject("CDO.Message") 
		Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 
		' Outgoing SMTP server 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "web@vanueweb.com" 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "1234"
		objCDOSYSCon.Fields.Update 

		' Update the CDOSYS Configuration 
		Set objCDOSYSMail.Configuration = objCDOSYSCon 
		objCDOSYSMail.From = trim(session("member_email"))
		objCDOSYSMail.To = session("company_email")
		objCDOSYSMail.Subject = "Sales Order"
		objCDOSYSMail.HTMLBody = htmlbody 
		objCDOSYSMail.Send 

		'send receipt to customer
		objCDOSYSMail.From = session("company_email")
		objCDOSYSMail.To = trim(session("member_email"))
		objCDOSYSMail.Subject = "Sales Receipt"
		objCDOSYSMail.HTMLBody = htmlbody 
		objCDOSYSMail.Send 

		'Close the server mail object 
		Set objCDOSYSMail = Nothing 
		Set objCDOSYSCon = Nothing 
		display_result
	else
		call PageHeader(Request.QueryString("storename"))
		'show back to main button ....
		Response.Write "<table border='0' cellspacing='0' cellpadding='0' width='" & session("Min_Design_Width") & "' bgcolor='#ffffff'>"
		Response.Write "<tr>"
		Response.Write "<td width='100%' valign='middle' bgcolor='" & session("TitleColor") & "' height='20'>"
		Response.Write "<font face='Verdana' color='white' style='font size:7pt ; font face:bold'>"
		Response.Write "&nbsp;"
		Response.Write "SORRY"
		Response.Write "</td>"
		Response.Write "</tr>"
		Response.Write "</table>"
		Response.Write "<table border='1' cellspacing='0' cellpadding='0' bordercolorlight='#c0c0c0' bordercolordark='#e0e0e0' width='" & session("Min_Design_Width") & "'>"
		Response.Write "<tr>"
		Response.Write "<td align='middle' colspan='2' height='30' valign='middle'> <font face='Verdana' size='1' color='red'>"
		Response.Write "<b>Please login to your account to continue, or register as a new member"
		Response.Write "</b></font></td>"
		Response.Write "</tr>"
		Response.Write "<tr>"
		Response.Write "<td width='55%' height='200' valign='top'>"
		call MemberRegisterForm(Request.QueryString("storename"))
		Response.Write "</td>"
		Response.Write "<td width='45%' height='200' valign='top'>"
		call MemberLoginForm(Request.QueryString("storename"), "", "view_cart.asp")
		Response.Write "</td>"
		Response.Write "</table>"
		call PageFooter(Request.QueryString("storename"))
	end if
end sub
%>