<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<!--#include file="Connections/PBBMember.asp" -->
<%
dim preview, mailSent

If Request.Form("submit") <> "" And Request.Form("submit") <> "Cancel" Then

	Session("messageTyped") = CStr(Request.Form("emailText"))
	Session("messageBody") = "The following message was sent by " & Session("from_Name") & " (" & Session("from_Address") & ") via the PBB Members' Area Website." & vbcrlf

	Session("messageBody") = Session("messageBody") & "www.prairiebrass.org/membersarea" & vbcrlf & "---------------------------------" & vbcrlf & vbcrlf

	Session("messageBody") = Session("messageBody") & CStr(Request.Form("emailText"))

	Session("messageSubj") = CStr(Request.Form("subject"))

  If Request.Form("submit") = "Send Email" Then
    If Session("messageTyped") <> "" And Session("messageSubj") <> "" Then

      Set cdoConfig = CreateObject("CDO.Configuration")

    With cdoConfig.Fields
        .Item(cdoSendUsingMethod) = cdoSendUsingPort
        .Item(cdoSMTPServer) = "smtp1.easycgi.com"

        .Update
    End With

    Set cdoMessage = CreateObject("CDO.Message")

    With cdoMessage
        Set .Configuration = cdoConfig
        .From = Session("from_Name") & " <webmaster@prairiebrass.org>"
        .To = "lothianh@ameritech.net"
        '.To = Session("AddressString")
        .ReplyTo = Session("from_Name") & " <" & Session("from_Address") & ">"
        .Subject = Session("messageSubj")
        .TextBody = Session("messageBody")
        .Send
    End With

    Set cdoMessage = Nothing
    Set cdoConfig = Nothing
    preview = ""
	Session("messageTyped") = ""
	Session("messageBody") = ""
	Session("messageSubj") = ""
	Session("from_Name") = ""
	Session("from_Address") = ""

    mailSent = "1"

	Else
	  preview = "1"
	End If

  ElseIf Request.Form("submit") = "Preview Email" Then

    preview = "1"

  End If

ElseIf Request.Form("submit") = "Cancel" Then

    preview = ""
	Session("messageTyped") = ""
	Session("messageBody") = ""
	Session("messageSubj") = ""
	Session("from_Name") = ""
	Session("from_Address") = ""

End If
%>
<%
Dim emailSource__MMColParam
emailSource__MMColParam = "1"
If (Session("MM_Username") <> "") Then
  emailSource__MMColParam = Session("MM_Username")
End If
%>
<%
Dim emailSource
Dim emailSource_numRows

Set emailSource = Server.CreateObject("ADODB.Recordset")
emailSource.ActiveConnection = MM_PBBMember_STRING
emailSource.Source = "SELECT FirstName, LastName, Email FROM RosterNew WHERE ID = " + Replace(emailSource__MMColParam, "'", "''") + ""
emailSource.CursorType = 0
emailSource.CursorLocation = 2
emailSource.LockType = 1
emailSource.Open()

emailSource_numRows = 0


Session("from_Name") = (emailSource.Fields.Item("FirstName").Value) & " " & (emailSource.Fields.Item("LastName").Value)
Session("from_Address") = (emailSource.Fields.Item("Email").Value)
%>

<%
Dim MemEmail__MMColParam
MemEmail__MMColParam = "Active"
If (Request("MM_EmptyValue") <> "") Then
  MemEmail__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim MemEmail
Dim MemEmail_numRows

Set MemEmail = Server.CreateObject("ADODB.Recordset")
MemEmail.ActiveConnection = MM_PBBMember_STRING
MemEmail.Source = "SELECT FirstName, LastName, Email  FROM RosterNew  WHERE Status = '" + Replace(MemEmail__MMColParam, "'", "''") + "' AND Email Is Not Null"
MemEmail.CursorType = 0
MemEmail.CursorLocation = 2
MemEmail.LockType = 1
MemEmail.Open()

MemEmail_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
MemEmail_numRows = MemEmail_numRows + Repeat1__numRows
%>
<%
Dim BuildAddress
While ((Repeat1__numRows <> 0) AND (NOT MemEmail.EOF))
  'BuildAddress = BuildAddress + "'" + (MemEmail.Fields.Item("FirstName").Value) + " " + (MemEmail.Fields.Item("LastName").Value) + "<" +(MemEmail.Fields.Item("Email").Value) + ">; "
  If BuildAddress <> "" Then
  	BuildAddress = BuildAddress + "; " + (MemEmail.Fields.Item("Email").Value)
  Else
  	BuildAddress = BuildAddress + (MemEmail.Fields.Item("Email").Value)
  End If
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  MemEmail.MoveNext()
Wend
Session("AddressString") = BuildAddress

'Session("AddressString") = "lothianh@ameritech.net; lothian@usopenbrass.org"

%>

<html>
<head>
<title>PBB Members' Area - Send Email</title>
<%
If mailSent <> "" Then
%>
<meta HTTP-EQUIV="REFRESH" content="10; url=mememail_test.asp">
<%
End If
%>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="text.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">

<!--
    METADATA
    TYPE="typelib"
    UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
    NAME="CDO for Windows 2000 Library"
-->

