%
set rsn=server.CreateObject("adodb.recordset")
dim query,counts
query="select * from projects order by project_date"
rsn.Open query,conn
counts=0
on error resume next
%>
<%
set rsn_pro=server.CreateObject("adodb.recordset")
query="select * from projects order by project_date"
rsn_pro.Open query,conn
counts=0
while not rsn_pro.EOF
%>