<!-- #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(4),SQL_Command
FD_Value(0)="'" &request("prod_num")& "'"
FD_Value(1)="'" &request("supp_code")& "'"
FD_Value(2)="'" &request("description")& "'"
FD_Value(3)="'" &request("unit_price")& "'"
FD_Value(4)="'" &request("image")& "'"
  FD_Value_String="(" & Join(FD_Value,",") & ")"
  SQL_Command="Insert into products Values" & FD_Value_String
  CmdObj.CommandText = SQL_Command
  CmdObj.Execute
 
if Err.Number=0 then
  response.write "<p>" & FD_Value(2) & " 已新增成功</p>"
%>   
   <p><a HREF="manage.htm">回到後端管理頁面</a></p>
   <p><a HREF="prod_add.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>

