%@ Language=VBScript CodePage = "1256"%>
0
رجوع |
الاطاريح والرسائل المنجزة لعام
2005 |
<%
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 2005"
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 2005"
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 2005"
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 1982"
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) %>
|
رجوع |