<% Option Explicit %>
<!--#include file="../../Inc/Cls_DB.asp" -->
<!--#include file="../../Inc/Const.asp" -->
<%
	Dim DBC,Conn
	On Error Resume Next
	Set DBC = New DataBaseClass
	Set Conn = DBC.OpenConnection()
	Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0301") then Call ReturnError()
Dim FsoObj,Path,PhysicalPath,NewsTempletName
Path = Request("Path")
NewsTempletName = Request("NewsTempletName")
Set FsoObj = Server.CreateObject("Scripting.FileSystemObject")
if Path <> "" then
	On Error Resume Next
	PhysicalPath = Server.MapPath(Path)
	if NewsTempletName <> "" then
		PhysicalPath = PhysicalPath & "\" & NewsTempletName
		if FsoObj.FileExists(PhysicalPath) = True then
			FsoObj.DeleteFile PhysicalPath
			if Err.Number <> 0 then
				Response.Write("Delete Error")
			end if
		end if
	end if
end if
Set FsoObj = Nothing
%>