<%
set rs_p=server.CreateObject("adodb.recordset")
sql_p="select top 4 * from [Projects1] order by Order_id desc"
rs_p.open sql_p,conn,1,3
do while not rs_p.eof
i=i+1
%>
<%
set rs_Contests_News=server.CreateObject("adodb.recordset")
sql_Contests_News="select top 20 * from [News] order by Order_id desc"
rs_Contests_News.open sql_Contests_News,conn,1,3
do while not rs_Contests_News.eof
i=i+1
%>
<%if i=1 then%>