asp页面中刷新出错，应如何解决

asp页面中刷新出错，应怎么解决
我在页面中调用的一段程序，但发现刷新时有时部分代码不出现，不知道为什么？
--
<%   sub   ShowLookHtml()
DIM   Query,sql

%>
<table   width= "550 "   border= "1 "   cellspacing= "0 "   cellpadding= "0 "   bordercolorlight= "#7C7C7C "   bordercolordark= "#FFFFFF ">
    <tr   bgcolor= "#FFFFFF "   >  
        <td   colspan=5   height=30   align= "center ">


<INPUT   type= "button "   name= "action "   value= "登记 "   onClick= "window.location.href   = ' <%=indexfilename%> ?action=Add_New ' "   > &nbsp;
    <INPUT   TYPE= "button "   name= "submit "   value= "查询 "   onClick= "window.location.href   = ' <%=indexfilename%> ?action=Add_New ' "   <%if   Session( "Urule ")=> "a "   then   response.write   "&nbsp; "   else   response.write   "disabled "   end   if%> > &nbsp;
                            <INPUT   TYPE= "button "   name= "submit "   value= "用户登录 "   onClick= "window.location.href   = 'http://localhost/new/index.asp ' "   <%if   Session( "Uname ")= " "   then   response.write   "&nbsp; "   else   response.write   "disabled "   end   if%> > &nbsp;
            </td>
    </tr>
    <tr     >
        <td>
              <table   width= '100% '   border= '1 '   cellspacing= '0 '   cellpadding= '0 '   bordercolorlight= '#7C7C7C '   bordercolordark= '#FFFFFF '>
                  <tr     >
                      <td   class= "pt2 "   colspan=5> 记录 </td>
                  </tr>
    <tr   align=center>  
        <td     width= "10 "   height= "20 "   bgcolor= "rgb(214,211,206) "> &nbsp; </td>
        <td   > 姓&nbsp;&nbsp;名 </td>
        <td   > 日&nbsp;&nbsp;期 </td>
        <td   > 时&nbsp;&nbsp;间 </td>
<td   > 原&nbsp;&nbsp;因 </td>
    </tr>

<%
     
  Query= "SELECT   vipkq.id,   vipkq.username,   vipkq.kqdate,   vipkq.kqtime,   vipkq.cause   FROM   [vipkq]   "    
                      set   sql=conn.Execute(Query)
n=0
do   while   not   sql.eof  
  %>
                <tr   bgcolor= "#FFFFFF ">  
                    <td   width= "10 "   height= "20 "   bgcolor= "rgb(214,211,206) "> <%=   n+1   %> </td>

                    <td   class= "pt2 "> <%=sql( "username ")%> </td>
                    <td   class= "pt2 "> <%=sql( "kqdate ")%> &nbsp; </td>
                    <td   class= "pt2 "> <%=sql( "kqtime ")%> &nbsp; </td>
                    <td   class= "pt2 "> <%=sql( "cause ")%> &nbsp; </td>

</tr>
<%  
    sql.movenext
    n=n+1
    loop
    sql.Close
    Set   sql   =   Nothing
    conn.close
    query= " "
    %>
    </table>
          </td>
      </tr>
</table>

<%   end   sub%>
---------------------
为什么我在刷新时，发现set   sql=conn.Execute(Query)   后的语句有时不执行，请大家帮忙

[解决办法]
楼上的乱讲

对楼主：
你确保数据库中有记录
[解决办法]
如果真的是你说的那问题，那么看起来就是你的SQL语句没执行，
do while后没有执行
看下你SQL的查询条件
[解决办法]
echo $sql;
exit;