<% '******************************************************************************* '* QuickNews Copyright 2003 XCENT - www.xcent.com * '* QuickNews is a trademark of XCENT * '* This notice may not be removed from this source code file * '******************************************************************************* '* '* To setup QuickNews for your site, modify the QNConfig.asp file '* sType = UCase(Trim(RequestValue("TYPE"))) sCmd = UCase(Trim(RequestValue("CMD"))) lArticleID = FVal(RequestValue("ARTICLEID")) If Len(Trim(sCmd)) = 0 Then sCmd = gsDefaultAction End If lPageCurrent = FVal(RequestValue("PAGE")) If lPageCurrent < 1 Then lPageCurrent = 1 lPageCount = 0 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 Select Case sCmd Case "VIEW" ViewArticle Case "DETAIL" DetailListArticles Case "LIST" ListArticles Case "SHOWTOP" ShowTop Case Else ShowTop End Select NavBar DoPageFooter CloseDBConn Sub ShowTop Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.PageSize = giItemsPerPage rsNews.CursorLocation = 3 'adUseClient rsNews.Open sSQL, gobjConnect, 3, 1, &H0001 'adOpenStatic, adLockReadOnly, adCmdText Response.Write "" If rsNews.EOF Then Response.Write "" Else lPageCount = rsNews.PageCount If lPageCurrent > lPageCount Then lPageCurrent = lPageCount rsNews.AbsolutePage = lPageCurrent If lPageCurrent = 1 AND sType <> "EXPIRED" Then sAuthor = "" & rsNews.Fields("ArticleAuthor") sEmail = "" & rsNews.Fields("ArticleEmail") sLinkURL = "" & rsNews.Fields("ArticleLinkURL") sImageURL = "" & rsNews.Fields("ArticleImageURL") Response.Write "" Do While Not rsNews.EOF AND rsNews.AbsolutePage = lPageCurrent Response.Write "" Response.Write "" Response.Write "" rsNews.MoveNext Loop End If Response.Write "
" & gsPlainTextOpen & GLS_NoArticles & gsPlainTextClose & "
" Response.Write gsTitleOpen & rsNews.Fields("ArticleName") & gsTitleClose & "
" Response.Write gsPlainTextOpen Response.Write GLS_Date & rsNews.Fields("ArticleActive") & "
" If len(sAuthor) > 0 OR len(sEmail) > 0 Then Response.Write GLS_WrittenBy If len(sEmail) > 0 Then Response.Write "" & OutMatch(len(sAuthor),0,sEmail,sAuthor) & "" Else Response.Write sAuthor End If Response.Write "
" End If If len(sLinkURL) > 0 Then Response.Write GLS_Link & "" & sLinkURL & "
" End If Response.Write "
" & gsPlainTextClose Response.Write gsArticleDetailsOpen & "" & rsNews.Fields("ArticleData") & gsArticleDetailsClose & "

" If len(sImageURL) > 0 Then Response.Write "

" End If rsNews.MoveNext End If If Not rsNews.EOF Then Response.Write "
" & gsPlainTextOpen & "" & GLS_PreviousArticles & "" & gsPlainTextClose & "
" End If Response.Write "
" & gsPlainTextOpen & DispShortDate(rsNews.Fields("ArticleActive")) & gsPlainTextClose & " " & gsPlainTextOpen & "" Response.Write rsNews.Fields("ArticleName") & "" & gsPlainTextClose & "
" rsNews.Close Set rsNews = Nothing If lPageCount > 1 Then DoPaging End If End Sub Sub ListArticles Response.Write "" Response.Write "" 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 "" Else lPageCount = rsNews.PageCount If lPageCurrent > lPageCount Then lPageCurrent = lPageCount rsNews.AbsolutePage = lPageCurrent Do While Not rsNews.EOF AND rsNews.AbsolutePage = lPageCurrent Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsNews.MoveNext Loop End If rsNews.Close Set rsNews = Nothing Response.Write "
" Response.Write sPageTop Response.Write "
" Response.Write gsPlainTextOpen & GLS_NoArticles & gsPlainTextClose Response.Write "
" & gsPlainTextOpen & DispShortDate(rsNews.Fields("ArticleActive")) & gsPlainTextClose Response.Write " " & gsPlainTextOpen & "" Response.Write rsNews.Fields("ArticleName") & "" & gsPlainTextClose & "
" If lPageCount > 1 Then DoPaging End If End Sub Sub DetailListArticles Response.Write("") Response.Write "" 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 "" Else lPageCount = rsNews.PageCount If lPageCurrent > lPageCount Then lPageCurrent = lPageCount rsNews.AbsolutePage = lPageCurrent Do While Not rsNews.EOF AND rsNews.AbsolutePage = lPageCurrent sShowDate = DispShortDate(rsNews.Fields("ArticleActive")) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rsNews.MoveNext Loop End If rsNews.Close Set rsNews = Nothing Response.Write "
" Response.Write(sPageTop) Response.Write "
" Response.Write gsPlainTextOpen & GLS_NoArticles & gsPlainTextClose Response.Write "
" & gsFormTextOpen & sShowDate & gsFormTextClose & " " & gsPlainTextOpen & "" Response.Write "" & rsNews.Fields("ArticleName") & "" & gsPlainTextClose & "
  " & gsPlainTextOpen & rsNews.Fields("ArticleData") & gsPlainTextClose & "

 

" If lPageCount > 1 Then DoPaging End If End Sub Sub ViewArticle If lArticleID > 0 Then sArtSQL = "SELECT * FROM tblQNArticles WHERE ArticleID = " & SQLVal(lArticleID) Set rsNews = gobjConnect.Execute(sArtSQL) If rsNews.EOF Then Response.Write "" Response.Write "" 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 "" Response.Write "" If len(sImageURL) > 0 Then Response.Write "" End If 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 & replace(rsNews.Fields("ArticleData"), vbcrlf,"
") & gsArticleDetailsClose & "
" End If rsNews.Close Set rsNews = Nothing Else Response.Write "" Response.Write "" 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 %>