<% openconn 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs= server.CreateObject("adodb.recordset") rs.open "SELECT * FROM tblgiapha where idmodule='"&sessionpage&"'", conn if not rs.eof then %> <% if rs("idparrent")=0 then %> <% else %> <% end if %> <% end if rs.close %>

THÔNG TIN VỀ <% if rs("gioitinh")=1 then %>ÔNG <% elseif rs("gioitinh")=2 then %>BÀ <% end if %> <%=rs("name")%> Về trang trước

<% if rs("diachi")="" then %><% else %><% if rs("tinhtrang")=1 then %>Thường trú tại: <% else %>Lúc còn sống thường trú tại: <% end if %><%=rs("diachi")%><% end if %><% if rs("nghenghiep")="" then %><% else %> | Nghề nghiệp: <%=rs("nghenghiep")%><% end if %>

<% if rs("dienthoai")="" then %><% else %>Điện thoại: <%=rs("dienthoai")%><% end if %><% if rs("dienthoai")="" or rs("email")="" then %><% else %> | <% end if %><% if rs("email")="" then %><% else %>Email: <%=rs("email")%><% end if %>

<% if rs("gioitinh")=1 then %>Ông <% elseif rs("gioitinh")=2 then %>Bà <% end if %><%=rs("name")%> là THỦY TỔ THẦN - ĐỜI THỨ I

<% if rs("gioitinh")=1 then %>Ông <% elseif rs("gioitinh")=2 then %>Bà <% end if %><%=rs("name")%> là con <% if rs("gioitinh")=1 then %>trai thứ <% elseif rs("gioitinh")=2 then %>gái thứ <% end if %><%=rs("positions")%> của <% openconn 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs3= server.CreateObject("adodb.recordset") rs3.open "SELECT * FROM tblgiapha where idmodule='"&rs("idparrent")&"'", conn if not rs3.eof then %> <% if rs3("gioitinh")=1 then %>Ông <% elseif rs3("gioitinh")=2 then %>Bà <% end if %>" class="tintuc4" title="Xem thông tin về <% if rs3("gioitinh")=1 then %>Ông <% elseif rs3("gioitinh")=2 then %>Bà <% end if %> <%=rs3("name")%>"><%=rs3("name")%> <% end if rs3.close %>

Họ và tên  <%=rs("name")%>  Tên tự (hiệu/thụy)  <%=rs("tentu")%>  Giới tính  <% if rs("gioitinh")=1 then %>Nam<% elseif rs("gioitinh")=2 then %>Nữ<% else %>Không rõ<% end if %>  Thuộc đời thứ  <%=rs("iddoi")%>  Là con thứ  <%=rs("positions")%> trong gia đình <% if rs("tinhtrang")=2 then %> <% else %> <% end if %>  Tình trạng  <% if rs("tinhtrang")=1 then %>Còn sống<% elseif rs("tinhtrang")=2 then %>Đã mất<% else %>Không rõ<% end if %>  Năm sinh  <%=rs("namsinh")%>  Năm mất  <%=rs("nammat")%>  Hưởng thọ  <%=rs("huongtho")%> tuổi  An táng tại  <%=rs("noiantang")%>

<% openconn set rs1=server.CreateObject("adodb.recordset") rs1.open"Select * from tblgiaphangoai where kieu=1 and idgiapha="&sessionpage&"",conn,3,1 do while not rs1.eof %> <% RS1.MoveNext loop rs1.close %> <% if rs("gioitinh")=1 then %>VỢ<% elseif rs("gioitinh")=2 then %>CHỒNG<% else %><% end if %> THỨ  HỌ TÊN <% if rs("gioitinh")=1 then %>VỢ<% elseif rs("gioitinh")=2 then %>CHỒNG<% else %><% end if %> NĂM SINH TÌNH TRẠNG <%= rs1("positions") %>  " class="tintuc4" title="Xem thông tin về <% if rs1("gioitinh")=1 then %>Ông <% elseif rs1("gioitinh")=2 then %>Bà <% end if %> <%=rs1("name")%>"><%= rs1("name") %> <%= rs1("namsinh") %> <% if rs1("tinhtrang")=1 then %>Còn sống<% elseif rs1("tinhtrang")=2 then %>Đã mất<% else %>Không rõ<% end if %> <% if rs("gioitinh") = 1 then %> <% openconn set rs2=server.CreateObject("adodb.recordset") rs2.open"Select * from tblgiapha where idparrent="&sessionpage&"",conn,3,1 do while not rs2.eof %> <% RS2.MoveNext loop %> CON THỨ  HỌ TÊN CÁC CON NĂM SINH TÌNH TRẠNG <%= rs2("positions") %> " class="tintuc4" title="Xem thông tin về <% if rs2("gioitinh")=1 then %>Ông <% elseif rs2("gioitinh")=2 then %>Bà <% end if %> <%=rs2("name")%>"> <%= rs2("name") %> <%= rs2("namsinh") %> <% if rs2("tinhtrang")=1 then %>Còn sống<% elseif rs2("tinhtrang")=2 then %>Đã mất<% else %>Không rõ<% end if %> <% else %> <% openconn set rs1=server.CreateObject("adodb.recordset") rs1.open"Select * from tblgiaphangoai where kieu=0 and idgiapha="&sessionpage&"",conn,3,1 do while not rs1.eof %> <% RS1.MoveNext loop rs1.close %> CON THỨ  HỌ TÊN CÁC CON NĂM SINH TÌNH TRẠNG <%= rs1("positions") %> " class="tintuc4" title="Xem thông tin về <% if rs1("gioitinh")=1 then %>Ông <% elseif rs1("gioitinh")=2 then %>Bà <% end if %> <%=rs1("name")%>"> <%= rs1("name") %> <%= rs1("namsinh") %> <% if rs1("tinhtrang")=1 then %>Còn sống<% elseif rs1("tinhtrang")=2 then %>Đã mất<% else %>Không rõ<% end if %> <% end if %>

Tiểu sử, Sự nghiệp, Công đức, Ghi chú

<%= rs("tieusu") %>