<%@ Language=VBScript %> <% ' **************************************** ' **************************************** ' This is the application script for the teacher institutes. ' **************************************** ' **************************************** ' **************************************** ' **************************************** ' Below is the form vistiors see if they have not yet submitted the form. ' **************************************** ' **************************************** if isempty(Request.Form("Apply")) then %> Application | Presidential Academy For American History & Civics

Application

The Presidential Academy was a project of the Ashbrook Center from 2006-2011. No future academies are planned at this time.

Teachers participating in the Presidential Academy spent five days in Philadelphia, six days in Gettysburg, and seven days in Washington, DC, studying the American Revolution and Founding, the Civil War, and the Civil Rights movement, respectively. The Academy was a rigorous, eighteen-day, graduate-level program beginning at 9:00 am each morning and concluding at as late as 10:00 pm in the evening. The Academy went on two five-hour battlefield tours that were mostly walking tours as well as walking to other sites.

Sixty teachers, one from each state, the District of Columbia, an American territory, and eight others selected from the nation as a whole, were selected to participate in the Presidential Academy. Teachers selected were a combination of new and veteran, middle and high school, and American history and civics teachers.

With the exception of travel to and from the Academy, the Presidential Academy was available at no cost to the teachers. Participating teachers received a $1,500 stipend to cover the cost of travel. Participants were also eligible to obtain four graduate credits from Ashland University's Master of American History and Government degree program.

Graduate Credit: Teachers could choose to receive four hours of Master's degree credit from Ashland University. This credit can be used toward the Master of American History and Government offered by Ashland University or may be transfered to another institution.

