<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
<Br><Br><Br>
<%
user=Replace_Text(request("user"))
email=Replace_Text(request("email"))
sql="select id from corporation where [user]='"&user&"'"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
if rs.eof or rs.bof then
response.write"<p align=center>用戶名錯誤，郵件訂閱未能激活！</p>"
else
id=rs("id")
sql="select * from emailorder where gsid="&id&" and email='"&email&"'" 
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3 
if rs.eof or rs.bof then
response.write"<p align=center>Email錯誤，郵件訂閱未能激活！</p>"
else
rs("orderflag")=true
rs.update
%>	  
<TABLE width="750" border=0 align="center" cellPadding=8 cellSpacing=0>
  <TR> 
      <TD width="80%" align="center" bgColor=#f5f5f5> <br>
        <table width="87%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CBB55A">
          <tr> 
            <td> <table width="100%" border="0" cellpadding="10" cellspacing="0" bgcolor="#FFFFFF">
                <tr> 
                  <td align="center"> 
                      <p>恭喜，您的郵件訂閱已經激活！</p>
                      
                  <p>您也可以在商務助手里<a href="index.asp">查看訂閱的信息</a>！</p>
                    
                  <p><a href="../../index.asp" target="_blank">歡迎您使用其他貿易服務！</a> 
                  </p></td>
                </tr>
              </table></td>
          </tr>
        </table>
        <br>
      </TD>
    </TR>
  </TABLE>
<br><br><br><br>
<!--#include file="../../inc/end.asp"-->
<%
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>