PHẢ ĐỒ DÒNG HỌ XEM THEO:    Danh sách  Cây gia phả

Từ khóa: Giới tính: Tất cả Không rõ Nam Nữ Tình trạng: Tất cả Không rõ Còn sống Đã mất Thuộc: Dòng họ Nghành ngoại

Xem theo đời thứ: <% openconn set rsdoi= server.CreateObject("adodb.recordset") rsdoi.open "select * from tbldoi order by iddoi asc", conn if rsdoi.eof then %> <% else do while not rsdoi.EOF %> " title="Xem danh sách của đời thứ <%= rsdoi("name") %>"> <%= rsdoi("name") %>  | <% rsdoi.movenext loop end if rsdoi.close %> <% openconn sessionpage=request("sessionpage") 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs2= server.CreateObject("adodb.recordset") rs2.open "SELECT * FROM tbldoi where iddoi="&sessionpage&" ", conn if not rs2.eof then %> HIỆN TẠI BẠN ĐANG XEM: ĐỜI THỨ <%=rs2("name")%> <% end if %> <% openconn sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblgiapha where iddoi="&sessionpage&" order by idparrent ASC",conn,3,1 do while not rs.eof %> <% openconn set rs1= server.CreateObject("adodb.recordset") rs1.open "select * from tblgiapha where idparrent="&rs("idmodule")&" ", conn,3,1 if not rs1.eof then do while not rs1.eof %> <% rs1.movenext loop end if %> <% RS.MoveNext loop %> <% openconn sessionpage=request("sessionpage") 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs2= server.CreateObject("adodb.recordset") rs2.open "SELECT * FROM tbldoi where iddoi="&sessionpage&" ", conn if not rs2.eof then %>  ĐỜI THỨ <%=rs2("name")%> <% end if %> <% openconn sessionpage=request("sessionpage") 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs2= server.CreateObject("adodb.recordset") rs2.open "SELECT * FROM tbldoi where iddoi="&sessionpage&" ", conn if not rs2.eof then %>  CON CỦA ĐỜI THỨ <%=rs2("name")%> <% end if %>  GIỚI TÍNH  TÌNH TRẠNG  " class="giapha2" title="Xem thông tin về <% if rs("gioitinh")=1 then %>ông <%else%>bà <%end if%><%= rs("name") %>"><%= rs("name") %> "> <% if rs("gioitinh")=0 then %> Không rõ <% elseif rs("gioitinh")=1 then %> Nam<% else %>Nữ<% end if %> <% if rs("tinhtrang")=0 then %> Không rõ <% elseif rs("tinhtrang")=1 then %> Còn sống<% else %>Đã mất<% end if %>  " class="giapha2" title="Xem thông tin về <% if rs1("gioitinh")=1 then %>ông <%else%>bà <%end if%><%= rs1("name") %>"><%= rs1("name") %> <% if rs1("gioitinh")=0 then %> Không rõ <% elseif rs1("gioitinh")=1 then %> Nam<% else %>Nữ<% end if %> <% if rs1("tinhtrang")=0 then %> Không rõ <% elseif rs1("tinhtrang")=1 then %> Còn sống<% else %>Đã mất<% end if %>