<% ' **************************************** ' **************************************** ' If the form has been submitted, the application information is added to the database. ' **************************************** ' **************************************** elseif not isempty(Request.Form("Apply")) then FirstName2 = Replace( Request.Form("FirstName"), "'", "’" ) PreferredName2 = Replace( Request.Form("PreferredName"), "'", "’" ) LastName2 = Replace( Request.Form("LastName"), "'", "’" ) HomeAddress2 = Replace( Request.Form("HomeAddress"), "'", "’" ) HomeCity2 = Replace( Request.Form("HomeCity"), "'", "’" ) HomeState2 = Replace( Request.Form("HomeState"), "'", "’" ) HomeZip2 = Replace( Request.Form("HomeZip"), "'", "’" ) HomePhone2 = Replace( Request.Form("HomePhone"), "'", "’" ) SchoolName2 = Replace( Request.Form("SchoolName"), "'", "’" ) SchoolAddress2 = Replace( Request.Form("SchoolAddress"), "'", "’" ) SchoolCity2 = Replace( Request.Form("SchoolCity"), "'", "’" ) SchoolState2 = Replace( Request.Form("SchoolState"), "'", "’" ) SchoolZip2 = Replace( Request.Form("SchoolZip"), "'", "’" ) SchoolPhone2 = Replace( Request.Form("SchoolPhone"), "'", "’" ) EMail2 = Replace( Request.Form("EMail"), "'", "’" ) SchoolType2 = Replace( Request.Form("SchoolType"), "'", "’" ) GradeTaught2 = Replace( Request.Form("GradeTaught"), "'", "’" ) CoursesTaught2 = Replace( Request.Form("CoursesTaught"), "'", "’" ) Undergrad2 = Replace( Request.Form("Undergrad"), "'", "’" ) UndergradMajors2 = Replace( Request.Form("UndergradMajors"), "'", "’" ) UndergradMinors2 = Replace( Request.Form("UndergradMinors"), "'", "’" ) Graduate2 = Replace( Request.Form("Graduate"), "'", "’" ) GraduateDegrees2 = Replace( Request.Form("GraduateDegrees"), "'", "’" ) FutureGradPlans2 = Replace( Request.Form("FutureGradPlans"), "'", "’" ) Certification2 = Replace( Request.Form("Certification"), "'", "’" ) FutureCareerGoals2 = Replace( Request.Form("FutureCareerGoals"), "'", "’" ) Essay2 = Replace( Request.Form("Essay"), "'", "’" ) HomeCounty2 = Replace( Request.Form("HomeCounty"), "'", "’" ) SchoolCounty2 = Replace( Request.Form("SchoolCounty"), "'", "’" ) School12 = Replace( Request.Form("School1"), "'", "’" ) Major12 = Replace( Request.Form("Major1"), "'", "’" ) Dates12 = Replace( Request.Form("Dates1"), "'", "’" ) Degree12 = Replace( Request.Form("Degree1"), "'", "’" ) School22 = Replace( Request.Form("School2"), "'", "’" ) Major22 = Replace( Request.Form("Major2"), "'", "’" ) Dates22 = Replace( Request.Form("Dates2"), "'", "’" ) Degree22 = Replace( Request.Form("Degree2"), "'", "’" ) School32 = Replace( Request.Form("School3"), "'", "’" ) Major32 = Replace( Request.Form("Major3"), "'", "’" ) Dates32 = Replace( Request.Form("Dates3"), "'", "’" ) Degree32 = Replace( Request.Form("Degree3"), "'", "’" ) School42 = Replace( Request.Form("School4"), "'", "’" ) Major42 = Replace( Request.Form("Major4"), "'", "’" ) Dates42 = Replace( Request.Form("Dates4"), "'", "’" ) Degree42 = Replace( Request.Form("Degree4"), "'", "’" ) School52 = Replace( Request.Form("School5"), "'", "’" ) Major52 = Replace( Request.Form("Major5"), "'", "’" ) Dates52 = Replace( Request.Form("Dates5"), "'", "’" ) Degree52 = Replace( Request.Form("Degree5"), "'", "’" ) School62 = Replace( Request.Form("School6"), "'", "’" ) Major62 = Replace( Request.Form("Major6"), "'", "’" ) Dates62 = Replace( Request.Form("Dates6"), "'", "’" ) Degree62 = Replace( Request.Form("Degree6"), "'", "’" ) GradCredit2 = Replace( Request.Form("GradCredit"), "'", "’" ) HowHeard2 = Replace( Request.Form("HowHeard"), "'", "’" ) OtherInstitutes2 = Replace( Request.Form("OtherInstitutes"), "'", "’" ) HomeState3 = ucase(HomeState2) SchoolState3 = ucase(SchoolState2) set conn = server.createobject ("adodb.connection") conn.Open "Provider=SQLOLEDB;Initial Catalog=TAH; Data Source=172.18.26.50","sqlWebUser","banana" conn.Execute "insert into PAApplicants (Date, Time, Year, FirstName, PreferredName, LastName, HomeAddress, HomeCity, HomeState, HomeZip, HomePhone, SchoolName, SchoolAddress, SchoolCity, SchoolState, SchoolZip, SchoolPhone, EMail, SchoolType, YearsTaught, GradeTaught, CoursesTaught, Undergrad, UndergradMajors, UndergradMinors, Graduate, GraduateDegrees, FutureGradPlans, Certification, FutureCareerGoals, HomeCounty, SchoolCounty, School1, Major1, Dates1, Degree1, School2, Major2, Dates2, Degree2, School3, Major3, Dates3, Degree3, School4, Major4, Dates4, Degree4, School5, Major5, Dates5, Degree5, School6, Major6, Dates6, Degree6, GradCredit, HowHeard, OtherInstitutes, Institute9, Essay) values (" _ & "'" & Request.Form("Date") & "', " _ & "'" & Request.Form("Time") & "', " _ & "'" & Request.Form("Year") & "', " _ & "'" & FirstName2 & "', " _ & "'" & PreferredName2 & "', " _ & "'" & LastName2 & "', " _ & "'" & HomeAddress2 & "', " _ & "'" & HomeCity2 & "', " _ & "'" & HomeState3 & "', " _ & "'" & HomeZip2 & "', " _ & "'" & HomePhone2 & "', " _ & "'" & SchoolName2 & "', " _ & "'" & SchoolAddress2 & "', " _ & "'" & SchoolCity2 & "', " _ & "'" & SchoolState3 & "', " _ & "'" & SchoolZip2 & "', " _ & "'" & SchoolPhone2 & "', " _ & "'" & EMail2 & "', " _ & "'" & SchoolType2 & "', " _ & "'" & Request.Form("YearsTaught") & "', " _ & "'" & GradeTaught2 & "', " _ & "'" & CoursesTaught2 & "', " _ & "'" & Undergrad2 & "', " _ & "'" & UndergradMajors2 & "', " _ & "'" & UndergradMinors2 & "', " _ & "'" & Graduate2 & "', " _ & "'" & GraduateDegrees2 & "', " _ & "'" & FutureGradPlans2 & "', " _ & "'" & Certification2 & "', " _ & "'" & FutureCareerGoals2 & "', " _ & "'" & HomeCounty2 & "', " _ & "'" & SchoolCounty2 & "', " _ & "'" & School12 & "', " _ & "'" & Major12 & "', " _ & "'" & Dates12 & "', " _ & "'" & Degree12 & "', " _ & "'" & School22 & "', " _ & "'" & Major22 & "', " _ & "'" & Dates22 & "', " _ & "'" & Degree22 & "', " _ & "'" & School32 & "', " _ & "'" & Major32 & "', " _ & "'" & Dates32 & "', " _ & "'" & Degree32 & "', " _ & "'" & School42 & "', " _ & "'" & Major42 & "', " _ & "'" & Dates42 & "', " _ & "'" & Degree42 & "', " _ & "'" & School52 & "', " _ & "'" & Major52 & "', " _ & "'" & Dates52 & "', " _ & "'" & Degree52 & "', " _ & "'" & School62 & "', " _ & "'" & Major62 & "', " _ & "'" & Dates62 & "', " _ & "'" & Degree62 & "', " _ & "'" & GradCredit2 & "', " _ & "'" & HowHeard2 & "', " _ & "'" & OtherInstitutes2 & "', " _ & "'" & Request.Form("Institute9") & "', " _ & "'" & Essay2 & "')" ' **************************************** ' **************************************** ' This is the HTML response after submitting the registration. ' **************************************** ' **************************************** %> Application | Presidential Academy For American History & Civics

