<div id="left">
	<div class="left_title">
		<h2>News navigation</h2>
	</div>
	<div class="left_body">
		<dl>
			<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from pf_news_category where pf_news_category_parent = 0 order by pf_news_category_order asc"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
%>
			<dt><a href="news_category.asp?id=<%=rs("ID")%>"><%=rs("pf_news_category_name")%></a></dt>
			<%
rs.movenext
Loop
rs.Close
Set rs = Nothing

%>
		</dl>
	</div>
	<div class="left_bottom"></div>
</div>
