显示出错了

<%
 str="select * from in_user where 1=1"
  page=clng(Request.QueryString("page"))
  If page<1 then page=1
  set Rs=server.CreateObject("ADODB.Recordset")
  Rs.pagesize=record_num
    Rs.open str,conn,1
    If Rs.Recordcount>0 then
     Rs.Absolutepage=page
    End if
%>
%>
     <tr align="center">
     <td width="14%" bgcolor="#9ACBEC" class="font_blue">姓名</td>
     <td width="12%" height="25" bgcolor="#9ACBEC" class="font_blue1">性别</td>
     <td width="21%" height="25" bgcolor="#9ACBEC" class="font_blue">年龄</td>
     <td width="51%" height="25" align="left" bgcolor="#9ACBEC" class="font_blue">简历刷新日期</td>     
</tr>
      <%
      Do while not Rs.eof and i<Rs.pagesize
         i=i+1
    %>
    
    <tr align="center">
      <tr>
        <td><%=Rs("Real_name")%></td>
        <td>      
        <%
     If Rs ("Sex")=1 Then
        Response.Write("男")
     Else
        Response.Write("女")
          End if

    %>
       </td>
        <td><%=DATEDIFF("yyyy",Rs("Birthday"),Date())%>岁</td>
        <td height="25"><%=DateValue(Rs("Refresh_time"))%></td>    
      </tr>
      
    <%
        Rs.movenext()
        Loop
      %>
<tr>
看一下 这段 代码 那里 出错了呢？ 为什么 显示 不出来了