<% Option Explicit %> <% Response.Buffer = True %> <% Response.Expires = -1 %> <% Response.CacheControl = "Public" %> <% '**************************************************************************************** '** Copyright Notice '** '** iPortalX.com '** '** Copyright 2001-2003 Drew Gauderman All Rights Reserved. '** '** This program is a paid software; you can modify (at your own risk) any part of it '** under the terms of the License that accompanies this software and use it both '** privately and commercially. '** '** All copyright notices must remain in tacked in the scripts and the '** outputted HTML. '** '** You may NOT use parts of this program in your own private work, and you may NOT '** redistribute, repackage, or sell the whole or any part of this program even '** if it is modified or reverse engineered in whole or in part without express '** permission from the author. '** '** You may not pass the whole or any part of this application off as your own work. '** '** All links to iPortalX.com and powered by logo's (if any) must remain unchanged and in place '** and must remain visible when the pages are viewed unless permission is first granted '** by the copyright holder. '** '** This program is distributed in the hope that it will be useful, '** but WITHOUT ANY WARRANTY; without even the implied warranty of '** MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER '** WARRANTIES WHETHER EXPRESSED OR IMPLIED. '** '** Support is for those that have purchased it. Post support questions at: - '** http://www.iportalx.com/forum '** '** Support questions are NOT answered by e-mail ever! '** '** For correspondence or non support questions contact: - '** support@iportalx.com '** '**************************************************************************************** Response.Buffer = True 'Make sure this page is not cached 'Do not remove this stuff '------------- Response.Expires = 0 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "private" Dim blnBannedIP If bannedIP() Then 'If the user is using a banned IP then set the banned IP variable to true and active member variable to false blnBannedIP = True blnActiveMember = False End If '------------- Dim intBlogID Dim intBlogAuthor Dim dtmArchiveDate Dim intBlogCategory Dim strMode intBlogID = Clng(Request.QueryString("Blog")) intBlogAuthor = Clng(Request.QueryString("Author")) dtmArchiveDate = Request.QueryString("Date") intBlogCategory = Clng(Request.QueryString("Category")) strMode = Request.QueryString("Mode") If strMode = "New" AND (blnGuest OR blnActiveMember = False) Then adoCon.Close Set rsCommon = Nothing Set adoCon = Nothing Response.Redirect("forum/insufficient_permission.asp?Redirect=" & RedirectOmitPath("Redirect", True)) End If %> <% If strMode = "New" or strMode = "Edit" Then %> <% End If %> <% If strMode = "New" Then Call BlogForm(0) ElseIf strMode = "Edit" AND intBlogID <> 0 Then Call BlogForm(intBlogID) ElseIf intBlogCategory <> 0 AND intBlogAuthor <> 0 Then Call GetBlogCategory(intBlogAuthor, intBlogCategory) ElseIf dtmArchiveDate <> "" AND intBlogAuthor <> 0 Then dtmArchiveDate = CDate(dtmArchiveDate) Call GetBlogArchive(intBlogAuthor, dtmArchiveDate) ElseIf intBlogID = 0 AND intBlogAuthor = 0 Then Call AllBlogs() ElseIf intBlogID <> 0 Then Call GetBlogByID(intBlogID) ElseIf intBlogAuthor <> 0 Then Call GetBlogAuthor(intBlogAuthor) End IF %> <% 'Do not remove this stuff '------------- Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing '------------- %>