Different Government Schemes

<% Dim objRS,strSQL strSQL = "SELECT * FROM schemes ORDER BY codeid desc,headline" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn counter=0 Do while Not objRS.EOF counter=counter+1 headline=objRS("headline") weblinks=objRS("weblinks") newsdt=objRS("newsdt") newstm=objRS("newstm") %> <% objRS.moveNext Loop objRS.Close Set objRS = Nothing objconn.close set objconn = Nothing %>

<%=headline%>