<%
timeout(1)
set con = server.createobject("ADODB.Connection")
con.open Application("CString")
if Request.QueryString("DelImage") <> Empty and IsNumeric(Request.QueryString("DelImage")) then
strSQL = "UPDATE News SET ImageName = NULL, ImageDesc = NULL WHERE NewsID = "& Request.QueryString("DelImage")
con.execute(strSQL)
con.close()
set con = Nothing
Response.Redirect("edit_News.asp?id="& Request.QueryString("DelImage") &"&strSQL="& Server.URLEncode("SELECT Article FROM News WHERE NewsID = "& Request.QueryString("DelImage")) &"&intPage="& Request("intPage") &"&buster="& Server.URLEncode(Now()))
end if
if request.ServerVariables("REQUEST_METHOD") = "POST" then
i_NewsID = request("id")
strDate = request("Date_Day") &" "& request("Date_Month") &" "& request("Date_Year")
strDateEnd = request("Date_Day_End") &" "& request("Date_Month_End") &" "& request("Date_Year_End")
strShortDesc = request("txtaShortDesc")
if not IsDate(strDate) OR not IsDate(strDateEnd) then
%>
<%
Response.End()
end if
set rsNews = server.createobject("ADODB.Recordset")
rsNews.open "SELECT * FROM News WHERE NewsID = "& i_NewsID, con, 1, 3
if not rsNews.EOF then
rsNews.MoveFirst()
rsNews("Title") = request("Heading")
rsNews("NewsDate") = strDate
rsNews("NewsDateEnd") = strDateEnd
if request("headline") <> empty then
rsNews("Headline") = 1
else
rsNews("Headline") = 0
end if
rsNews("ShortDesc") = replace(strShortDesc,"'"," ")
rsNews("Article") = request("article")
rsNews("ResortRef") = request("ddlResortRef")
rsNews.Update
'AdminAuditLog Session("Logged"), Session("RealName") & ": Edited a News Article - " & Request("Heading")
end if
Response.Redirect("News.asp?cache="& Server.URLEncode(Now()))
'Response.Redirect("News.asp?CategoryID="& Request("OldCategoryID") &"&intPage="& Request("intPage") &"&buster="& Server.URLEncode(Now()))
end if
%>
Website Administration
<%
if Request("id") <> Empty and IsNumeric(Request("id")) then
strSQL = "SELECT NewsID, Title, NewsDate,NewsDateEnd, ShortDesc, Headline, ResortRef,Article FROM News WHERE NewsID = "& Request("id")
set rsNews = con.execute(strSQL)
if Not rsNews.EOF then
rsNews.MoveFirst()
i_NewsID = rsNews("NewsID")
s_Title = rsNews("Title")
s_NewsDate = rsNews("NewsDate")
s_NewsDateEnd = rsNews("NewsDateEnd")
s_ShortDesc = rsNews("ShortDesc")
b_Headline = rsNews("Headline")
s_ResortRef = rsNews("ResortRef")
s_Content = rsNews("Article")
if IsNull(s_ResortRef) then
s_ResortRef = ""
end if
if IsNull(s_ImageDesc) then
s_ImageDesc = ""
end if
%>
<%
end if
set rsNews = Nothing
end if
%>
<%
con.Close
set con = Nothing
%>