%@ Language=VBScript %>
<% Response.Buffer = TRUE %>
<%
' Script Name : aspWebHeadlines
' File Name : news.asp
' Version : 1.1
' Release Date : 6/02/2002
'
' Copyright (c) 2002 by Full Revolution, Inc., All Rights Reserved
%>
<%
'******** Set the Local **********************************************************
Session.LCID = 1033 'English (US)
TimeZone = "EST"
ArticleImagePath = "news/articleimages/"
FileDirectory = Server.MapPath("news/") & "\articleimages\"
'******** Open the database *****************************************************
UseSQLServer = "NO" 'Set to YES if you are using SQL Server instead of MS Access
Dim dbc
Dim strConn
If UseSQLServer = "YES" then
'---- SQL Connection String -----------------------------------------------------------
strConn = "Provider=SQLOLEDB; Data Source=(local); Initial Catalog=news; User ID=admin; Password=password;"
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
Else
'------- Access Connection String -----------------------------------------------------
strConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("news/news.mdb")
Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn
End If
'******* Pull in the Config from DB **********************************************
If Session("ConfigPulledIn") <> "YES" then
SQL = "SELECT * FROM Config"
Set RS=dbc.execute(SQL)
Session("DefaultLayoutType") = RS("DefaultLayoutType")
Session("DefaultArticleType") = RS("DefaultArticleLayout")
Session("DefaultFontFace") = RS("DefaultFontFace")
Session("DefaultFontTitleSize") = RS("DefaultFontTitleSize")
Session("DefaultFontBodySize") = RS("DefaultFontBodySize")
Session("DefaultFontColor") = RS("DefaultFontColor")
Session("EmailComponent") = RS("EmailComponent")
Session("RecordsPerPage") = RS("AdminRecordsPerPage")
Session("AdminColor") = RS("AdminColor")
Session("BackColorOne") = RS("AdminBackColorOne")
Session("BackColorTwo") = RS("AdminBackColorTwo")
Session("EmailSiteName") = RS("EmailSiteName")
Session("EmailSiteURL") = RS("EmailSiteURL")
Session("EmailHost") = RS("EmailHost")
Session("BBShowSearch") = RS("BBShowSearch")
Session("BBShowArchives") = RS("BBShowArchives")
Session("BBShowSubmit") = RS("BBShowSubmit")
Session("BBShowEmailAdmin") = RS("BBShowEmailAdmin")
Session("BBShowLogin") = RS("BBShowLogin")
Session("BBShowHome") = RS("BBShowHome")
Session("BBShowSyndication") = RS("BBShowSyndication")
Session("AdminEmail") = RS("AdminEmail")
Session("SyndicationText") = RS("SyndicationText")
Session("ConfigPulledIn") = "YES"
AdminFolderColor = "news/adminimages/" & Session("AdminColor") & "/"
RS.Close
Set RS=Nothing
End If
If Session("ConfigPulledIn") = "YES" then
DefaultLayoutType = Session("DefaultLayoutType")
DefaultArticleType = Session("DefaultArticleLayout")
DefaultFontFace = Session("DefaultFontFace")
DefaultFontTitleSize = Session("DefaultFontTitleSize")
DefaultFontBodySize = Session("DefaultFontBodySize")
DefaultFontColor = Session("DefaultFontColor")
EmailComponent = Session("EmailComponent")
RecordsPerPage = Session("RecordsPerPage")
AdminColor = Session("AdminColor")
BackColorOne = Session("AdminBackColorOne")
BackColorTwo = Session("AdminBackColorTwo")
EmailSiteName = Session("EmailSiteName")
EmailSiteURL = Session("EmailSiteURL")
EmailHost = Session("EmailHost")
BBShowSearch = Session("BBShowSearch")
BBShowArchives = Session("BBShowArchives")
BBShowSubmit = Session("BBShowSubmit")
BBShowEmailAdmin = Session("BBShowEmailAdmin")
BBShowLogin = Session("BBShowLogin")
BBShowHome = Session("BBShowHome")
BBShowSyndication = Session("BBShowSyndication")
SyndicationText = Session("SyndicationText")
AdminEmail = Session("AdminEmail")
AdminFolderColor = "news/adminimages/" & AdminColor & "/"
End If
If request.querystring("action") <> "syndicate" then
%>
<%
End If
'******** Check the Browser Type *************************************************
Dim Browser
Browser = Request.ServerVariables("HTTP_USER_AGENT")
If InStr(Browser, "MSIE") Then
BrowserType = "Microsoft"
Else
BrowserType = "OTHER"
End If
'******** Find out what we should be doing **************************************
If request.querystring("action") = "" or request.querystring("action") = "catview" then
Call DrawHeader
Call NewsHomePage
Call DrawFooter
End If
If request.querystring("action") = "detail" or request.querystring("action") = "print" then
Call DrawHeader
Call DetailView
Call DrawFooter
End If
If request.querystring("action") = "login" then
Call DrawLoginScreen
End If
If request.querystring("action") = "processlogin" then
Call ProcessLogin
End If
If request.querystring("action") = "mainmenu" then
Call DrawMainMenu
End If
If request.querystring("action") = "logoff" then
Call LogOff
End If
If request.querystring("action") = "manageauthors" then
Call ManageAuthors
End If
If request.querystring("action") = "addauthor" then
Call AddAuthor
End If
If request.querystring("action") = "addauthorprocess" then
Call AddAuthorProcess
End If
If request.querystring("action") = "editauthor" then
Call EditAuthor
End If
If request.querystring("action") = "editauthorprocess" then
Call EditAuthorProcess
End If
If request.querystring("action") = "deleteauthor" then
Call DeleteAuthor
End If
If request.querystring("action") = "deleteauthorprocess" then
Call DeleteAuthorProcess
End If
If request.querystring("action") = "managecategories" then
Call ManageCategories
End If
If request.querystring("action") = "addcategory" then
Call AddCategory
End If
If request.querystring("action") = "addcategoryprocess" then
Call AddCategoryProcess
End If
If request.querystring("action") = "editcategory" then
Call EditCategory
End If
If request.querystring("action") = "editcategoryprocess" then
Call EditCategoryProcess
End If
If request.querystring("action") = "deletecategory" then
Call DeleteCategory
End If
If request.querystring("action") = "deletecategoryprocess" then
Call DeleteCategoryProcess
End If
If request.querystring("action") = "managearticles" then
Call ManageArticles
End If
If request.querystring("action") = "addarticle" then
Call AddArticle
End If
If request.querystring("action") = "addarticleprocess" then
Call AddArticleProcess
End If
If request.querystring("action") = "editarticle" then
Call EditArticle
End If
If request.querystring("action") = "editarticleprocess" then
Call EditArticleProcess
End If
If request.querystring("action") = "deletearticle" then
Call DeleteArticle
End If
If request.querystring("action") = "deletearticleprocess" then
Call DeleteArticleProcess
End If
If request.querystring("action") = "uploadfile" then
Call UploadFile
End If
If request.querystring("action") = "uploadfileprocess" then
Call UploadFileProcess
End If
If request.querystring("action") = "managelayouttypes" then
Call ManageLayoutTypes
End If
If request.querystring("action") = "addlayouttype" then
Call AddLayoutType
End If
If request.querystring("action") = "addlayouttypeprocess" then
Call AddLayoutTypeProcess
End If
If request.querystring("action") = "editlayouttype" then
Call EditLayoutType
End If
If request.querystring("action") = "editlayouttypeprocess" then
Call EditLayoutTypeProcess
End If
If request.querystring("action") = "deletelayouttype" then
Call DeleteLayoutType
End If
If request.querystring("action") = "deletelayouttypeprocess" then
Call DeleteLayoutTypeProcess
End If
If request.querystring("action") = "editconfig" then
Call EditConfig
End If
If request.querystring("action") = "editconfigprocess" then
Call EditConfigProcess
End If
If request.querystring("action") = "managearticlelayouts" then
Call ManageArticleLayouts
End If
If request.querystring("action") = "addarticlelayout" then
Call AddArticleLayout
End If
If request.querystring("action") = "addarticlelayoutprocess" then
Call AddArticleLayoutProcess
End If
If request.querystring("action") = "editarticlelayout" then
Call EditArticleLayout
End If
If request.querystring("action") = "editarticlelayoutprocess" then
Call EditArticleLayoutProcess
End If
If request.querystring("action") = "deletearticlelayout" then
Call DeleteArticleLayout
End If
If request.querystring("action") = "deletearticlelayoutprocess" then
Call DeleteArticleLayoutProcess
End If
If request.querystring("action") = "archivearticles" then
Call ArchiveArticles
End If
If request.querystring("action") = "archivearticlesprocess" then
Call ArchiveArticlesProcess
End If
If request.querystring("action") = "searcharticles" then
Call DrawHeader
Call SearchArticles
Call DrawFooter
End If
If request.querystring("action") = "searcharticlesprocess" then
Call DrawHeader
Call SearchArticlesProcess
Call DrawFooter
End If
If request.querystring("action") = "archives" then
Call DrawHeader
Call Archives
Call DrawFooter
End If
If request.querystring("action") = "summary" then
Call Summary
End If
If request.querystring("action") = "email" then
Call EmailToFriend
End If
If request.querystring("action") = "sendemail" then
Call SendEmail
End If
If request.querystring("action") = "syndicate" then
Call Syndicate
End If
If request.querystring("action") = "createsyndicationhtml" then
Call CreateSyndicationHTML
End If
If request.querystring("action") = "createsyndicationhtmlprocess" then
Call CreateSyndicationHTMLProcess
End If
If request.querystring("action") = "submitnews" then
Call DrawHeader
Call AddArticle
Call DrawFooter
End If
If request.querystring("action") = "minical" then
If request.querystring("date") = "" then
CalendarDate = Date()
Else
CalendarDate = request.querystring("date")
End If
Call DrawMiniCalendar(CalendarDate)
End If
'******** Write out the page header ********************************************
Sub DrawHeader
If request.querystring("category") <> "" then
SQL = "SELECT * FROM Categories WHERE CategoryID =" & request.querystring("category")
Set RS=dbc.execute(SQL)
CategoryLTID = RS("CategoryLayoutType")
RS.Close
Set RS=Nothing
If CategoryLTID <> 0 then
SQL = "SELECT * FROM LayoutTypes WHERE LTID = " & CategoryLTID
Set RS=dbc.execute(SQL)
Session("DefaultHeader") = RS("LTHeader")
Session("DefaultFooter") = RS("LTFooter")
Else
SQL = "SELECT DefaultArticleLayout FROM Config"
Set RS=dbc.execute(SQL)
DefaultLayoutType = RS("DefaultArticleLayout")
RS.Close
Set RS=Nothing
SQL = "SELECT * FROM LayoutTypes WHERE LTID = " & DefaultLayoutType
Set RS=dbc.execute(SQL)
Session("DefaultHeader") = RS("LTHeader")
Session("DefaultFooter") = RS("LTFooter")
RS.Close
Set RS=Nothing
End If
Else
SQL = "SELECT DefaultLayoutType FROM Config"
Set RS=dbc.execute(SQL)
DefaultLayoutType = RS("DefaultLayoutType")
RS.Close
Set RS=Nothing
SQL = "SELECT * FROM LayoutTypes WHERE LTID = " & DefaultLayoutType
Set RS=dbc.execute(SQL)
Session("DefaultHeader") = RS("LTHeader")
Session("DefaultFooter") = RS("LTFooter")
RS.Close
Set RS=Nothing
End If
If request.querystring("action") = "print" then
SQL = "SELECT * FROM LayoutTypes WHERE LTName = 'PRINT'"
Set RS=dbc.execute(SQL)
Session("DefaultHeader") = RS("LTHeader")
Session("DefaultFooter") = RS("LTFooter")
End If
response.write Session("DefaultHeader")
End Sub
'******* Draw HLBox *************************************************************
Sub DrawHLBox(HLHeader, HLFooter)
SQLh = "SELECT ArticleTitle, ArticleID, ArticleStartDate, ArticleEndDate FROM Articles WHERE ArticleStatus = 'PUBLISHED' ORDER BY ArticleDate DESC"
Set RSh=dbc.execute(SQLh)
If UseSQLServer <> "YES" then
RSh.Filter = "ArticleStartDate <= #" & Date() & "# AND ArticleEndDate >= #" & Date() & "#"
Else
RSh.Filter = "ArticleStartDate <= '" & Date() & "' AND ArticleEndDate >= '" & Date() & "'"
End If
If NOT RSh.EOF then
response.write HLHeader
response.write ""
Do While NOT RSh.EOF
response.write ""
response.write RSh("ArticleTitle")
response.write "
"
RSh.MoveNext
Loop
response.write ""
response.write HLFooter
End If
RSh.Close
Set RSh = Nothing
End Sub
'******* News Home Page (Layout Style) ******************************************
Sub NewsHomePage
If request.querystring("category") = "" then
UsingLayoutType = DefaultLayoutType
Else
SQL = "SELECT * FROM Categories WHERE CategoryID = " & request.querystring("category")
Set RS=dbc.execute(SQL)
UsingLayoutType = RS("CategoryLayoutType")
RS.Close
Set RS=Nothing
End If
SQL = "SELECT * FROM LayoutTypes WHERE LTID = " & UsingLayoutType
Set RS=dbc.execute(SQL)
If RS.EOF then
SQL = "SELECT * FROM LayoutTypes WHERE LTID = 1"
Set RS=dbc.execute(SQL)
End If
LTName = RS("LTName")
LTDescription = RS("LTDescription")
LTNumberToShow = RS("LTNumberToShow")
LTNumberofFeatures = RS("LTNumberOfFeatures")
LTShowCategorySection = RS("LTShowCategorySection")
LTShowNormalHLBox = RS("LTShowNormalHLBox")
LTDateBlockHeader = RS("LTDateBlockHeader")
LTDateBlockFooter = RS("LTDateBlockFooter")
LTLinkToDetailText = RS("LTLinkToDetailText")
LTHLLocation = RS("LTHLLocation")
LTFeaturesAcross = RS("LTFeaturesAcross")
LTShowLastUpdate = RS("LTShowLastUpdate")
LTUpdateBGColor = RS("LTUpdateBGColor")
LTTopNewsHeading = RS("LTTopNewsHeading")
LTRecentNewsHeading = RS("LTRecentNewsHeading")
LTCategoryNewsHeading = RS("LTCategoryNewsHeading")
LTArticlesAcross = RS("LTArticlesAcross")
LTCategoriesAcross = RS("LTCategoriesAcross")
LTGroupByDay = RS("LTGroupByDay")
LTDaysToShow = RS("LTDaysToShow")
LTArticlePadding = RS("LTArticlePadding")
LTShowMoreInfo = RS("LTShowMoreInfo")
LTHLBoxHeader = RS("LTHLBoxHeader")
LTHLBoxFooter = RS("LTHLBoxFooter")
RS.Close
Set RS=Nothing
If request.querystring("action") <> "catview" then
SQL = "SELECT * FROM Articles WHERE ArticleStatus = 'PUBLISHED' ORDER BY ArticleDate DESC"
Set RS=dbc.execute(SQL)
If UseSQLServer <> "YES" then
RS.Filter = "ArticleStartDate <= #" & Date() & "# AND ArticleEndDate >= #" & Date() & "#"
Else
RS.Filter = "ArticleStartDate <= '" & Date() & "' AND ArticleEndDate >= '" & Date() & "'"
End If
Else
SQLc = "SELECT * FROM ArticleCategoryLink WHERE CategoryID = " & request.querystring("category")
Set RSc = dbc.execute(SQLc)
Do While NOT RSc.EOF
Articles = Articles & RSc("ArticleID") & ", "
RSc.MoveNext
Loop
If Articles = "" then
Articles = 0
End If
RSc.Close
Set RSc=Nothing
SQL = "SELECT * FROM Articles WHERE ArticleID IN(" & Articles & ") AND ArticleStatus = 'PUBLISHED' ORDER BY ArticleDate DESC"
Set RS=Server.CreateObject("adodb.Recordset")
RS.Open SQL, dbc, adopenstatic
If UseSQLServer <> "YES" then
RS.Filter = "ArticleStartDate <= #" & Date() & "# AND ArticleEndDate >= #" & Date() & "#"
Else
RS.Filter = "ArticleStartDate <= '" & Date() & "' AND ArticleEndDate >= '" & Date() & "'"
End If
End If
TotalRecords = 0
Do While NOT RS.EOF
TotalRecords = TotalRecords + 1
RS.MoveNext
Loop
If TotalRecords <> 0 then
RS.MoveFirst
End If
If NOT RS.EOF then
RS.MoveFirst
LastUpdate = FormatDate(RS("ArticleDate"), "FULL")
End If
'----- Headline Box Start -----------------------------
If LTShowNormalHLBox = "YES" then
response.write "
" Call DrawHLBox(LTHLBoxHeader, LTHLBoxFooter) response.write " | " response.write "" Else response.write " | "
End If
End If
'----- Write last update date -------------------------
If LTShowLastUpdate = "YES" then
response.write "
" End If '----- Write out feature articles ------------------ If NOT RS.EOF then If LTNumberOfFeatures <> 0 then If LTNumberOfFeatures > TotalRecords then LTNumberOfFeatures = TotalRecords End If response.write LTTopNewsHeading CellWidth = (100 \ LTFeaturesAcross) Counter = 0 response.write "
" End If '----- Write Out The News Categories ------------------ If LTShowCategorySection = "YES" then response.write LTCategoryNewsHeading CellWidth = (100 \ LTCategoriesAcross) SQLc = "SELECT * FROM Categories ORDER BY CategoryName" Set RSc=dbc.execute(SQLc) Counter = 0 response.write "
| "
Else
response.write "" Call DrawHLBox(LTHLBoxHeader, LTHLBoxFooter) response.write " | " End If response.write "
" Call DrawHLBox(LTHLBoxHeader, LTHLBoxFooter) response.write " | " Else response.write " | "
End If
End If
response.write " "
If ALShowArticleImage = "YES" then
If RS("ArticleImage") <> "" then
response.write ""
End If
End If
If ALShowHeadline = "YES" then
response.write "" & RS("ArticleTitle") & ""
End If
response.write ""
response.write ""
If ALShowAuthor = "YES" then
response.write " " End If response.write " "
'-------- Multi-Page Articles -------------------------------------
If RS("ArticleMultiPage") = "YES" then
txtArticleBodyArray = split(RS("ArticleBody"), "$$PAGE$$")
If request.querystring("page") <> "" and request.querystring("page") <> "0" and request.querystring("page") <> "1" then
page = request.querystring("page") - 1
txtArticleBody = txtArticleBodyArray(page)
TotalPages = ubound(txtArticleBodyArray)
NextPage = page + 2
PrevPage = page
If Page + 1 <> TotalPages then
txtArticleLinkArray = split(txtArticleBody, "$$")
txtArticleBody = txtArticleLinkArray(0)
txtArticlePageLink = txtArticleLinkArray(1)
End If
txtArticleBody = txtArticleBody & "
" response.write ALRAHeader End If Do While NOT RSr.EOF response.write "- " response.write "" response.write RSr("ArticleTitle") response.write " " RSr.MoveNext Loop End If If LTShowNormalHLBox = "YES" then If LTHLBoxLocation = "LEFT" then response.write " | "
Else
response.write "" Call DrawHLBox(LTHLBoxHeader, LTHLBoxFooter) response.write " | " End If response.write "
"
response.write " " Call DrawButtonBar response.write " |
"
response.write ""
response.write "Your search returned " & RS.RecordCount & " results " I = 0 Do While NOT RS.EOF response.write (I + 1) & ". " & RS("ArticleTitle") & " - " & FormatDate(RS("ArticleDate"), "FULL") & " " I = I + 1 RS.MoveNext Loop response.write " |
" Call DrawButtonBar response.write " |
"
response.write ""
response.write "News Archive for " & MonthName(txtMonth) & ", " & txtYear & " " response.write "There are (" & RS.RecordCount & ") articles... " I = 0 Do While NOT RS.EOF response.write (I + 1) & ". " & RS("ArticleTitle") & " - " & FormatDate(RS("ArticleDate"), "FULL") & " " I = I + 1 RS.MoveNext Loop response.write " |
"
response.write " " Call DrawButtonBar response.write " |
" response.write "" response.write " | " response.write "
" response.write " | Please Login | " response.write "" response.write " |
" response.write " | " response.write "" End Sub '******* Syndication Routine ****************************************************** Sub Syndicate NumberToShow = Int(request.querystring("num")) SyndFont = request.querystring("font") SyndSize = request.querystring("size") SyndColor = request.querystring("color") If request.querystring("category") = "" then SQL = "SELECT * FROM Articles WHERE ArticleStatus = 'PUBLISHED' ORDER BY ArticleDate DESC" Set RS=dbc.execute(SQL) If UseSQLServer <> "YES" then RS.Filter = "ArticleStartDate <= #" & Date() & "# AND ArticleEndDate >= #" & Date() & "#" Else RS.Filter = "ArticleStartDate <= '" & Date() & "' AND ArticleEndDate >= '" & Date() & "'" End If Else SQLc = "SELECT * FROM ArticleCategoryLink WHERE CategoryID = " & request.querystring("category") Set RSc = dbc.execute(SQLc) Do While NOT RSc.EOF Articles = Articles & RSc("ArticleID") & ", " RSc.MoveNext Loop If Articles = "" then Articles = 0 End If RSc.Close Set RSc=Nothing SQL = "SELECT * FROM Articles WHERE ArticleID IN(" & Articles & ") AND ArticleStatus = 'PUBLISHED' ORDER BY ArticleDate DESC" Set RS=Server.CreateObject("adodb.Recordset") RS.Open SQL, dbc, adopenstatic If UseSQLServer <> "YES" then RS.Filter = "ArticleStartDate <= #" & Date() & "# AND ArticleEndDate >= #" & Date() & "#" Else RS.Filter = "ArticleStartDate <= '" & Date() & "' AND ArticleEndDate >= '" & Date() & "'" End If End If Content = "" I = 0 Do While NOT RS.EOF If I >= NumberToShow then Exit Do End If Content = Content & "" & RS("ArticleTitle") & "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Edit Configuration | "
response.write "" response.write " | Manage Syndication | "
response.write "
" response.write " | Manage Syndication | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Edit Configuration | "
response.write "" response.write " | Manage Syndication | "
response.write "
" response.write " | Manage Syndication | " response.write "" response.write " |
" response.write " " response.write " | "
response.write "" response.write " " response.write " | "
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Authors | "
response.write "
Tasks: | " response.write "" response.write " | Add An Author | "
response.write "
 " response.write " | " response.write ""
