<%@ Language=VBScript %> Young Heroes Orphan Families <% '123 set YHConn=Server.CreateObject("ADODB.Connection") YHConn.Open ConnectS FamilyCode=GetRandomFamilyCode MyQuery = "select * from Family where FamilyCode='" & FamilyCode & "' " set YHFamilyRS= Server.CreateObject("ADODB.RecordSet") YHFamilyRS.Open MyQuery , YHConn, 3, 3 %> <% YHFamilyRS.movenext loop YHFamilyRS.close set YHFamilyRS=Nothing YHConn.close SET YHConn=nothing %>

LINKS YOUNG HEROES NEWS CHALLENGE THANKS SITE MAP CONTACT US

Young Heroes Orphan Families




When you have selected a family to support, click the “Sponsor this family” button and you will be automatically taken to the page for filling out your sponsorship details.
<% do while not YHFamilyRS.EOF %> <% myChildPhotoID=GetRandomChildPhoto(YHFamilyRS("FamilyCode")) if myChildPhotoID > 0 then set tmpChildPhotoRS = Server.CreateObject("ADODB.RecordSet") tmpChildPhotoRS.CursorLocation=adUseClient mSQL = "Select * from ChildPhoto where PhotoID = " & myChildPhotoID & " and archived < 1 " tmpChildPhotoRS.Open mSQL, YHConn, 3, 3 MyCaption=tmpChildPhotoRS ("Caption") if len(trim(MyCaption)) < 1 then MyCaption="" else MyCaption = "(" & MyCaption & ")" end if iName=tmpChildPhotoRS("ImageName") titlebar=YHFamilyRS("FamilyCode") & "/" & YHFamilyRS("FamilySurname") ' Get Child Info MyQuery = "select * from Child where ChildID=" & tmpChildPhotoRS("ChildID") & " and archived < 1 " set YHChildRS= Server.CreateObject("ADODB.RecordSet") YHChildRS.Open MyQuery , YHConn, 3, 3 Sex="Unknown" if ucase(YHChildRS("ChildSex"))="M" then Sex="Boy" if ucase(YHChildRS("ChildSex"))="F" then Sex="Girl" Age=YHChildRS("ChildAge") if Age=1 then YearDesc="Year" else YearDesc="Years" if YHChildRS("ChildInSchool")=1 then SchoolStatus="In School " & "(" & YHChildRS("ChildSchoolClass") & ")" else SchoolStatus="Out of School" end if if len(MyCaption) > 0 then titlebar=YHChildRS("ChildFirstname")& "," & MyCaption & "," & Sex & "," & Age & " " & YearDesc & "," & SchoolStatus else titlebar=YHChildRS("ChildFirstname")& "," & Sex & "," & Age & " " & YearDesc & "," & SchoolStatus end if YHChildRS.Close set YHChildRS=nothing 'End Get Child Info PhotoAltText= titlebar & vbcrlf & "Family Name: " & YHFamilyRS("FamilySurname") & ", Family Code: " & YHFamilyRS("FamilyCode") & ", Community Name: " & GetCommunityName(YHFamilyRS("CommunityID")) & ", Number of Children: " & GetFamilyNumChildren(YHFamilyRS("FamilyCode")) else iName="none.gif" titlebar=YHFamilyRS("FamilyCode") & "/" & YHFamilyRS("FamilySurname") PhotoAltText="Family Name: " & YHFamilyRS("FamilySurname") & ", Family Code: " & YHFamilyRS("FamilyCode") & ", Community Name: " & GetCommunityName(YHFamilyRS("CommunityID")) & ", Number of Children: " & GetFamilyNumChildren(YHFamilyRS("FamilyCode")) end if iUrl="photo/" & iName w=GetImageWidth(iName) h=GetImageHeight(iName) %> <%=PhotoAltText%> " />

Family name

<%=YHFamilyRS("FamilySurname")%>

Family code

" title="View the family details."><%=YHFamilyRS("FamilyCode")%>

Community

<%=GetCommunityName(YHFamilyRS("CommunityID"))%>

Number of Children

<%=GetFamilyNumChildren(YHFamilyRS("FamilyCode"))%>

To view other families in need of sponsorship:

Click here to browse all families
To narrow your search, select a specific community and/or size of family and click "Search."
Click here to donate where the need is greatest. We will select a family and notify you.

Community

<% set YHConn=Server.CreateObject("ADODB.Connection") YHConn.Open ConnectS MyQuery = "select * from Community" & " where archived < 1 " set YHCommunityRS= Server.CreateObject("ADODB.RecordSet") YHCommunityRS.Open MyQuery , YHConn, 3, 3 %>

<% do while not YHCommunityRS.EOF %> <% ListNumFam=GetCommunityNumFamily(YHCommunityRS("CommunityID")) %> " /> <%=YHCommunityRS("CommunityName")%> – <%=ListNumFam%> <%if ListNumFam = "1" then %> Family
<%else%> Families
<% End If YHCommunityRS.movenext loop %>

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

Size of Family

Any number of children
1 child
2 children
3 children
More than 3 children