Application


Your application to the 2011 Presidential Academy has been submitted. Selections will be made by April 15, 2011.

<% Response.Write Request.Form("FirstName") %> <% if Request.Form("PreferredName") <> "" then Response.Write(" (") end if %><% Response.Write Request.Form("PreferredName") %><% if Request.Form("PreferredName") <> "" then Response.Write(")") end if %> <% Response.Write Request.Form("LastName") %>

<% Response.Write Request.Form("SchoolName") %>  
<% Response.Write Request.Form("SchoolAddress") %>  
<% Response.Write Request.Form("SchoolCity") %>,  <% Response.Write Request.Form("SchoolState") %>  <% Response.Write Request.Form("SchoolZip") %>

Home Phone: <% Response.Write Request.Form("HomePhone") %> 
School Phone: <% Response.Write Request.Form("SchoolPhone") %> 

E-Mail: <% Response.Write Request.Form("EMail") %> 

Submitted <% Response.Write Request.Form("Date") %>  

Back to Top

<% ' **************************************** ' **************************************** ' This is the e-mail response to the administrator after submitting the registration. ' **************************************** ' **************************************** 'Set objMail = CreateObject("CDONTS.NewMail") 'objMail.Send "info@TeachingAmericanHistory.org", "lormisto@ashland.edu", "Teacher Summer Institute Application", "A new summer institute application has been entered in the database." & vbcrlf & "http://www.TeachingAmericanHistory.org/institutes/applicants.html" 'set objMail = nothing ' **************************************** ' **************************************** ' This is the e-mail response to the user after submitting the registration. ' **************************************** ' **************************************** ' Set objMail = CreateObject("CDONTS.NewMail") ' objMail.Send "info@PresidentialAcademy.org", (Request.Form("EMail")), "Presidential Academy Application", "Thank you for your application for the Presidential Academy for American History and Civics. You will receive notification by April 15, 2011." & vbcrlf & vbcrlf & "http://www.PresidentialAcademy.org/" ' set objMail = nothing end if %>