non mi fa il ciclo Do While

[Mr.Fabio]

<table border="1">
  <tr> 
    <td><div align="center">Data</div></td>
    <td><div align="center">CV</div></td>
    <td>Destinatario</td>
    <td>Oggetto</td>
    <td>Messaggio</td>
  </tr>
  <%
  		dim ii
  		 ii =1		
		response.Write("inizio ciclo")
		Do While Not rstSearch.EOF And rstSearch.AbsolutePage = iPageCurrent
  		response.Write("record "& ii)
			%>
  <tr> 
    <td><%= rstSearch.Fields("data").Value %> <div align="center"></div></td>
    <td><%= rstSearch.Fields("curriculum").Value %> <div align="center"></div></td>
    <td><%= rstSearch.Fields("destinatario").Value %></td>
    <td><%= rstSearch.Fields("oggetto").Value %></td>
    <td><%= rstSearch.Fields("messaggio").Value %></td>
  </tr>
  <%
  		ii = ii+1
  		response.Write("successivo")
			rstSearch.MoveNext
		Loop
		%>
</table>

non mi fa il ciclo per popolarmi la tabella con il risultato della query