<%if session("username")="" then%> <%end if%> <% if request("action")="del_one" then openconn set rs=server.CreateObject("adodb.recordset") sql="delete from tblgiaphangoai Where idmodule='"&replace(Request.QueryString("nid"),"'","''")&"'" Conn.execute (sql) %> <%end if%>

<% openconn sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rskieu= server.CreateObject("adodb.recordset") rskieu.open "select * from tblgiapha where idmodule="&sessionpage&" ", conn %> DANH SÁCH <% if rskieu("gioitinh")=1 then%>VỢ<%else%>CHỒNG, CON<%end if%> CỦA <% if rskieu("gioitinh")=1 then%>ÔNG <%else%>BÀ <%end if%> <%=rskieu("name")%> <% rskieu.close %>

<% openconn set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblgiaphangoai where idgiapha="&sessionpage&"",conn,3,1 do while not rs.eof %> <% RS.MoveNext loop %>

HỌ TÊN	QUAN HỆ	GIỚI TÍNH	QUẢN LÝ
<%= rs("Name") %>	<% if rs("kieu")=1 then%><% if rs("gioitinh")=1 then%>Chồng<%else%>Vợ<%end if%><%else%>Con<%end if%>	<% if rs("gioitinh")=1 then%>Nam<%else%>Nữ<%end if%>	<% if rs("kieu")=1 then%>" title="Sửa thông tin của <%= rs("Name") %>"><%else%>" title="Sửa thông tin của <%= rs("Name") %>"><%end if%>	" width="24" style="cursor:hand" onClick="del_one('<%= rs("idmodule") %>');">