<% set NewsRS = Server.CreateObject("ADODB.Recordset") NewsRS.ActiveConnection = MM_nfgroup_STRING NewsRS.Source = "SELECT NewsTitle, ID FROM NewsTable ORDER BY ID DESC" NewsRS.CursorType = 0 NewsRS.CursorLocation = 2 NewsRS.LockType = 3 NewsRS.Open() NewsRS_numRows = 0 %> <% Dim Repeat11__numRows Repeat11__numRows = -1 Dim Repeat11__index Repeat11__index = 0 NewsRS_numRows = NewsRS_numRows + Repeat11__numRows %> Net-Factory.Biz - Hosting and Web Development in Staffordshire and the Midlands


 


<% While ((Repeat11__numRows <> 0) AND (NOT NewsRS.EOF)) %> <% Repeat11__index=Repeat11__index+1 Repeat11__numRows=Repeat11__numRows-1 NewsRS.MoveNext() Wend %> <% If NewsRS.EOF And NewsRS.BOF Then %> <% End If ' end NewsRS.EOF And NewsRS.BOF %>
','news','scrollbars=yes,resizable=yes,width=300,height=300,left=100,top=100')"><%=(NewsRS.Fields.Item("NewsTitle").Value)%>
There are currently no news items.