<% '******************************************************************************* '* QuickNews Copyright 2003 XCENT - www.xcent.com * '* QuickNews is a trademark of XCENT * '* This notice may not be removed from this source code file * '******************************************************************************* dim sSQL sCmd = "" & UCase(RequestValue("CMD")) sPreCmd = "" & UCase(RequestValue("PRECMD")) sType = "" & "" & UCase(RequestValue("TYPE")) lArticleID = FVal(RequestValue("ARTICLEID")) lPageCurrent = FVal(RequestValue("Page")) If lPageCurrent < 1 Then lPageCurrent = 1 lPageCount = 0 If IsAdminLoggedIn Then DoPageHeader OpenDBConn Select Case sType Case "ALL": sPageTop = gsTitleOpen & GLS_ListAll & gsTitleClose & "
" sSQL = "SELECT * FROM tblQNArticles ORDER BY ArticleActive DESC, ArticleName" Case "EXPIRED": sPageTop = gsTitleOpen & GLS_ListExpired & gsTitleClose & "
" sSQL = "SELECT * FROM tblQNArticles WHERE ArticleExpires <= " & SQLDate(Now ) & " ORDER BY ArticleActive DESC, ArticleName" Case "UPCOMING": sPageTop = gsTitleOpen & GLS_ListUpcoming & gsTitleClose & "
" sSQL = "SELECT * FROM tblQNArticles WHERE ArticleActive > " & SQLDate(Now ) & " ORDER BY ArticleActive DESC, ArticleName" Case Else sPageTop = gsTitleOpen & GLS_ListCurrent & gsTitleClose & "
" sSQL = "SELECT * FROM tblQNArticles WHERE ArticleActive <= " & SQLDate(Now) & " AND (ArticleExpires >= " & SQLDate(Now) & " OR ArticleExpires Is Null) ORDER BY ArticleActive DESC, ArticleName" End Select If Len(Trim(sCmd)) = 0 Then sCmd = gsDefaultAction End If Select Case sCmd Case "VIEW" ViewArticle Case "DODELETE" DeleteArticle Case "DELETE" DeleteConfirm Case "DETAIL" DetailListArticles Case "LIST" ListArticles Case Else ListArticles End Select CloseDBConn DoPageFooter Else Response.Redirect "QNAdmin.asp" End If Sub ListArticles Response.Write sPageTop 'response.write ssql Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.PageSize = giItemsPerPage rsNews.CursorLocation = 3 'adUseClient rsNews.Open sSQL, gobjConnect, 3, 1, &H0001 'adOpenStatic, adLockReadOnly, adCmdText If rsNews.EOF Then Response.Write gsPlainTextOpen & GLS_NoArticles & gsPlainTextClose Else lPageCount = rsNews.PageCount If lPageCurrent > lPageCount Then lPageCurrent = lPageCount rsNews.AbsolutePage = lPageCurrent Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" iCtr = 0 Do While Not rsNews.EOF AND rsNews.AbsolutePage = lPageCurrent sShowDate = DispShortDate(rsNews.Fields("ArticleActive")) If iCtr mod 2 = 0 Then sColor = gsColorONE Else sColor = gsColorTWO End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsNews.MoveNext iCtr = iCtr + 1 Loop If lPageCount > 1 Then Response.Write "" End If Response.Write " " & gsTableHeadOpen & GLS_AdmLstActive & gsTableHeadClose & " " & gsTableHeadOpen & GLS_AdmLstArticle & gsTableHeadClose & " " & gsTableHeadOpen & GLS_AdmLstAction & gsTableHeadClose & " " & gsPlainTextOpen & sShowDate & gsPlainTextClose & " " & gsPlainTextOpen & "" Response.Write rsNews.Fields("ArticleName") & "" & gsPlainTextClose & " " & gsPlainTextOpen & "" & " " Response.Write "" & gsPlainTextClose & " " DoPaging Response.Write " " Response.Write "

" End If rsNews.Close Set rsNews = Nothing End Sub Sub DetailListArticles Response.Write(sPageTop) Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.PageSize = giItemsPerPage rsNews.CursorLocation = 3 'adUseClient rsNews.Open sSQL, gobjConnect, 3, 1, &H0001 'adOpenStatic, adLockReadOnly, adCmdText If rsNews.EOF Then Response.Write gsPlainTextOpen & GLS_NoArticles & gsPlainTextClose Else lPageCount = rsNews.PageCount If lPageCurrent > lPageCount Then lPageCurrent = lPageCount rsNews.AbsolutePage = lPageCurrent Response.Write "" Response.Write "

