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

Military Youth Saves — Individual Saver Pledge

<% If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then 'NOT RECEIVED VIA POST %>
Military Youth Saves Eagle

Military Youth Saves is a social marketing program designed to encourage kids and teens to develop good savings habits at a young age. We want you to be a responsible saver but we also want you to spread the savings message to your family and friends!!

I promise to help myself by saving money and using debt responsibly or not at all.

I promise to help my family, my friends, and our neighbors by encouraging them to do the same.

First Name:
Last Name:
Email Address:
 

Your personal information is safe with Military Saves. We do not sell or distribute your contact information.
Please see our privacy policy for more information.

<% Else 'RECEIVED VIA POST If Request("email") <> "" Then 'SEND CFA NOTIFICATION 'strSaverEmailTo = "info@militarysaves.org" strSaverEmailTo = "julie@militarysaves.org" strSaverBCC = "bruce.spates@finra.org" strSaverEmailFrom = Request("email") strSaverEmailSubject = "Military Saves Individual Certificate: " & Request("organization") strSaverEmailBody = "The following individual created a Military Saves pledge certificate: " & vbCrLf & vbCrLf _ & "Name: " & Request("firstname") & " " & Request("lastname")& vbCrLf & vbCrLf _ & "E-Mail: " & Request("email") & vbCrLf & vbCrLf CDONTS_Email strSaverEmailTo, strSaverEmailFrom, "", strSaverBCC, strSaverEmailFrom, "", strSaverEmailSubject, strSaverEmailBody End If %>
Congratulations on Taking the Individual Saver Pledge!

 

<%= Request("firstname") %>,

Welcome to the Military Youth Saves campaign!

','CertificateWin','1024','650');">Click here to display your pledge certificate.

You may print your certificate from the new window.

For the best results, we recommend that you print your certificate in landscape mode.

 

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