<% if Application(dbName&"maildll")="NoMail" then response.write ""&emailNotAllowedDesc&"" &VbcrLf response.end end if dim messageID, isForwardAllowed, selfMail, objRS, moderated, appid if request("action")="" then messageID = request("messageID") appid = request("appid") if len(appid)=0 or len(messageID) = 0 then response.redirect("redirect.asp") isForwardAllowed = true dim rights,allforum allforum = application(dbName&"foruminfo") Dim objPermission Set objPermission = new PermissionSetting With objPermission .memID = memID .appid = appid .GetPermission(false) rights = .post End With Set objPermission = nothing if rights < 1 or isGuest then isForwardAllowed = false erase allforum if isForwardAllowed then set objRS = server.createobject("adodb.recordset") with objRS .open "SELECT email from pgd_members WHERE mem="&Clng(memID), datastore, , , adCmdText selfMail = .fields(0).value .close .open "SELECT moderated FROM pgd_messages WHERE messageID="&Clng(messageID), datastore, , , adCmdText moderated = .fields(0).value .close if moderated = 1 then isForwardAllowed = false end with set objRS = nothing end if %> <%= Application(dbName&"forumtitle") %> <%= NoScript() %> <%= OutputCSS() %> <% if isForwardAllowed then %> style="margin:0px 0px 0px 0px"> <% else %> style="margin:0px 0px 0px 0px"> <% end if %>
<% if isForwardAllowed then %> <% else %> <% end if %>
<%= emailInstructionDesc %> <% if request("back")<>"" then response.write "* "&emptyEmailFieldWarning&"" %>
>
>  <%= emailCopyToSelfDesc %>
align="center" class="subhead">  <%= RightViolationMessage %>

<% if isForwardAllowed then %> <% end if %>

<% elseif request("action")="complete" then%> <%= emailSuccessfulDesc %>

<% end if %>