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>