<% Dim antal antal = 0 Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM news ORDER BY Id DESC" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %> <% Do Until RecSet.EOF %>
<%=RecSet("Date")%>
<%=RecSet("Title")%>
<%=RecSet("Message")%>
Scritto da:
"><%=RecSet("Name")%>
<% antal = antal + 1 RecSet.MoveNext Loop RecSet.Close Connect.Close %>
It is <%= antal %> news in the database.
Add news
Delete news
Edit news