<%response.ContentType ="application/vnd.ms-word"%>
<!-- #include file="../../Config/conn.asp" --> 
<table width="500">
  <tr> 
    <td width="150" align="center">會員賬號</td>
    <td width="250" align="center">注冊日期</td>
    <td width="100" align="center">購物額</td>
  </tr>
  <%Set rs= conn.execute("Select * from Member where member<>'訂閱商品快訊' Order By je Desc")
  do while not rs.eof%>
  <tr> 
    <td width="150" align="center"> 
      <%response.write ""&rs("Member")&""%> </td>
    <td width="250" align="center"> 
      <% =rs("Date")%> </td>
    <td width="100" align="center"> 
      <% =rs("Money")%> </td>
  </tr>
  <%rs.movenext
  loop%>
</table>