<%set conn=server.createObject("Adodb.connection") strdsn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" dbPath = Server.MapPath( "activity.mdb") conn.open strdsn + dbPath ''conn.open strdsn set rsactivity=server.createobject("Adodb.recordset") set rsdept=server.createobject("Adodb.recordset") set rstype=server.createobject("Adodb.recordset") ''sql_activity="select * from TBL_Activity_Data" '=========================================================== sqlquery="Select distinct Doc_year from TBL_Activities_Data order by doc_year desc" ''response.write "Sqlquery===" & sqlquery rsactivity.open sqlquery,conn,1 '=========================================================== %> <% Function FLD(str) FLD = str FLD = Replace(FLD,"&","^^@^^") FLD = Server.HTMLEncode(FLD) FLD = Replace(FLD,"^^@^^","&") End Function %>

قاعدة بيانات أنشطة المنظمة  

 
 


 

<%if not(rsactivity.bof and rsactivity.eof) then%> <%rsactivity.movefirst do while not rsactivity.eof ''do while i <%if (not rsactivity.eof and rsactivity.fields(0)<>"") then%> <%rsactivity.movenext%> <%end if%> <%if (not rsactivity.eof and rsactivity.fields(0)<>"") then%> <%rsactivity.movenext%> <%end if%> <%if (not rsactivity.eof and rsactivity.fields(0)<>"") then%> <%rsactivity.movenext%> <%end if%> <%if (not rsactivity.eof and rsactivity.fields(0)<>"") then%> <%rsactivity.movenext%> <%end if%> <%if (not rsactivity.eof and rsactivity.fields(0)<>"") then%> <%rsactivity.movenext%> <%end if%> <%if not rsactivity.eof then%> <%rsactivity.movenext%> <%end if%> <%loop end if%>
&Doc_year=<%=rsactivity.fields("Doc_year")%>&Dept_id=<%=request.querystring("Dept_id")%>"> <%=FLD(rsactivity.fields(0))%>&Doc_year=<%=rsactivity.fields("Doc_year")%>&Dept_id=<%=request.querystring("Dept_id")%>"> <%=FLD(rsactivity.fields(0))%>&Doc_year=<%=rsactivity.fields("Doc_year")%>&Dept_id=<%=request.querystring("Dept_id")%>"> <%=FLD(rsactivity.fields(0))%>&Doc_year=<%=rsactivity.fields("Doc_year")%>&Dept_id=<%=request.querystring("Dept_id")%>"> <%=FLD(rsactivity.fields(0))%>&Doc_year=<%=rsactivity.fields("Doc_year")%>&Dept_id=<%=request.querystring("Dept_id")%>"> <%=FLD(rsactivity.fields(0))%>


 

 

 

 

 

 

   

قاعدة بيانات انشطة المنظمة العربية للتنمية الزراعية