response.write ""
response.write "
| "
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Authors | "
response.write "" response.write " | Add Author | "
response.write "
" response.write " | Add Author | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Authors | "
response.write "" response.write " | Edit Author | "
response.write "
" response.write " | Edit Author | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Authors | "
response.write "" response.write " | Delete Author | "
response.write "
" response.write " | Delete Author | " response.write "" response.write " |
"
response.write "Sorry you cannot delete this Author.
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " Administrator "
response.write "
"
response.write "Main Menu | Manage Authors
"
response.write "
"
response.write "Are you sure you want to delete this Author?
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " " & RS("AuthorFirstName") & " " & RS("AuthorLastName") & " "
response.write "
"
response.write "YES | NO
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Categories | "
response.write "
Tasks: | " response.write "" response.write " | Add A Category | "
response.write "
 " response.write " | " response.write ""
response.write ""
response.write "
| "
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Categories | "
response.write "" response.write " | Add Category | "
response.write "
" response.write " | Add Category | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Categories | "
response.write "" response.write " | Edit Category | "
response.write "
" response.write " | Edit Category | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Categories | "
response.write "" response.write " | Delete Category | "
response.write "
" response.write " | Delete Category | " response.write "" response.write " |
"
response.write "Are you sure you want to delete this Category?
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " " & RS("CategoryName") & " "
response.write "
"
response.write "YES | NO
"
response.write "
"
response.write "Sorry you cannot delete this category because it still contains articles.
Remove any articles from this category first.
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " " & RS("CategoryName") & " "
response.write "
"
response.write "OK
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "||||||||||||||
Tasks: | " response.write "" response.write " | Add An Article | "
response.write "" response.write " | Archive Articles | "
response.write "||||||||||||||
Filters: | " response.write "" If Session("frFilter") <> "published" then response.write " | PUBLISHED | "
Else
response.write "PUBLISHED | "
End If
response.write "" If Session("frFilter") <> "un-published" then response.write " | UN-PUBLISHED | "
Else
response.write "UN-PUBLISHED | "
End If
response.write "" If Session("frFilter") <> "waitingapproval" then response.write " | AWAITING APPROVAL | "
Else
response.write "AWAITING APPROVAL | "
End If
response.write "" If Session("frFilter") <> "archived" then response.write " | ARCHIVED | "
Else
response.write "ARCHIVED | "
End If
response.write "" If Session("frFilter") <> "usersubmitted" then response.write " | USER SUBMITTED | "
Else
response.write "USER SUBMITTED | "
End If
response.write "" If Session("frFilter") <> "all" then response.write " | ALL | "
Else
response.write "ALL | "
End If
response.write "
 " response.write " | " response.write ""
