<% strSQL="SELECT Category,ID,catdescription,PartPic FROM Categories WHERE Hide=0 Order By Ordering" Set rst = CreateObject("ADODB.Recordset") rst.Open strSQL, con, adOpenStatic, adLockReadOnly do%>

" class="catlink">.jpg" alt="" border="1" style="border-color:#d7d7d7">

" class="catlink"><%=rst("Category")%>  <%=replace(rst("CatDescription"),chr(13),"  ")%>

<%rst.movenext loop until rst.eof%>