<% '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, blnForwarded, strError, strEmailToForwardTo, strMessage, _ dtmTimestamp, intAuthorID, strSubject, strEmail, strAuthor, _ 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_FORWARD_MESSAGE_VIA_EMAIL %> <% if not blnForwarded then Response.Write "" else %> <% end if %>
<%= STR_FORWARD_MESSAGE_VIA_EMAIL %>
" if Len(strError)>0 then Response.Write "
" & strError & "
" call ForwardForm(strEmailToForwardTo) Response.Write "
<%= STR_YOU_HAVE_FORWARDED_THE_MESSAGE %> <%= htmlify(strEmailToForwardTo) %>
<%= STR_OK_BUTTON %>
<% call ConnectionClose() %>