<%@ language="VBScript" %> <% Dim DataConn 'As Data Connection Dim strPage 'As String Dim rsPage 'As Recordset 'Open Data Connection Set DataConn = OpenDatabase() 'Retrieve Page Information strPage = Layout_GetContentFileOfCurrentPage(DataConn, "") strSQL = "CM_Select_Content_Tree_ByContentFile '" & strPage & "'" Set rsPage = DataConn.Execute(strSQL) %> <% Layout_TemplateHeader1 DataConn, rsPage, "" Layout_TemplateHeader2 DataConn, rsPage, "" %> <% If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then 'NOT RECEIVED VIA POST %>

PROJECT OFFICERS: SUBSCRIBE TO CAMPAIGN UPDATES

Military Saves is working to provide you with the most up-to-date campaign possible.

Let us help you. Sign-up here to get campaign update notifications.

Want to take the Saver Pledge? Go Here.

First Name:
Last Name:
Title:
Organization:
Organization Type:
Email Address:
Telephone:
Installation:
Comments:
 
<% Else 'RECEIVED VIA POST If Request("email") <> "" Then 'SEND CFA NOTIFICATION strSaverEmailTo = "info@militarysaves.org" 'strSaverEmailTo = "spatesb@nasd.com" 'strSaverBCC = "bruce.spates@finra.org" strSaverEmailFrom = Request("email") strSaverEmailSubject = "Military Saves Project Officer Sign-Up: " & Request("lastname")& ", "& Request("firstname") strSaverEmailBody = "The following Project Officer has subscribed to campaign updates: " & vbCrLf & vbCrLf _ & "Name: " & Request("firstname") & " " & Request("lastname") & vbCrLf & vbCrLf _ & "Title: " & Request("title") & vbCrLf & vbCrLf _ & "Organization: " & Request("organization") & vbCrLf & vbCrLf _ & "Organization Type: " & Request("orgtype") & vbCrLf & vbCrLf _ & "Telephone: " & Request("phone") & vbCrLf & vbCrLf _ & "E-Mail: " & Request("email") & vbCrLf & vbCrLf _ & "Installation: " & Request("installation") & vbCrLf & vbCrLf _ & "Comment: " & vbCrLf & vbCrLf & Request("org_desc") CDONTS_Email strSaverEmailTo, strSaverEmailFrom, "", strSaverBCC, strSaverEmailFrom, "", strSaverEmailSubject, strSaverEmailBody 'SEND ORGANIZATION RETURN NOTIFICATION strSaverEmailTo = Request("email") 'strSaverBCC = "bruce.spates@finra.org" strSaverEmailFrom = "info@militarysaves.org" strSaverEmailSubject = "Military Saves Campaign Update List" strSaverEmailBody ="Dear " & Request("firstname") & " " & Request("lastname") & ", " & vbCrLf & vbCrLf _ & "Thank you for subscribing to Military Saves Project Officer Campaign Updates. We will contact you when we have new campaign information which may help " _ & "you Build Wealth, Not Debt." & vbCrLf & vbCrLf _ & "Very respectfully," & vbCrLf & vbCrLf _ & "MILITARY SAVES" & vbCrLf & vbCrLf & vbCrLf & vbCrLf _ & "Military Saves is part of America Saves and the Department of Defense Financial Readiness Campaign, " _ & "and is supported in part by the FINRA Investor Education Foundation, sponsors of SaveandInvest.org, " _ & "and by Wells Fargo Home Mortgage. This is a free program - nobody from Military Saves will try to " _ & "sell you anything - ever." 'strSaverEmailTo = "bruce.spates@finra.org" CDONTS_Email strSaverEmailTo, strSaverEmailFrom, "", strSaverBCC, strSaverEmailFrom, "", strSaverEmailSubject, strSaverEmailBody End If %>
Thank You for Subscribing to Project Officer Campaign Updates

Thanks for subscribing to Military Saves Project Officer Campaign updates. You should be receiving an email within the next 30 minutes. The most common reason an email is not delivered is because you've typed it in incorrectly. The email address you gave the system is <%= Request("email") %>. If this email address is incorrect please resubmit your request. You may also want to check your junk mail, sometimes the response will end up there. Thank you!

Military Saves is part of America Saves and the Department of Defense Financial Readiness Campaign, and is supported in part by the FINRA Investor Education Foundation, sponsors of SaveandInvest.org, and by Wells Fargo Home Mortgage. This is a free program - nobody from Military Saves will try to sell you anything - ever.

 

 

 

<% End If %>
<% Layout_TemplateFooter DataConn, rsPage, strParameter %> <% DataConn.Close Set DataConn = Nothing %>