<%@LANGUAGE ="VBScript"%>
<% Option Explicit %>
<%
Dim Rs, SQL, TreeID
Dim NodeName, NodeDescription, ImageID, City, Country
Dim FamilyName, NodeSurname
TreeID = Request("TreeID")
If Not isNumeric(TreeID) then TreeID = ""
If TreeID = "" then TreeID = 10 '###### testing mode is Farid's family
SQL = "Select T.NodeName, T.NodeSurname, T.NodeDescription, T.ImageID, T.City, C.CountryName, T.isPublic"
SQL = SQL & " from TreeMaster T, Bankstowncity1.Country C"
SQL = SQL & " where T.Country = C.CountryID"
SQL = SQL & " and T.TreeID = " & TreeID
Set Rs = Conn.Execute(SQL)
If Rs.EOF then '# in case not found TreeID requested
Rs.Close
Set Rs = Nothing
DBConnection_Close()
Response.Redirect "error.asp"
End If
If (Rs("isPublic") = "0") then '# found record but 0 mean this member is not allowed for public view.
Rs.Close
Set Rs = Nothing
DBConnection_Close()
Response.Redirect "error.asp"
End If
NodeName = Rs("NodeName")
NodeSurname = Rs("NodeSurname")
NodeDescription = Rs("NodeDescription")
ImageID = Rs("ImageID")
City = Rs("City")
Country = Rs("CountryName")
Rs.Close
'FamilyName = getFamilyName(Conn, TreeID)
SQL = "Select M.NodeName, M.NodeSurname, R.RelationShip, R.2TreeID From TreeMaster M, TreeRelationShip R"
SQL = SQL & " Where M.TreeID = R.2TreeID"
SQL = SQL & " and R.TreeID = " & TreeID
SQL = SQL & " and M.isPublic = 1"
SQL = SQL & " order by R.SeqOrder asc"
Set Rs = Conn.Execute(SQL)
'
'
'
'
'
'
'
'
'
'
Function getFamilyName(iConn, ID) '# db_connection, TreeID
Dim iSQL, iRs, temp
iSQL = "Select M.SurName from Membership M, TreeMaster T"
iSQL = iSQL & " where M.MemberID = T.MemberID"
iSQL = iSQL & " and T.TreeID = " & ID
Set iRs = iConn.Execute(iSQL)
temp = iRs("SurName")
iRs.Close
Set iRs = Nothing
getFamilyName = temp
End Function
%>
