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

Dim strNews
Dim Today
Today = Now()
%>

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

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

<%

Dim strAddNews
Dim ActiveFlag

If Request("Active") = "on" Then
	ActiveFlag = 1
Else
	ActiveFlag = 0
End If

strAddNews = "UPDATE tblNews SET NewsTitle = '" & Replace(Request("NewsTitle"), "'", "''") & "', NewsShortDesc = '" & Replace(Request("NewsShortDesc"), "'", "''") & "', NewsBody = '" & Replace(Request("NewsBody"), "'", "''") & "', Active = " & ActiveFlag & " WHERE NewsID = " & Request("NID") & ""
'Response.Write(strAddNews)
oConn.Execute(strAddNews)
	
Response.Redirect("editNews.asp?MSG=NEWSPOSTED")
%>