<%@language=vbscript%>
<%
Option Explicit
Response.Expires = -1000

If isnull(Session("LoginID")) AND isempty(Session("LoginID")) Then
	Response.Redirect("default.asp?MSG=NOTLOGGED")
End If

Dim strDelFeature
Dim Today
Today = Now()
%>

<!--#include virtual="/includes/vbsGlobals.asp"-->

<!--#include virtual="/includes/dbconn.asp"-->

<%

strDelFeature = "DELETE FROM tblFeatures WHERE FeatureID = " & Request("FID") & ""
oConn.Execute(strDelFeature)
	
Response.Redirect("editFeatures.asp?MSG=FEATDELETED")
%>