% pgtitle = ": News/Updates" %> <% NID = Request("id") If NID > "" Then SQL = "SELECT * FROM NewsTbl WHERE NewsID = " & NID & " AND Active = 1" Set rsNewsA = Conn.Execute(SQL) If rsNewsA.EOF Then Response.Redirect "news.asp" Else NewsTitle = rsNewsA("NewsTitle") NewsDate = rsNewsA("NewsDate") If NewsDate > "" Then NewsDate = FormatDateTime(NewsDate, vbLongDate) End If NewsDesc = rsNewsA("NewsDesc") NewsDesc = CR2BR(NewsDesc) End If Call EndConn Else Response.Redirect "news.asp" End If %>
|
|
|||||||||||
|
|||||||||||