News & Events

<% 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 tblNews ORDER BY ArticleActive DESC, ArticleName" Case "EXPIRED": sPageTop = gsTitleOpen & GLS_ListExpired & gsTitleClose & "
" sSQL = "SELECT * FROM tblNews WHERE ArticleExpires <= " & SQLDate(Now ) & " ORDER BY ArticleActive DESC, ArticleName" Case "UPCOMING": sPageTop = gsTitleOpen & GLS_ListUpcoming & gsTitleClose & "
" sSQL = "SELECT * FROM tblNews WHERE ArticleActive > " & SQLDate(Now ) & " ORDER BY ArticleActive DESC, ArticleName" Case Else sPageTop = gsTitleOpen & GLS_ListCurrent & gsTitleClose & "
" sSQL = "SELECT * FROM tblNews 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 Do While Not rsNews.EOF AND rsNews.AbsolutePage = lPageCurrent sAuthor = "" & rsNews.Fields("ArticleAuthor") sEmail = "" & rsNews.Fields("ArticleEmail") sLinkURL = "" & rsNews.Fields("ArticleLinkURL") sImageURL = "" & rsNews.Fields("ArticleImageURL") Response.Write "" ' If len(sImageURL) > 0 Then ' Response.Write "

" ' End If rsNews.MoveNext Loop End If If Not rsNews.EOF Then Response.Write "

---

" & gsPlainTextOpen & "" & GLS_PreviousArticles & "" & gsPlainTextClose & "

---

" End If ''Response.Write "" ' Do While Not rsNews.EOF AND rsNews.AbsolutePage = lPageCurrent ' Response.Write "" ' Response.Write "" ' Response.Write "" ' rsNews.MoveNext ' Loop End If Response.Write "

" & GLS_NoArticles & "
" Response.Write rsNews.Fields("ArticleName") Response.Write "	" Response.Write Day(rsNews.Fields("ArticleActive")) & " " & Monthname(Month(rsNews.Fields("ArticleActive")),true) & " " & Year(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 rsNews.Fields("ArticleData") & "
" & 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 tblNews 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 & rsNews.Fields("ArticleData") & 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 %>