 |
|
|||||||||||||||||||||||||||||||||||
Young Heroes Orphan Families
We found the following families, which match your
search criteria:
<% if SearchNumChildren > 0 and SearchNumChildren < 4 then %>Number
of Children : <%=SearchNumChildren%> <% end if%> <% if SearchNumChildren = 4 then %>Number
of Children : More than 3<% end if%>
Please choose a family by clicking on a family code. You will see a full description of the family.
<% set YHConn=Server.CreateObject("ADODB.Connection") YHConn.Open ConnectS MyCommunityQuery = "select * from Community" if FamSearch="Yes" then DoWhere="False" MySelect="" MySelect = MySelect & " Where " for x = 0 to ubound(SelectedCommunities) if len(SelectedCommunities(x)) > 0 then if x > 0 then MySelect = MySelect & " OR " end if MySelect = MySelect & " CommunityID=" & SelectedCommunities(x) & " " if SelectedCommunities(x) > 0 then DoWhere="True" end if next 'tmpMySelect = "" & MySelect & "
" 'response.write(tmpMySelect) end if if DoWhere="True" then MyCommunityQuery = MyCommunityQuery & MySelect end if MySelect = MySelect & " and archived = 0 " MyCommunityQuery = MyCommunityQuery & " Order By CommunityName" set YHCommunityRS= Server.CreateObject("ADODB.RecordSet") YHCommunityRS.Open MyCommunityQuery , YHConn, 3, 3 do while not YHCommunityRS.EOF NumFam=GetCommunityNumFamily(YHCommunityRS("CommunityID")) %><%=YHCommunityRS("CommunityName")%> : <%=NumFam%> Families
<%
MyQuery = "select * from Family where CommunityID=" & YHCommunityRS("CommunityID") & " and archived = 0 "
MyQuery=MyQuery & " order by FamilyCode, FamilySurname"
set YHFamilyRS= Server.CreateObject("ADODB.RecordSet")
YHFamilyRS.Open MyQuery , YHConn, 3, 3
do while not YHFamilyRS.EOF %> <% NumChild=cint(GetFamilyNumChildren(YHFamilyRS("FamilyCode")))%>
<% if SearchNumChildren > 0 then
DoPrint=False
if SearchNumChildren = Numchild then DoPrint=True
if SearchNumChildren = 4 and NumChild >=4 then DoPrint=True
%> <%if DoPrint=True then %> <%
if FamilyCount < ubound(FamilyList) then
FamilyList(FamilyCount) = YHFamilyRS.Fields("FamilyCode").Value
FamilyCount=FamilyCount + 1
End if
%>
" target="_self">
<%=YHFamilyRS("FamilyCode")%> : <%=YHFamilyRS("FamilySurname")%>
– <%=NumChild%> <%
if NumChild = 1 then
%> Child<%
else
%> Children<%
end if
%>
<% end if%>
<%else ' No Criteria for Number of Children %>
<%
if FamilyCount < ubound(FamilyList) then
FamilyList(FamilyCount) = YHFamilyRS.Fields("FamilyCode").Value
FamilyCount=FamilyCount + 1
End if
%>
" target="_self">
<%=YHFamilyRS("FamilyCode")%> : <%=YHFamilyRS("FamilySurname")%>
– <%=NumChild%> <%
if NumChild = 1 then
%> Child<%
else
%> Children<%
end if
%>
<%End If%> <%
YHFamilyRS.movenext
loop
YHFamilyRS.close
set YHFamilyRS=Nothing
%>
" & FamilyCount & "
") 'for x = LBound(FamilyList) to UBound(FamilyList) ' Response.Write("Click here to browse all families