قسم علوم الحاسوب - رسائل الماجستير للعام 1988
<%
i=0
Dim ConnectionString
Dim ADO
ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("csddb.mdb")
Set ADO=Server.CreateObject("ADODB.Connection")
ADO.ConnectionString =ConnectionString
ADO.Open
SelectSql="Select * from Tablemsc where year='1988' order by ThesisTitleEn "
set rs=ADO.execute (SelectSql)
do while not rs.eof
i=i+1
%>
<% linkap="abstracts\" & rs("abstractlink") & ".pdf" %> <% Response.Write rs("ThesisTitleEn") %>
رسالة ماجستير بعنوان : <% Response.Write rs("ThesisTitleAr") %>
مقدمة من قبل : <% Response.Write rs("StudentNameAR") %>
تحت إشراف : <% Response.Write rs("SupervisorsAr") %>
<%
rs.movenext
loop
ADO.close
Set ADO=Nothing
Set rs=Nothing
%>
عدد الرسائل المتوفرة لهذا العام هو : <% Response.Write (i) %> رسالة