<!--#include file="../library/libraryinc.inc" -->
<%
	timeout(1)
	
	if request("id") <> empty and IsNumeric(request("id")) then
	
		set con = server.createobject("ADODB.Connection")
		con.open Application("CString")
		
		strSQL = "SELECT FileName FROM CMS_Page WHERE FileName IS NOT NULL AND PageID = "& request("id")
		set rsCheck = con.execute(strSQL)
		
		if not rsCheck.EOF then
		
			rsCheck.MoveFirst()
			
			DeleteFile server.mappath("../../Uploads/"& rsCheck("FileName"))
	
			strSQL = "UPDATE CMS_Menu SET PageID = NULL, Frame = NULL WHERE PageID = "& request("id") &" "& VBCRLF
			strSQL = strSQL & "DELETE FROM CMS_Page WHERE PageID = "& request("id")
			con.execute(strSQL)	
	
		end if
		
		set rsCheck = Nothing
		
		con.close
		set con = nothing
	
	end if
	
	response.redirect("file.asp?intPage="& request("intPage") &"&buster="& server.URLEncode(now))
	
%>