<!--#include file=../system/include/config.asp-->
<!--#include file=../share/conn_system.asp-->
<!--#include file=../system/include/access.asp-->
<!--#include file=../system/include/function.asp-->

<%
	dim strSql,rs
	
	set rs=Server.CreateObject("Adodb.RecordSet")
	strSql="select * from [onlinedd] where id=" & request("id")
	rs.Open strSql,conn,3,3

	if rs.eof then
		out("找不到該訂單！")
	else
		rs("pass")="是"
		rs.update
        out("交易成功！此訂單已成為'歷史訂單'")
        end if
	rs.close
	set rs=nothing
%>
<!--#include file=../system/include/foot.asp-->