<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("BRAGFORM_form_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(8) Dim arFormDBFields0(8) Dim arFormValues0(8) arFormFields0(0) = "Contact_HomePhone" arFormDBFields0(0) = "Contact_HomePhone" arFormValues0(0) = Request("Contact_HomePhone") arFormFields0(1) = "Event Details" arFormDBFields0(1) = "Event_Details" arFormValues0(1) = Request("Event Details") arFormFields0(2) = "Contact_FullName" arFormDBFields0(2) = "Contact_FullName" arFormValues0(2) = Request("Contact_FullName") arFormFields0(3) = "Contact_Email" arFormDBFields0(3) = "Contact_Email" arFormValues0(3) = Request("Contact_Email") arFormFields0(4) = "Contact for more information_HomePhone" arFormDBFields0(4) = "Contact_for_more_information_HomePhone" arFormValues0(4) = Request("Contact for more information_HomePhone") arFormFields0(5) = "Contact for more information_FullName" arFormDBFields0(5) = "Contact_for_more_information_FullName" arFormValues0(5) = Request("Contact for more information_FullName") arFormFields0(6) = "Contact for more information_Email" arFormDBFields0(6) = "Contact_for_more_information_Email" arFormValues0(6) = Request("Contact for more information_Email") arFormFields0(7) = "Date" arFormDBFields0(7) = "Date" arFormValues0(7) = Request("Date") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "BRAGFORM_form.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> St. John Villa Academy

 
 

 

Alumni Association

ES & HS Reunions

Alumni Info Form

Brag Form 

Special Events and News


 

 


 

 


Brag Form - Tell us your Good News!

Don't keep good news to yourself!  We want to hear about awards, achievements and "news-worthy" information about SJVA alumni, students, faculty and staff so we can share it with others in our academic newsletter, SJVAnews.

If you have pictures to share, you can email them to mcolantoni@sjva.org or mail them to: SJVA Development Office, 57 Cleveland Place, Staten Island, NY 10305 Attn: Marguerite Karam-Colantoni '75, Development and Alumni Relations Associate.


Just complete this form. Click on Submit when ready to send.
Your Name
Home Phone
E-mail

        Enter the date of the Event :
        
        Tell us all about the event/achievement

           Contact person for more information (if different from name above): 

Name
Home Phone
E-mail
Copyright © 2006 SJVA.org All rights reserved.
Revised: July 02, 2006