<%@LANGUAGE="VBSCRIPT"%> <% Dim rsLinks Dim rsLinks_numRows Set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection = MM_connTerrington_STRING rsLinks.Source = "SELECT * FROM tbl_links" rsLinks.CursorType = 0 rsLinks.CursorLocation = 2 rsLinks.LockType = 1 rsLinks.Open() rsLinks_numRows = 0 %> <% Dim rsLinksImages Dim rsLinksImages_numRows Set rsLinksImages = Server.CreateObject("ADODB.Recordset") rsLinksImages.ActiveConnection = MM_connTerrington_STRING rsLinksImages.Source = "SELECT * FROM tbl_linksImages" rsLinksImages.CursorType = 0 rsLinksImages.CursorLocation = 2 rsLinksImages.LockType = 1 rsLinksImages.Open() rsLinksImages_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 30 Repeat1__index = 0 rsLinks_numRows = rsLinks_numRows + Repeat1__numRows %> Terrington Machinery - Links Page

Related Links

<% if (rsLinksImages.Fields.Item("links_image1").Value) <> "" Then %> " width="154" height="136" alt="<%=(rsLinksImages.Fields.Item("links_imageAlt1").Value)%>" /> <% else %> Sorry! We are currently awaiting an image. <% end if %> <% if (rsLinksImages.Fields.Item("links_image2").Value) <> "" Then %> " width="154" height="136" alt="<%=(rsLinksImages.Fields.Item("links_imageAlt2").Value)%>" /> <% else %> Sorry! We are currently awaiting an image. <% end if %>

© 2006 Plus Two Design Ltd.

<% rsLinks.Close() Set rsLinks = Nothing %> <% rsLinksImages.Close() Set rsLinksImages = Nothing %>