<%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 Source where Org_ID =" & request.querystring("id") & "" if request.querystring("id")<>"" then %> <%rs.open slct_stm,conn,2%> <%%> <% j=request("txtcount") %> <% %>
 رسوم الانتساب <%=FLD(rs.fields("Combo1"))%>  
 الهبات <%=FLD(rs.fields("Combo2"))%>  
 رسوم استشارية <%=FLD(rs.fields("Combo3"))%>  
 برامج إعداد وتدريب <%=FLD(rs.fields("Combo4"))%>  
 مساهمات خيرية <%=FLD(rs.fields("Combo5"))%>  
 تمويل من القطاع العام <%=FLD(rs.fields("Combo6"))%> 
 مصادر تمويل اخرى<%=FLD(rs.fields("Not_def"))%> 
 تقييم الوضع المالي<%=FLD(rs.fields("Combo7"))%> 
 المجالات المحتاجة للدعم <%=FLD(rs.fields("Check1"))%> - <%=FLD(rs.fields("Check2"))%> - <%=FLD(rs.fields("Check3"))%> - <%=FLD(rs.fields("Check4"))%> - <%=FLD(rs.fields("Check5"))%> - <%=FLD(rs.fields("Check6"))%> - <%=FLD(rs.fields("Check7"))%> - <%=FLD(rs.fields("Not_Check"))%> 
<% 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%>