<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="250" rowspan="2"><img src="Images/Mem_corner.gif" width="250" height="150"></td>
    <td width="100%" height="70" align="left"><img src="Images/MemHeadText.gif" width="450" height="70"></td>
  </tr>
  <tr>
    <td height="80" align="left" background="Images/Mem_staff.gif">&nbsp;</td>
  </tr>
  <tr>
    <td height="30" width="250"><img src="Images/Mem_bottom.gif" width="250" height="30"></td>
    <td><strong><a href="default.asp">Members' Area</a> &gt;&gt; Send an Email to the PBB Roster</strong></td>
  </tr>
</table>
<br>
<table width="90%" align="center" border="0" cellpadding="5" cellspacing="0">
	<tr>
		<td>
			<p align="center"><b>Email All Members</b></p><br>
		</td>
	</tr>
<%
If mailSent <> "" Then
%>
	<tr>
    	<td bgcolor="#FFFFFF" align="center">
			<p><strong><font color="red">Your message has been sent.</font></strong></p>
		</td>
	</tr>
<%
mailSent = ""
Else
%>
	<tr>
    	<td bgcolor="#FFFFCC">
      		<p><strong>Instructions:</strong> Type or cut-and-paste the subject and text of your email below. When you are done, click on the Preview button to check your message for errors or click on the Send button to send the message to all active PBB members.</p>
      		<p><strong>Warning:</strong> When you click "Send Email" the message is immediately sent to the entire roster. You will no longer be able to edit or cancel the email.</p>
		</td>
	</tr>
<%
If preview = "1" Then
	If Session("messageTyped") <> "" And Session("messageSubj") <> "" Then
%>
	<tr>
    	<td bgcolor="#FFFFFF" align="center">
    	<strong>Message Preview</strong><br>
    	<table width="90%" cellpadding="2" border="1">
    		<tr>
    			<td>
      			<div class="roster">
      			<p><strong>From:</strong> <%=Session("from_Name") & " &lt;" & Session("from_Address") & "&gt;"%></p>
      			<p><strong>To:</strong> <%=Session("AddressString") %></p>
      			<p><strong>Subject:</strong> <%=Session("messageSubj")%></p>
      			</div>
      			<hr>
      			<p><%=replace(Session("messageTyped"),vbcrlf,"<br>")%></p><br>
      			</td>
      		</tr>
      	</table>
    	<strong>To edit this email, enter your changes below.</strong><br>
		</td>
	</tr>
<%
	Else
%>
	<tr>
    	<td bgcolor="#FFFFFF" align="center">
    	<strong>Message Preview</strong><br>
    	<table width="90%" cellpadding="2" border="1">
    		<tr>
    			<td>
      			<p align="center"><strong>Your message must include a subject line and text or it will not be sent.</strong></p>
      			</td>
      		</tr>
      	</table>
    	<strong>To edit this email, enter your changes below.</strong><br>
		</td>
	</tr>
<%
	End If
End If
%>
	<tr>
		<td bgcolor="#FFFFCC">

		<form ACTION="<%=MM_editAction%>" METHOD="POST" name="sendEmail">
        <table width="100%" align="center" cellpadding="0" cellspacing="10">
          <tr>
            <td width="200" align="right">From: </td>
            <td><%=Session("from_Name") & " &lt;" & Session("from_Address") & "&gt;"%>
            <input type="hidden" value="<%=Session("from_Name") & " <" & Session("from_Address") & ">"%>" name="from">
            </td>
          </tr>
          <tr>
            <td width="200" align="right">To: </td>
            <td>PBB Member List
            <input type="hidden" value="<%= Session("AddressString") %>" name="to">
            </td>
          </tr>
          <tr>
            <td width="200" align="right">Date: </td>
            <td> <%=Date()%> <input type="hidden" value="<%=Date()%>" name="createDate">
            </td>
          </tr>
          <tr>
            <td width="200" align="right">Subject: </td>
            <td><input name="subject" type="text" size="75" maxlength="200" value="<%=Session("messageSubj")%>"></td>
          </tr>
          <tr>
            <td align="right" valign="top">Message Text: </td>
            <td><textarea rows="8" cols="70" name="emailText"><%=Session("messageTyped")%></textarea></td>
          </tr>
          <tr>
            <td colspan="2" align="center"><input type="submit" name="cancel" value="Cancel">&nbsp;&nbsp;<input type="submit" name="submit" value="Preview Email">&nbsp;&nbsp;<input type="submit" name="submit" value="Send Email"></td>
          </tr>
        </table>
        <input type="hidden" name="sendEmail" value="send">
        </form><hr>
      		<p>Alternatively, click on the link below. This will open your default email program and create a new message with the "To:" field filled with the addresses of all current PBB members. When you are done composing your message, just send it the same way you normally would.</p>
			<p><strong>Note:</strong> Not all internet software supports this feature. If you do not use a separate email application (such as Outlook, Outlook Express, Eudora, etc.) this feature may not work for you.</p>

			<br>
			<a href="mailto:<%= Session("AddressString") %>">Click Here to email the entire PBB roster</a><br>
			<br>
		</td>
	</tr>
<%
End If
%>
</table>
<p>&nbsp; </p>
</body>
</html>
<%
emailSource.Close()
Set emailSource = Nothing
%>
<%
MemEmail.Close()
Set MemEmail = Nothing
%>