Mangler den sidste post ?

Hej jeg har en streng som ser sådan her ud, dog vises den sidste post ikke, hvorfor? og hvordan løser jeg problemet?

<%
Set fors3 = Server.CreateObject("ADODB.Recordset")
strQ3 = "SELECT Page_Tabel.* FROM Page_Tabel ORDER BY pageid ASC;"
fors3.Open strQ3, strConn2, , , adCmdText
%>
<%While Not fors3.EOF%>

- Udlæsning af div data

<%
fors3.MoveNext
Wend
fors3.Close
Set fors3 = Nothing
%>