<%@ Language=VBScript CodePage = "1256"%> لاطاريح والرسائل المنجزة لعام 2011
رجوع

الاطاريح والرسائل المنجزة لعام 2011

<% i=0 ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("datav1.mdb") Set ADO=Server.CreateObject("ADODB.Connection") ADO.ConnectionString =ConnectionString ADO.Open SelectSQL="select * from thesistable1 where year like 2011" set rs=ADO.execute(SelectSQL) do while not rs.eof i=i+1 %>
<% Response.Write rs("department") %> Department
<% Response.Write rs("degree") %> - <% Response.Write rs("year") %>
Title: <% linkap="elibthesis\" & rs("linkeappstract") & ".pdf" %> <% Response.Write rs("thesisname") %>
by: <% Response.Write rs("studentname") %>
<% rs.movenext loop ADO.close Set ADO=Nothing Set rs=Nothing %> <% ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("datav2.mdb") Set ADO=Server.CreateObject("ADODB.Connection") ADO.ConnectionString =ConnectionString ADO.Open SelectSQL="select * from thesistable2 where year like 2011" set rs=ADO.execute(SelectSQL) do while not rs.eof i=i+1 %>
<% Response.Write rs("department") %> Department
<% Response.Write rs("degree") %> - <% Response.Write rs("year") %>
Title: <% linkap="elibthesis\" & rs("linkeappstract") & ".pdf" %> <% Response.Write rs("thesisname") %>
by: <% Response.Write rs("studentname") %>
<% rs.movenext loop ADO.close Set ADO=Nothing Set rs=Nothing %> <% ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("datav3.mdb") Set ADO=Server.CreateObject("ADODB.Connection") ADO.ConnectionString =ConnectionString ADO.Open SelectSQL="select * from thesistable3 where year like 2011" set rs=ADO.execute(SelectSQL) do while not rs.eof i=i+1 %>
<% Response.Write rs("department") %> Department
<% Response.Write rs("degree") %> - <% Response.Write rs("year") %>
Title: <% linkap="elibthesis\" & rs("linkeappstract") & ".pdf" %> <% Response.Write rs("thesisname") %>
by: <% Response.Write rs("studentname") %>
<% rs.movenext loop ADO.close Set ADO=Nothing Set rs=Nothing %> <% ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("datav4.mdb") Set ADO=Server.CreateObject("ADODB.Connection") ADO.ConnectionString =ConnectionString ADO.Open SelectSQL="select * from thesistable4 where year like 2011" set rs=ADO.execute(SelectSQL) do while not rs.eof i=i+1 %>
<% Response.Write rs("department") %> Department
<% Response.Write rs("degree") %> - <% Response.Write rs("year") %>
Title: <% linkap="elibthesis\" & rs("linkeappstract") & ".pdf" %> <% Response.Write rs("thesisname") %>
by: <% Response.Write rs("studentname") %>
<% rs.movenext loop ADO.close Set ADO=Nothing Set rs=Nothing %>

عدد الاطاريح والرسائل المتوفرة هو: <% Response.Write (i) %>

رجوع