<%@LANGUAGE="VBSCRIPT"%> <% Dim news_rs Dim news_rs_cmd Dim news_rs_numRows Set news_rs_cmd = Server.CreateObject ("ADODB.Command") news_rs_cmd.ActiveConnection = MM_sharemalta_conn_STRING news_rs_cmd.CommandText = "SELECT * FROM news ORDER BY news_date DESC" news_rs_cmd.Prepared = true Set news_rs = news_rs_cmd.Execute news_rs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 20 Repeat1__index = 0 news_rs_numRows = news_rs_numRows + Repeat1__numRows %> ShareMalta Foundation - Support for Homeless Animals Research & Education
ShareMalta charity - Support for Homeless Animals Research & Education
<% While ((Repeat1__numRows <> 0) AND (NOT news_rs.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 news_rs.MoveNext() Wend %>
"><%=(news_rs.Fields.Item("event_news").Value)%>  ( <%= DoDateTime((news_rs.Fields.Item("news_date").Value), 2, 2070) %>)
   


 


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