<% if Session("fullName") = "" then response.redirect("index.asp")%> <% Dim RSMemebrs__MMColParam RSMemebrs__MMColParam = "1" if (Request.QueryString("group_id") <> "") then RSMemebrs__MMColParam = Request.QueryString("group_id") %> <% set RSMemebrs = Server.CreateObject("ADODB.Recordset") RSMemebrs.ActiveConnection = MM_workspace_STRING RSMemebrs.Source = "SELECT * FROM user_groups WHERE group_id = " + Replace(RSMemebrs__MMColParam, "'", "''") + "" RSMemebrs.CursorType = 0 RSMemebrs.CursorLocation = 2 RSMemebrs.LockType = 3 RSMemebrs.Open() RSMemebrs_numRows = 0 %> E-Mail Group Members

<%=(RSMemebrs.Fields.Item("group_name").Value)%>

<% 'Create the thisGroup array Dim thisGroup thisGroup = split((RSMemebrs.Fields.Item("group_members").Value), ",") Dim iItem For Each iItem in thisGroup set RSgroupUsers = Server.CreateObject("ADODB.Recordset") RSgroupUsers.ActiveConnection = MM_workspace_STRING RSgroupUsers.Source = "SELECT user_id, fullname, email FROM users WHERE user_id = " & iItem & "" RSgroupUsers.CursorType = 0 RSgroupUsers.CursorLocation = 2 RSgroupUsers.LockType = 3 RSgroupUsers.Open() RSgroupUsers_numRows = 0 response.write("" & RSgroupUsers("fullname") & " - " & RSgroupUsers("email") & "

") Next %>

- Close This Window -

<% RSMemebrs.Close() %>