<%@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 Dim rsnews1_numRows Set rsnews1 = Server.CreateObject("ADODB.Recordset") rsnews1.ActiveConnection = MM_connprd_STRING rsnews1.Source = "SELECT * FROM tblNews WHERE live = 'yes'" 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 %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rsnews1_numRows = rsnews1_numRows + Repeat4__numRows %> <% FUNCTION CropSentence(strText, intLength, strTrial) Dim wsCount Dim intTempSize Dim intTotalLen Dim strTemp wsCount = 0 intTempSize = 0 intTotalLen = 0 intLength = intLength - Len(strTrial) strTemp = "" IF Len(strText) > intLength THEN arrTemp = Split(strText, " ") FOR EACH x IN arrTemp IF Len(strTemp) <= intLength THEN strTemp = strTemp & x & " " END IF NEXT CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial ELSE CropSentence = strText END IF END FUNCTION %>

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 %> <% While ((Repeat4__numRows <> 0) AND (NOT rsnews1.EOF)) %> <% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rsnews1.MoveNext() Wend %>   <%=(rsnews1.Fields.Item("title").Value)%> "> <% =(CropSentence((rsnews1.Fields.Item("content").Value), 150, "..............")) %>

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