% 'Copyright 10-4 ApS, this file may only be used if you own a license and have agreed to the license conditions, see http://www.aspfastforum.com/aspfastforum/ for details %> <% dim objRs, intNewCurrentMessageID, strMessage, _ strIP, blnAnyAttachments, blnAnyReplies, blnCanAttach, blnCanEdit, blnCanReply, blnCanPost, blnModerator, _ dtmTimestamp, intAuthorID, strSubject, strEmail, strAuthor, intDepth, blnApproved, blnShowEmail, _ intCurrentBoardID, intCurrentGroupID, intCurrentMessageID, blnInArchive 'resolve the archive status call CheckArchive(blnInArchive) 'resolve Board, Group and Message-ID call CheckBGM(GetDBCon(), intCurrentBoardID, intCurrentGroupID, intCurrentMessageID, intCurrentUserID, blnInArchive) if Len(cCHARSET)>0 then Response.CharSet = cCHARSET %>