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

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

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

<%

Dim strAddLink, activeFlag

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

strAddFeature = "INSERT INTO tblFeatures (FeatureTitle, FeatureDesc, FeatureImage, FeatureActive) VALUES ('" & Replace(Request("FeatureTitle"), "'", "''") & "', '" & Replace(Request("FeatureDesc"), "'", "''") & "', '" & Replace(Request("FeatureImage"), "'", "''") & "', " & activeFlag & ")"
'Response.Write(strAddFeature)
oConn.Execute(strAddFeature)
	
Response.Redirect("addFeature.asp?MSG=FEATPOSTED")
%>