" Response.Write "" iCtr = 0 Do While Not rsNews.EOF AND rsNews.AbsolutePage = lPageCurrent If iCtr mod 2 = 0 Then sColor = gsColorONE Else sColor = gsColorTWO End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" iCtr = iCtr + 1 rsNews.MoveNext Loop If lPageCount > 1 Then Response.Write "" End If Response.Write " " & gsFormTextOpen & DispShortDate(rsNews.Fields("ArticleActive")) & gsFormTextClose & " " & gsPlainTextOpen & "" Response.Write "" & rsNews.Fields("ArticleName") & "" & gsPlainTextClose & " " & gsPlainTextOpen & "  " Response.Write "" & gsPlainTextClose & "   " & gsPlainTextOpen & rsNews.Fields("ArticleData") & gsPlainTextClose & "   " DoPaging Response.Write " " Response.Write "

" End If rsNews.Close Set rsNews = Nothing End Sub Sub ViewArticle If lArticleID > 0 Then sSQL = "SELECT * FROM tblQNArticles WHERE ArticleID = " & SQLVal(lArticleID) OpenDBConn Set rsNews = gobjConnect.Execute(sSQL) If rsNews.EOF Then Response.Write "
" & gsPlainTextOpen & GLS_NoArticle & gsPlainTextClose Else sAuthor = "" & rsNews.Fields("ArticleAuthor") sEmail = "" & rsNews.Fields("ArticleEmail") sLinkURL = "" & rsNews.Fields("ArticleLinkURL") sImageURL = "" & rsNews.Fields("ArticleImageURL") Response.Write "" & gsTitleOpen & rsNews.Fields("ArticleName") & gsTitleClose & "
" Response.Write gsPlainTextOpen & GLS_ArticleID & rsNews.Fields("ArticleID") & gsPlainTextClose & "
" Response.Write "" Response.Write "" Response.Write "" If len(sAuthor) > 0 OR len(sEmail) > 0 Then Response.Write "" Response.Write "" End If If len(sLinkURL) > 0 Then Response.Write "" Response.Write "" End If Response.Write "" Response.Write "" If len(sImageURL) > 0 Then Response.Write "" End If Response.Write "" Response.Write "

" & gsFormTextOpen & GLS_Date & gsFormTextClose & "	" & gsPlainTextOpen & DispShortDateTime(rsNews.Fields("ArticleActive")) & gsPlainTextClose & "
" & gsFormTextOpen & GLS_WrittenBy & gsFormTextClose & "	" & gsPlainTextOpen If len(sEmail) > 0 Then Response.Write "" & OutMatch(len(sAuthor),0,sEmail,sAuthor) & "" Else Response.Write sAuthor End If Response.Write gsPlainTextClose & "
" & gsFormTextOpen & GLS_Link & gsFormTextClose & "	" & gsPlainTextOpen & "" & sLinkURL & "" & gsPlainTextClose & "
" & gsFormTextOpen & GLS_Article & gsFormTextClose & "	" & gsArticleDetailsOpen & rsNews.Fields("ArticleData") & gsArticleDetailsClose & "
" Response.Write "" Response.Write "   " Response.Write "

" End If rsNews.Close Set rsNews = Nothing Else Response.Write gsPlainTextOpen & GLS_NeedArticleID & gsPlainTextClose End If End Sub Sub DoPaging Response.Write "

" & gsPagingOpen If lPageCurrent > 1 Then Response.Write "" & GLS_Previous & "" Else Response.Write GLS_Previous End If Response.Write "  |  " sTemp = Replace(GLS_Paging, "%CURRENT%", lPageCurrent) sTemp = Replace(sTemp, "%TOTAL%", lPageCount) Response.Write sTemp Response.Write "  |  " If lPageCurrent < lPageCount Then Response.Write "" & GLS_Next & "" Else Response.Write GLS_Next End If Response.Write gsPagingClose & "

" End Sub Sub DeleteArticle sDeleteSQL = "DELETE FROM tblQNArticles WHERE ArticleID = " & SQLVal(lArticleID) gobjConnect.Execute(sDeleteSQL) Response.Write gsPlainTextOpen & "
" & GLS_AdmDeleteSuccess & "
" & gsPlainTextClose Select Case sPreCmd Case "VIEW" ViewArticle Case "DETAIL" DetailListArticles Case "LIST" ListArticles Case Else ListArticles End Select End Sub Sub DeleteConfirm Response.Write gsTitleOpen & GLS_AdmDeleteTitle & gsTitleClose & "

" Response.Write "" Response.Write "

" Response.Write "" Response.Write " " Response.Write gsPlainTextOpen & Replace(GLS_AdmDeleteQuestion,"%ARTID%", lArticleID) & " " Response.Write GLS_AdmDeleteDetail & gsPlainTextClose Response.Write " " Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write " " Response.Write "" Response.Write " " Response.Write "" Response.Write " " Response.Write " " Response.Write "

" End Sub %>