http://www.remoteassetmanagement.co.uk/blog/default.asp <%=year(date)%>-<%=month(date)%>-<%=day(date)%> daily 0.9 <% Dim rscats Set rscats = Server.CreateObject("ADODB.Recordset") rscats.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\wwwroot\187\rem8356\database\blog.mdb;Jet OLEDB:" rscats.Source = "SELECT * FROM FB_Categories" rscats.CursorType = 0 rscats.CursorLocation = 3 rscats.LockType = 1 rscats.Open() %> <% while not rscats.eof %> http://www.remoteassetmanagement.co.uk/blog/default.asp?Category=<%=cInt((rscats.fields.item("Category_ID").value))%> <%=year(date)%>-<%=month(date)%>-<%=day(date)%> daily 0.5 <% Dim rsprods Set rsprods = Server.CreateObject("ADODB.Recordset") rsprods.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\wwwroot\187\rem8356\database\blog.mdb;Jet OLEDB:" rsprods.Source = "SELECT * FROM FB_Articles WHERE Article_Category_ID="& cInt(rscats.fields.item("Category_ID").value) &"" rsprods.CursorType = 0 rsprods.CursorLocation = 3 rsprods.LockType = 1 rsprods.Open() %> <% while not rsprods.eof %> http://www.remoteassetmanagement.co.uk/blog/default.asp?Display=<%=cInt(rsprods.fields.item("Article_ID").value)%> <%=year(date)%>-<%=month(date)%>-<%=day(date)%> daily 0.5 <% rsprods.movenext() wend %> <% rsprods.Close() Set rsprods = Nothing %> <% rscats.movenext() wend %> <% rscats.Close() Set rscats = Nothing %>