<!--#include file="../Inc/adovbs.asp"-->
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../inc/SQLCHK.asp"-->
<%
Dim IDToDel
IDToDel = Request.Form("IDToDel")
If IDToDel<>"" And IsNumeric(IDToDel) Then
	Dim RS
	Set RS = Conn.Execute("Select * From [Expert] Where ID="&IDToDel)
	If Not RS.EOF And Not RS.BOF Then
		RS.Close
		'刪除他的所有記錄
		Conn.Execute("Delete * From [Registration] Where ExpertID="&IDToDel)
		'刪除專家
		Conn.Execute("Delete * From [Expert] Where ID="&IDToDel)
		Response.write "<script language='javascript'>" &Chr(13)
		Response.write "alert('專家已刪除!');" &Chr(13)
		Response.write "location = 'Admin_Expert.asp'"&Chr(13)
		Response.write "</script>" &Chr(13)
  	Response.End 
	Else
		RS.Close
		Response.write "<script language='javascript'>" &Chr(13)
		Response.write "alert('專家不存在!');" &Chr(13)
		Response.write "location = 'Admin_Expert.asp'"&Chr(13)
		Response.write "</script>" &Chr(13)
  	Response.End 
	EnD If
Else
	Response.write "<script language='javascript'>" &Chr(13)
	Response.write "alert('參數錯誤!');" &Chr(13)
	Response.write "location = 'Admin_Expert.asp'"&Chr(13)
	Response.write "</script>" &Chr(13)
  Response.End 
End If
%>