<!--#include file="../include/conn.asp"-->
<%
If Session("flag")<>1 Then
  Response.Write "<script language=javascript>window.history.back();</script>"
  Response.End()
End If
TypeName1=request("TypeName")
id=request.QueryString("Id")
if TypeName1="" then
%>
<script language="javascript">
  alert("請填寫類別名稱！");
  setTimeout("window.close();",1);
</script>
<%
response.End()
else
   set rs1=conn.execute("select * from tb_MedicineType where TypeName='"&TypeName1&"'")
   if not rs1.eof then
%>
<script language="javascript">
  alert("已存在此類別名稱");
  window.history.back(-2);
  opener.location.reload();
</script>
<%
response.End()
   else
   set rs=conn.execute("update tb_MedicineType set TypeName='"&TypeName1&"' where TypeId="&id)
%>
<script language="javascript">
  alert("修改類別名稱成功！");
  setTimeout("window.close();",1);
  opener.location.reload();
</script>
<%
   end if
end if
%>