<% meny = 6 %>

<% Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("African_info/database.mdb")) set rs=Server.CreateObject("adodb.recordset") sql="select * from trainfo ORDER BY ID DESC" rs.Open sql,oConn %> <% =rs("text") %> <% rs.Close oConn.Close %>