YOUNG HEROES CHALLENGE - College or University

<%@ Language=VBScript %> YOUNG HEROES CHALLENGE - College or University

Registration Page – Primary & High Schools

Thank you for joining the Young Heroes Challenge.

Just fill in the registration information below. We'll display it so others know of your good work, and send you materials you can use to spread the word about your project.

Organization/Class
School
Contact Name
Address
State/Region
Postal Code
Country
Email
Telephone
OPTIONAL:
Our sponsorship goal is:
Number of children
or Dollar Amount

We want to challenge:

First Challenge

Organization
Contact Name
Email

Second Challenge

Organization
Contact Name
Email

The more challenges you issue, the more orphans we can help. If you'd like to challenge more than two others, just email their information to us at challenge@youngheroes.org.sz and we'll inform them that they've been challenged, too.

COMPLETED YOUR CHALLENGE PROJECT? Click here to learn how to register your donation.

THEY'VE ACCEPTED THE CHALLENGE!

<% set YHConn=Server.CreateObject("ADODB.Connection") YHConn.Open ConnectS MyQuery = "select * from chschool where SchoolID > 0 order by School, orgclass" 'MyQuery = "select * from chorgchallenge order by chorgname" set YHChallengeRS= Server.CreateObject("ADODB.RecordSet") YHChallengeRS.Open MyQuery , YHConn, 3, 3 do while not YHChallengeRS.EOF %> <% YHChallengeRS.movenext loop %>

<% YHChallengeRS.close set YHChallengeRS=Nothing YHConn.close SET YHConn=nothing %>

School	Org/Class	Dollar Goal	Children Goal
<%=YHChallengeRS("School")%>	<%=YHChallengeRS("orgclass")%>	<% if YHChallengeRS("GoalDollarAmt")> 0 then%><%=YHChallengeRS("GoalDollarAmt")%><% else %> <% End If %>	<% if YHChallengeRS("GoalNumChildren")> 0 then%><%=YHChallengeRS("GoalNumChildren")%><% else %> <% End If %>

These are the challenges that have been issued <% set YHConn=Server.CreateObject("ADODB.Connection") YHConn.Open ConnectS MyQuery = "select * from chschool where SchoolID > 0 order by School, orgclass" set YHSchoolRS= Server.CreateObject("ADODB.RecordSet") YHSchoolRS.Open MyQuery , YHConn, 3, 3 do while not YHSchoolRS.EOF %> <% YHSchoolRS.movenext loop %>

School

Org / Class

Challenge

<%=YHSchoolRS("School")%>

<%=YHSchoolRS("OrgClass")%>

<% MyQuery = "select * from chorgchallenge where SchoolID =" & YHSchoolRS("SchoolID") & " order by chorgname" set YHChallengeRS= Server.CreateObject("ADODB.RecordSet") YHChallengeRS.Open MyQuery , YHConn, 3, 3 do while not YHChallengeRS.EOF %> <% YHChallengeRS.movenext loop %>

<%=YHChallengeRS("chorgname")%>

<% if YHChallengeRS("Accept") = 0 then %> Not Accepted <%else %> Accepted <%'YHChallengeRS("AcceptDate")%> <% End If%>

<% YHChallengeRS.close set YHChallengeRS=Nothing %>

<% YHSchoolRS.close set YHSchoolRS=Nothing YHConn.close SET YHConn=nothing %>