Duval Morgan: News

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsnewslist Dim rsnewslist_numRows Set rsnewslist = Server.CreateObject("ADODB.Recordset") rsnewslist.ActiveConnection = MM_duvalmorgan_STRING rsnewslist.Source = "SELECT * FROM tbl_newsstories ORDER BY NewsID DESC" rsnewslist.CursorType = 0 rsnewslist.CursorLocation = 2 rsnewslist.LockType = 1 rsnewslist.Open() rsnewslist_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsnewslist_numRows = rsnewslist_numRows + Repeat1__numRows %> Duval Morgan: News

<% While ((Repeat1__numRows <> 0) AND (NOT rsnewslist.EOF)) %>

<%= DoDateTime((rsnewslist.Fields.Item("fldNewsDate").Value), 2, 2057) %>
<%=(rsnewslist.Fields.Item("fldNewsTitle").Value)%>
<%=Left(rsnewslist.Fields.Item("fldNewsDetails").Value, 100)%> ........ " title="read article" tabindex="1">CLICK HERE for details.

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsnewslist.MoveNext() Wend %> <% If rsnewslist.EOF And rsnewslist.BOF Then %>

There are currently No News Stories

<% End If ' end rsnewslist.EOF And rsnewslist.BOF %>


		home \| warehouse/distribution facilities \| news headlines the collections \| contact us \| enquire online \| how to find us sitemap

Caldicott Drive Heapham Road Industrial Estate Gainsborough Lincolnshire \| DN21 1FJ	T. 01427 617888 F. 01427 617800 E. info@duvalmorgan.com	Copyright © 2004 Duval Morgan All Rights Reserved Website Design by newmediachoice This site is best viewed in IE 4 or above at a minimum screen resolution of 800 x 600

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