<!--#include file="Connections/EmpMain.asp" -->
<!--#include file="EmpMain_CheckRight.asp"-->
<%
if fncheckupart(1)=true or fncheckupart(2)=true or fncheckupart(3)=true then
 id=request("kid")
 if id="" then
  response.write("刪除不成功，未正確選擇!")
response.end()
end if
  if request("k1")="ok" then
  Set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_EmpMain_STRING
  MM_editQuery = "delete from kufu where id = " & id & ""
  MM_editCmd.CommandText = MM_editQuery
  MM_editCmd.Execute

  end if
   if request("k2")="ok" then
  Set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_EmpMain_STRING
  MM_editQuery = "delete from tj where companyid = " & id & ""
  MM_editCmd.CommandText = MM_editQuery
  MM_editCmd.Execute

  end if

    if request("k3")="ok" then
  Set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_EmpMain_STRING
  MM_editQuery = "delete from fahuo where companyid = " & id & ""
  MM_editCmd.CommandText = MM_editQuery
  MM_editCmd.Execute

  end if

else
response.Write("沒有權限訪問該頁!")
response.end
end if
 response.write("刪除成功!")
%>