<%@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 strEditFeature, activeFlag
Dim Today
Today = Now()
%>

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

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

<%

If Request("FeatureActive") = "on" Then
	activeFlag = 1
	
	Dim strUpdateFeatures
	
	strUpdateFeatures = "UPDATE tblFeatures SET FeatureActive = 0"
	oConn.Execute(strUpdateFeatures)
	
Else
	activeFlag = 0
End If

strEditFeature = "UPDATE tblFeatures SET FeatureTitle = '" & Request("FeatureTitle") & "', FeatureDesc = '" & Request("FeatureDesc") & "', FeatureImage = '" & Request("FeatureImage") & "', FeatureActive = " & activeFlag & " WHERE FeatureID = " & Request("FID") & ""
'Response.Write(strAddNews)
oConn.Execute(strEditFeature)
	
Response.Redirect("editFeatures.asp?MSG=FEATPOSTED")
%>