<!-- #include file="db.txt" -->
<html>
<head>
<title>新增會員資料到資料庫</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5"><style type="text/css">
<!--
body {
	background-color: #00CCFF;
}
-->
</style></head>
<body>
<%
Dim  FD_Value(6),SQL_Command
Randomize(Time)  
FD_Value(0)="'" & request("mid")& "'"
FD_Value(1)="'" &request("m_name")& "'"
FD_Value(2)="'" &Left(request("Hsi_code"),3)& "'"
FD_Value(3)="'" &request("address")& "'"
FD_Value(4)="'" &request("phone")& "'"
FD_Value(5)="'" &request("email")& "'"
FD_Value(6)="'" &request("password")& "'"
  FD_Value_String="(" & Join(FD_Value,",") & ")"
  SQL_Command="Insert into member Values" & FD_Value_String
   CmdObj.CommandText = SQL_Command
  CmdObj.Execute
 
if Err.Number=0 then
  response.write "<p>" & FD_Value(1) & " 恭賀您已經成功的註冊成為線上購物的會員</p>"
  response.write "<p> 你現在可以回到首頁登入開始購物囉，謝謝你的註冊。"
%>   
   <p><a HREF="default.htm">回到首頁</a></p>
<% 
else
  Response.Write "<p>Error:" & Err.Number
  Response.Write "<p>Error:" & Err.Description
  Response.Write "<p>Error:" & Err.Source
end if
 %>
</body>
</html>

