<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from news order by newsDate"
rs.Open sql, conn, adOpenKeyset, adLockOptimistic
if not rs.eof then
total = 1
while not rs.eof
total = total + 1
rs.movenext
wend
end if
nopages = total/4
'need to round this figure up
set rs = nothing
%>
