List new Sent Comments

<% ' -- list.asp -- Response.Buffer = True Dim connectionString connectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("news99.mdb") %> <% ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "select top 40 * From Files order by [news_datetime] desc, ID DESC", connectionString, 3, 4 If Not rs.EOF Then Response.Write ("Comments: " & rs.RecordCount & " Add a new Comment

") Response.Write ("") Response.Write ("") While Not rs.EOF Response.Write ("") rs.MoveNext Wend Response.Write ("

		Headline:	Date:	Approved:
[Delete]	[Edit]	" & rs("news_headline") & "	" & rs("news_datetime") &"	" & rs("file desc") &"

") Else Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("

	Comments: 0	Add a new Comment
	Headline:	Date:
No Records Found

") End If rs.Close Set rs = Nothing %>

Back to admin <%End If%>