<%@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%>