<% set rscats = Server.CreateObject("ADODB.Recordset") rscats.ActiveConnection = MM_connprd_STRING rscats.Source = "SELECT * FROM tblCats" rscats.CursorType = 0 rscats.CursorLocation = 2 rscats.LockType = 3 rscats.Open() rscats_numRows = 0 %> <% set rsnews = Server.CreateObject("ADODB.Recordset") rsnews.ActiveConnection = MM_connprd_STRING rsnews.Source = "SELECT * FROM tblNews where live = 'yes'" rsnews.CursorType = 0 rsnews.CursorLocation = 2 rsnews.LockType = 3 rsnews.Open() rsnews_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rscats_numRows = rscats_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = 6 Dim Repeat2__index Repeat2__index = 0 rsnews_numRows = rsnews_numRows + Repeat2__numRows %> <% While ((Repeat2__numRows <> 0) AND (NOT rsnews.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsnews.MoveNext() Wend %> <% While ((Repeat1__numRows <> 0) AND (NOT rscats.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rscats.MoveNext() Wend %>

	"><%=(rsnews.Fields.Item("title").Value)%>
	"><%=(rscats.Fields.Item("category").Value)%>

<% rscats.Close() %> <% rsnews.Close() %>