<%@ 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 %>

SUBSCRIBE TO RESOURCE UPDATES

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

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

Want to take the Saver Pledge? Go Here.

First Name:
Last Name:
Title:
Organization:
Organization Type:
Email Address:
Telephone:
Resource Interests: Organization Resources
Individual Resources
Educational Resources
Campaign Resources
Other Resources - see comments
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 Resource Updates: " & Request("organization") strSaverEmailBody = "The following organization subscribed to resource 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 _ & "Resources: " & Request("ResType1") & vbCrLf _ & " " & Request("ResType2") & vbCrLf _ & " " & Request("ResType3") & vbCrLf _ & " " & Request("ResType4") & vbCrLf _ & " " & Request("ResType5") & 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 Resources List" strSaverEmailBody ="Dear " & Request("firstname") & " " & Request("lastname") & ", " & vbCrLf & vbCrLf _ & "Thank you for subscribing to Military Saves resources. We will contact you when we have new resources 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 Resource Updates

Thanks for subscribing to Military Saves resource 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 %>