<%
FamilyCode1=trim(request.querystring("FamilyCode"))
FamilyCode2=trim(request.form("FamilyCode"))
if Len(FamilyCode1) > 0 then FamilyCode=FamilyCode1
if Len(FamilyCode2) > 0 then FamilyCode=FamilyCode2
if len(FamilyCode) > 1 then
set YHConn=Server.CreateObject("ADODB.Connection")
YHConn.Open ConnectS
MyQuery = "select * from Family where FamilyCode='" & FamilyCode & "'"
set YHFamilyRS= Server.CreateObject("ADODB.RecordSet")
YHFamilyRS.Open MyQuery , YHConn, 3, 3
FamilySurname=YHFamilyRS("FamilySurname")
CommunityID=YHFamilyRS("CommunityID")
CommunityName=GetCommunityName(CommunityID)
NumChild=cint(GetFamilyNumChildren(FamilyCode))
YHFamilyRS.close
set YHFamilyRS=Nothing
YHConn.Close
set YHConn=Nothing
else
FamilySurname=""
CommunityID=""
CommunityName=""
end if
%>