<%@LANGUAGE="VBSCRIPT"%> <% Dim rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_dpdatabase_STRING rsNews.Source = "SELECT * FROM News ORDER BY NewsDate ASC" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsNews_numRows = rsNews_numRows + Repeat1__numRows %> Digital Powerhouse Limited
 
        Information
        About DPH
        News & Information
        Online Help
        Contact Us
        Product Lists
        HTPC - HiFi PC Cases

 

 
 
 

 
 
a PC that is more than just a PC? eve is.
<% While ((Repeat1__numRows <> 0) AND (NOT rsNews.EOF)) %>

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

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

 
     
 


 

 

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