%@LANGUAGE="VBSCRIPT"
codepage=1256 %>
<% Response.Charset="ar-sa" %>
<% session.CodePage=1256 %>
<%
pStr = "private, no-cache, must-revalidate"
Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-control", pStr
%>
<%Response.Buffer = False%>
المكتبة الإلكترونية للمنظمة العربية للتنمية الزراعية
<%'============================CODE Start Here======================================================================
checkPostBack = Request.ServerVariables("REQUEST_METHOD")
Set Conn = Server.CreateObject("ADODB.Connection")
dbPath = Server.MapPath( "./AOAD-Library.mdb")
connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Conn.Open connString + dbPath
set rs=server.createobject("Adodb.recordset")
set rscat=server.createobject("Adodb.recordset")
Set rs_libraries =Server.CreateObject("ADODB.Recordset")
%>
<%''---------------------------Constants to open recordset for paging-----------------------------------------------%>
<%Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
Const PAGE_SIZE =50' 10The size of our pages.
rs.PageSize = PAGE_SIZE
rs.CacheSize = PAGE_SIZE%>
<%''---------------------------Constants to open recordset for paging-----------------------------------------------%>
<%sqlquery="select categoryid,categoryname from TBL_Agris_Categories_List where isnull(parentcategoryid)"%>
<%'response.write "sqlquery====" & sqlquery%>
<%if 1=1 then%>
<%rs.open sqlquery,conn,adOpenStatic, adLockReadOnly, adCmdText%>
<%if not (rs.bof and rs.eof) then%>
<%rs.movefirst%>
<%do while not(rs.eof)%>
+"> <%=rs.fields("categoryname")%>
<%if request.querystring("cat_id")<>"" and request.querystring("cat_id")=rs.fields("categoryid") then%>
<%sql="select categoryname,categoryid from TBL_Agris_Categories_List where categoryid like '%" & request.querystring("cat_id") & "%'" %>
<%'response.write "sql====" & sql %>
<%if 1=1 then%>
<%rscat.open sql,conn,1%>
<%if not(rscat.bof and rscat.eof) then%>
<%rscat.movefirst%>
<%do while not (rscat.eof)%>
-"><%=rscat.fields("categoryname")%>
<%rscat.movenext%>
<%loop%>
<%end if%>
<%end if%>
<%end if%>
<%rs.movenext%>
<%loop%>
<%end if%>
<%end if%>