response.write ""
response.write "
| "
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Add Article | "
response.write "
" response.write " | Add Article | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Edit Article | "
response.write "
" response.write " | Edit Article | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Delete Article | "
response.write "
" response.write " | Delete Article | " response.write "" response.write " |
"
response.write "Are you sure you want to delete this Article?
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " " & RS("ArticleTitle") & " "
response.write "
" & RS("ArticleSummary") & "
"
response.write "YES | NO
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "
Tasks: | " response.write "" response.write " | Add An New Layout Type | "
response.write "
 " response.write " | " response.write ""
response.write ""
response.write "
| "
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "" response.write " | Add A New Layout Type | "
response.write "
" response.write " | Add A New Layout Type | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "" response.write " | Edit Layout Type | "
response.write "
" response.write " | Edit Layout Type | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "" response.write " | Delete Layout Type | "
response.write "
" response.write " | Delete Layout Type | " response.write "" response.write " |
"
response.write "Are you sure you want to delete this Layout Type?
Note: Doing so will reset any category using this layout type back to the default layout type.
If this is currently your default layout type it will be changed back to the first layout type.
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " " & RS("LTName") & " "
response.write "
" & RS("LTDescription") & "
"
response.write "YES | NO
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Edit Configuration | "
response.write "
Tasks: | " response.write "" response.write " | Syndication HTML | "
response.write "
" response.write " | Edit Configuration | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Article Layouts | "
response.write "
Tasks: | " response.write "" response.write " | Add A New Article Layout | "
response.write "
 " response.write " | " response.write ""
