<%dim rs,slct_stm,cn,stm,j,chk,i dbPath = Server.MapPath( "quedata.mdb") connString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" SET conn = Server.CreateObject( "ADODB.Connection") conn.Open connString + dbPath 'Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.Open Application("dsn") set rs=Server.CreateObject("ADODB.recordset") %> View <% j=request("txtcount") chk=request("chck1") ' response.write "*************" & j slct_stm = "select * from Activity where Org_ID =" & request.querystring("id") & "" if request.querystring("id")<>"" then %> <%rs.open slct_stm,conn,2%> <%%> <% j=request("txtcount") %>
 نوع النشاط <%=FLD(rs.fields("Teaching"))%> - <%=FLD(rs.fields("Searching"))%> - <%=FLD(rs.fields("Environment"))%> - <%=FLD(rs.fields("Preparing"))%> - <%=FLD(rs.fields("Not_def"))%> 
 عدد المشاريع التي تم تنفيزها  بمساعدة من مؤسسات تمويلية  <%=FLD(rs.fields("Help"))%> 
 عدد المشاريع التي تم تنفيزها بالتمويل الذاتي <%=FLD(rs.fields("Self"))%> 
الاولوية في مجال التنمية الزراعية المستدامة <%=FLD(rs.fields("Domain_Dev_List"))%> 
 نطاق عمل <% if rs.fields("Check1")= "1" then response.write" الزراعة المستدامة -" end if if rs.fields("Check2")= "2" then response.write" التنمية المستدامة -" end if if rs.fields("Check3")= "3" then response.write" إدارة الموارد المائية وحمايتها -" end if if rs.fields("Check4")= "4" then response.write" حماية الطبيعة -" end if if rs.fields("Check5")= "5" then response.write" التنوع الحيوي -" end if if rs.fields("Check6")= "6" then response.write" حماية الحيوان والحياة البرية -" end if if rs.fields("Check7")= "7" then response.write" التشريعات البيئية والحفاظ على البيئة -" end if if rs.fields("Check8")= "8" then response.write" الثقافة البيئية -" end if if rs.fields("Check9")= "9" then response.write" تلوث الهواء والتأثير على طبقة الأوزون -" end if if rs.fields("Check10")= "10" then response.write" إدارة التخلص من النفايات -" end if %>  
<% else for i=1 to j stm=request.item("Chck" & i) if stm="" then else slct_stm = "select * from Information,Activity where Org_name='" & request.item("Chck" & i) & "'" if request.item("Chck" & i)<>"" then %> <%rs.open slct_stm,conn,2 %> <% rs.close end if end if next end if%>

 

 

 

 

 

 

 

  طباعة   <%conn.close%>