<%
' Declaring variables
Dim rs, data_source, no
no = 0
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("test.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT headline FROM news ORDER BY number DESC"
rs.Open sql, conn
' Looping through the records to show all of them
While no<5
Response.Write rs("headline")
no = no + 1
rs.MoveNext
Wend
' Done. Now close the Recordset
rs.Close
Set rs = Nothing
%>
»more