<% path="./mdb-database/last.mdb" querysql="select * from last ORDER BY newsid desc" numnews=10 %> <% Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(path) Set rs = Server.CreateObject("ADODB.Recordset") rs.Open querysql, conn, 3, 3 %>

FILE LIBRARY

Last ten add-ons added

<% For counter = 1 to numnews step 1 If rs.EOF = True Then Exit For end if %> "><%=rs("titolo")%>
***
<% rs.movenext next %> Webmaster, Put this service in your site. Click here!