<% @ Language=VBScript %> <% Option Explicit %> <% 'Set the response buffer to false as we may need to puase while the e-mails are being sent Response.Buffer = True 'Dimension variables Dim strGroupName Dim intSelGroupID %> MEMBER EMAIL MESSAGER

From here you can send email's to all your forum members or those that are part of a specific User Group,
that have entered valid email addresses in their profiles.
<% If blnMassMailier = False then %>


Sorry this function has been disabled!<% Else %>

*Indicates required fields Recipients*: All Users <% 'Read in the category name from the database 'Initalise the strSQL variable with an SQL statement to query the database strSQL = "SELECT " & strDbTable & "Group.Group_ID, " & strDbTable & "Group.Name FROM " & strDbTable & "Group ORDER BY " & strDbTable & "Group.Group_ID ASC;" 'Query the database rsCommon.Open strSQL, adoCon 'Loop through all the categories in the database Do while NOT rsCommon.EOF 'Read in the deatils for the category strGroupName = rsCommon("Name") intSelGroupID = CInt(rsCommon("Group_ID")) 'Display a link in the link list to the cat Response.Write (vbCrLf & " " & strGroupName & "") 'Move to the next record in the recordset rsCommon.MoveNext Loop 'Release Server Objects rsCommon.Close Set rsCommon = Nothing adoCon.Close Set adoCon = Nothing %> Email Format: Plain Text HTML Subject*: Message*: Please note that you can not use Forum Codes.

<% End If %>