<% '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 %> <%= STR_MESSAGE %> <% 'check for refresh of messageListing if Request.QueryString("f")="messagesReload" then %> <% end if 'Write message call WriteMessage(GetDBCon(), intCurrentUserID, Application(cLICENSE_ID & "cSEND_EMAILS"), _ intCurrentMessageID, intCurrentGroupID, strMessage, strSubject, _ strAuthor, dtmTimestamp, strEmail, strIP, blnApproved, _ CheckSubscription(GetDBCon(), intCurrentUserID, intCurrentMessageID), _ blnCanAttach, blnCanEdit, blnCanReply, blnCanPost, _ blnAnyAttachments, blnShowEmail, _ (Application(cLICENSE_ID & "cSEND_EMAILS") and (intCurrentUserID>0) and not blnInArchive), true, true, Application(cLICENSE_ID & "cPOPUP_FOR_POST_MESSAGE")) %> <% call ConnectionClose() %>