<%@LANGUAGE="VBSCRIPT"%> <% set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_connprd_STRING rs.Source = "SELECT * FROM tblCats" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 3 rs.Open() rs_numRows = 0 %> <% Dim rsnews1__MMColParam rsnews1__MMColParam = "999999" If (request.querystring("id") <> "") Then rsnews1__MMColParam = request.querystring("id") End If %> <% Dim rsnews1 Dim rsnews1_numRows Set rsnews1 = Server.CreateObject("ADODB.Recordset") rsnews1.ActiveConnection = MM_connprd_STRING rsnews1.Source = "SELECT * FROM tblNews WHERE news_id = " + Replace(rsnews1__MMColParam, "'", "''") + "" rsnews1.CursorType = 0 rsnews1.CursorLocation = 2 rsnews1.LockType = 1 rsnews1.Open() rsnews1_numRows = 0 %> <% Dim Repeat3__numRows Repeat3__numRows = -1 Dim Repeat3__index Repeat3__index = 0 rs_numRows = rs_numRows + Repeat3__numRows %>

Select... <% While ((Repeat3__numRows <> 0) AND (NOT rs.EOF)) %> "><%=(rs.Fields.Item("category").Value)%> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rs.MoveNext() Wend %>   <%=(rsnews1.Fields.Item("title").Value)%>, <%=(rsnews1.Fields.Item("datestamp").Value)%> "> <% =(rsnews1.Fields.Item("content").Value) %>

<% rs.Close() %> <% rsnews1.Close() Set rsnews1 = Nothing %>