response.write ""
response.write "
| "
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "" response.write " | Add A New Article Layout | "
response.write "
" response.write " | Add A New Article Layout | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Article Layouts | "
response.write "" response.write " | Edit Article Layout | "
response.write "
" response.write " | Edit Article Layout | " response.write "" response.write " |
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles Layouts | "
response.write "" response.write " | Delete Article Layout | "
response.write "
" response.write " | Delete Article Layout | " response.write "" response.write " |
"
response.write "Are you sure you want to delete this Article Layout?
Note: Doing so will reset any category using this article layout back to the default article layout.
If this is currently your default article layout it will be changed back to the first article layout.
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " " & RS("ALName") & " "
response.write "
" & RS("ALDescription") & "
"
response.write "YES | NO
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Archive Articles | "
response.write "
" response.write " | Archive Articles | " response.write "" response.write " |
"
response.write "Select a date that should be used to archive the articles... anything older than the date you select will be archived.
"
response.write ""
response.write "
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Archive Articles | "
response.write "
" response.write " | Archive Articles | " response.write "" response.write " |
"
response.write "You have successfuly archived " & NumberArchived & " articles.
"
response.write ""
response.write "
"
response.write " "
response.write ""
response.write " "
response.write " "
response.write "
"
response.write "OK
"
response.write "
Email Article | " response.write "
" response.write "
" response.write "" End Sub '******* Send the Email *********************************************************** Sub SendEmail SQL = "SELECT * FROM Articles WHERE ArticleID = " & request.querystring("article") Set RS=dbc.execute(SQL) '------ Fill the Variables -------------------------- txtSendTo = request.form("txtSendTo") txtSendFrom = request.form("txtSendFrom") txtComments = request.form("txtComments") txtSubject = RS("ArticleTitle") txtBody = "This " & EmailSiteName & "(" & EmailSiteURL & ") article has been sent to your from:Email Article | " response.write "
Email Article | " response.write "
Email Article | " response.write "
Email Article | " response.write "
" If BBShowHome = "YES" then response.write "Home" End If If BBShowSearch = "YES" then response.write "| Search" End If If BBShowArchives = "YES" then response.write "| News Archives" End If If BBShowSubmit = "YES" then response.write "| Submit News" End If If BBShowEmailAdmin = "YES" then response.write "| Email Administrator" End If If BBShowLogin = "YES" then response.write "| Login" End If If BBShowSyndication = "YES" then response.write "| Get Syndicated Content" End If response.write " |
" response.write "" response.write " | " response.write "
" response.write " | Welcome: " & Session("frFirstName") & " " & Session("frLastName") & " | Rights: " & Session("frRights") & " | Log Off | " response.write "" response.write " |
"
response.write "Thank you for your submission... Your article will be reviewed by our administrators.
"
response.write "Click Here
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Authors | "
response.write "" response.write " | Add Author | "
response.write "
" response.write " | Add Author | " response.write "" response.write " |
"
response.write "The Author was added successfully.
"
response.write "Add Another Author | Back To Manage Authors | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Authors | "
response.write "" response.write " | Edit Author | "
response.write "
" response.write " | Edit Author | " response.write "" response.write " |
"
response.write "The Author was edited successfully.
"
response.write "Back To Manage Authors | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Authors | "
response.write "" response.write " | Delete Author | "
response.write "
" response.write " | Delete Author | " response.write "" response.write " |
"
response.write "The Author was deleted successfully.
"
response.write "Back to Manage Authors | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Categories | "
response.write "" response.write " | Add Category | "
response.write "
" response.write " | Add Category | " response.write "" response.write " |
"
response.write "The Category was added successfully.
"
response.write "Add Another Category | Back To Manage Categories | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Categories | "
response.write "" response.write " | Edit Categories | "
response.write "
" response.write " | Edit Categories | " response.write "" response.write " |
"
response.write "The Category was edited successfully.
"
response.write "Back To Manage Categories | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Categories | "
response.write "" response.write " | Delete Category | "
response.write "
" response.write " | Delete Category | " response.write "" response.write " |
"
response.write "The Category was deleted successfully.
"
response.write "Back to Manage Categories | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Add Article | "
response.write "
" response.write " | Add Article | " response.write "" response.write " |
"
response.write "The Article was added successfully."
If Session("frRequireApproval") = "YES" then
response.write "Your Article will appear on the website after it is approved by an administrator"
End If
response.write "
"
response.write "Add Another Article | Back To Manage Articles | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Edit Article | "
response.write "
" response.write " | Edit Article | " response.write "" response.write " |
"
response.write "The Article was modified successfully."
If Session("frRequireApproval") = "YES" then
response.write "Your Article will appear on the website after it is approved by an administrator"
End If
response.write "
"
response.write "Back To Manage Articles | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Edit Article | "
response.write "
" response.write " | Edit Article | " response.write "" response.write " |
"
response.write "You don't have access to perform this function.
"
response.write "Back To Manage Articles | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Articles | "
response.write "" response.write " | Delete Article | "
response.write "
" response.write " | Delete Article | " response.write "" response.write " |
"
response.write "The Article was deleted successfully.
"
response.write "Back To Manage Articles | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "" response.write " | Add A New Layout Type | "
response.write "
" response.write " | Add A New Layout Type | " response.write "" response.write " |
"
response.write "The Layout Type was added successfully.
"
response.write "Add Another Layout Type | Back To Manage Layout Types | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "" response.write " | Edit Layout Type | "
response.write "
" response.write " | Edit Layout Type | " response.write "" response.write " |
"
response.write "The Layout Type was edited successfully.
"
response.write "Back To Manage Layout Types | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Layout Types | "
response.write "" response.write " | Delete Layout Type | "
response.write "
" response.write " | Delete Layout Type | " response.write "" response.write " |
"
response.write "The Layout Type was deleted successfully.
"
response.write "Back To Manage Layout Types | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Edit Configuration | "
response.write "
" response.write " | Edit Configuration | " response.write "" response.write " |
"
response.write "The Configuration was edited successfully.
"
response.write "Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Article Layouts | "
response.write "" response.write " | Add A New Article Layout | "
response.write "
" response.write " | Add A New Article Layout | " response.write "" response.write " |
"
response.write "The Article Layout was added successfully.
"
response.write "Add Another Article Layout | Back To Manage Article Layouts | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Article Layouts | "
response.write "" response.write " | Edit Article Layout | "
response.write "
" response.write " | Edit Article Layout | " response.write "" response.write " |
"
response.write "The Article Layout was updated successfully.
"
response.write "Back To Manage Article Layouts | Main Menu
"
response.write "
Navigation: | " response.write "" response.write " | Main Menu | "
response.write "" response.write " | Manage Article Layouts | "
response.write "" response.write " | Delete Article Layout | "
response.write "
" response.write " | Delete Article Layout | " response.write "" response.write " |
"
response.write "The Article Layout was deleted successfully.
"
response.write "Back To Manage Article Layouts | Main Menu
"
response.write "
" response.write "" response.write " | " response.write "
" response.write " | Welcome: " & Session("frFirstName") & " " & Session("frLastName") & " | Rights: " & Session("frRights") & " | Log Off | " response.write "" response.write " |
Upload A File | " response.write "
" response.write "
" response.write "" End Sub '****** Upload File Process ************************************************************ Sub UploadFileProcess Dim Uploader, File Set Uploader = New FileUploader formname = request.querystring("form") elementname = request.querystring("element") %> <% response.write "" response.write "Upload A File | " response.write "
" & chr(13)
response.write "" & chr(13)
response.write "
| "
response.write "|||||||||
S | " & chr(13) response.write "M | " & chr(13) response.write "T | " & chr(13) response.write "W | " & chr(13) response.write "T | " & chr(13) response.write "F | " & chr(13) response.write "S | " & chr(13) response.write "|||