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

Dim strNews
Dim Today
Today = Now()

%>

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

<%

Dim strAddNews
Dim ActiveFlag

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

strAddNews = "INSERT INTO tblNews (NewsTitle, PostDate, NewsShortDesc, NewsBody, Active, NewsCategoryID, UserID) VALUES ('" & Replace(Request("NewsTitle"), "'", "''") & "', #" & Today & "#, '" & Replace(Request("NewsBody"), "'", "''") & "', '" & Replace(Request("NewsBody"), "'", "''") & "', " & ActiveFlag & ", 1, 1)"
'Response.Write(strAddNews)
oConn.Execute(strAddNews)
	
Response.Redirect("addNews.asp?MSG=NEWSPOSTED" & ActiveFlag & "")
%>