<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "cycore_news" Set RS1 = Server.CreateObject("ADODB.Recordset") SQL1 = "SELECT * FROM news WHERE IDType='news' and cycore='1' ORDER BY newsdate DESC" RS1.Open SQL1, Connect, adOpenStatic, adLockReadOnly %>
 
  press room > cycore in the news
  Cycore in the news

<% Do Until RS1.EOF %>

<% = RS1("heading") %>

<% = RS1("text") %>

<% if RS1("source") = "" then %> <% else %>

- <% = RS1("source") %>

<% end if %>
<% RS1.MoveNext Loop %>

<% RS1.Close Set RS1 = Nothing Connect.Close Set Connect = Nothing %>