<%@LANGUAGE="VBSCRIPT"%> <% Dim rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_connTerrington_STRING rsNews.Source = "SELECT * FROM tbl_news ORDER BY news_date DESC" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsNews_numRows = rsNews_numRows + Repeat1__numRows %> Terrington Machinery - News Page

Latest News

<% While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF)) %>
<% if (rsNews.Fields.Item("news_image").Value) <> "" Then %> " width="154" height="136" alt="<%=(rsNews.Fields.Item("news_imageAlt").Value)%>" /> <% else %> Sorry! We are currently awaiting an image. <% end if %>

<%=(rsNews.Fields.Item("news_headline").Value)%>

Date posted: <%=(rsNews.Fields.Item("news_date").Value)%>

<%=(rsNews.Fields.Item("news_body").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNews.MoveNext() Wend %>

© 2006 Plus Two Design Ltd.

<% rsNews.Close() Set rsNews = Nothing %>