<%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 Relation where Org_ID =" & request.querystring("id") & "" if request.querystring("id")<>"" then %> <%rs.open slct_stm,conn,2%> <%%> <% j=request("txtcount") %> <% %>
 شركاء الجمعية في المناطق الأخرى <%=FLD(rs.fields("partner"))%> 
 نوع العلاقة مع الجمعيات البيئية المحلية  <%=FLD(rs.fields("check2"))%> - <%=FLD(rs.fields("check3"))%> - <%=FLD(rs.fields("check4"))%> - <%=FLD(rs.fields("check5"))%> - <%=FLD(rs.fields("check6"))%> 
 نوع العلاقة مع  الجمعيات الوطنية <%=rs.fields("check7")%> - <%=FLD(rs.fields("check8"))%> - <%=FLD(rs.fields("check9"))%> - <%=FLD(rs.fields("check10"))%> - <%=FLD(rs.fields("check11"))%> 
 نوع العلاقة مع الجمعيات العالمية <%=rs.fields("check12")%> - <%=rs.fields("check13")%> - <%=rs.fields("check14")%> - <%=rs.fields("check15")%> - <%=rs.fields("check16")%> 
 اسم المنظمة التي تعتبر الجمعية جزء منها <%=FLD(rs.fields("Part_Name"))%> 
 مقر المنظمة التي تعتبر الجمعية جزء منها <%=FLD(rs.fields("Part_Place"))%> 
 تقييم التعاون بين الجمعية والقطاع العام <%=FLD(rs.fields("Help"))%> 
 المجالات التي تتعاون فيها الجمعية مع الجمعيات البيئية الأخرى <%=FLD(rs.fields("Help2"))%> 
 حالة تلقي الجمعية للمعلومات من منظمات محلية أخرى <%=FLD(rs.fields("Inform"))%> 
<% 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%>