<%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 Suggestion where Org_ID =" & request.querystring("id") & "" if request.querystring("id")<>"" then %> <%rs.open slct_stm,conn,2%> <%%> <% j=request("txtcount") %> <% %>
 وسيلة تفعيل وتحسين التعاون بين الجمعية / الجمعيات الأخرى مع مؤسسات القطاع العام <%=FLD(rs.fields("Sug_one"))%> 
 المطلوب من أجل تحسين الحوار بين الجمعيات والقطاعين الخاص في منطقة عملنا في بلدنا بصفة عامة <%=FLD(rs.fields("Sug_two"))%> 
 المطلوب من أجل تحسين التفاعل بين الجمعيات والسلطات المحلية في منطقتنا <%=FLD(rs.fields("Sug_three"))%> 
 المواضيع التي نود مناقشتها مع الجمعيات النظيرة على المستوى الوطني <%=FLD(rs.fields("Sug_four"))%> 
  المواضيع التي نود مناقشتها مع الجمعيات النظيرة على المستوى القومي العربي <%=FLD(rs.fields("Sug_five"))%> 
 إضافات أو أفكار أو اقتراحات أو توصيات <%=FLD(rs.fields("Sug_six"))%> 
<% 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%>