<%Dim cn,stm,ID,rqst,sql_stm,i,rs,rs1,j,slct_stm 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 cn = Server.CreateObject("ADODB.Connection") set rsdet=Server.CreateObject("ADODB.recordset") rqst=request.querystring("id") slct_stm="select * from Information where " slct_stm =slct_stm & "Information.Area ='" & rqst & "' order by Org_ID" 'response.write slct_stm rsdet.open slct_stm,Conn,1 if not ((rsdet.bof) and (rsdet.eof)) then rsdet.movefirst i=0%>
<%'=rsdet.fields("name_A")%> 
 <%do while Not rsdet.EOF%> <%i=i+1%>
<%=FLD(rsdet.fields("Org_name"))%> 

" style="text-decoration: none; font-weight: 700"> معلومات عامة

" style="text-decoration: none; font-weight: 700"> النشاط و النطاق

" style="text-decoration: none; font-weight: 700"> مصادر التمويل<%'=rsdet.fields("Org_name")%>

" style="text-decoration: none; font-weight: 700"> العلاقات<%'=rsdet.fields("Org_name")%>

" style="text-decoration: none; font-weight: 700"> المقترحات<%'=rsdet.fields("Org_name")%>

    <% rsdet.movenext loop %> <%else%> عفوا لا توجد سجلات <% end if 'response.write i %>

<%Conn.close%>