<%@ Language="VBScript" CodePage="1256" %>
الاقسام الادارية
<%
dim cnn
dim rst
set cnn = server.CreateObject("ADODB.Connection")
cnn.ConnectionString="Provider=Microsoft.Jet.Oledb.4.0; data source=" & server.MapPath("news/babylondb.mdb")
cnn.Open
set rst = server.CreateObject("ADODB.Recordset")
set rst = cnn.Execute("SELECT TOP 4 id,subject,pref FROM uni_news ORDER BY id DESC")
%>
