الذاكرة المؤسسية لمركز المعلومات و دعم اتخاذ القرار

<% Function FormatNavDate(strStartDate) Dim strText,strDay,strMonth,strYear,nPos1,nPos2,nLength,strDate,i Dim strStartDay,strStartMonth,strStartYear strText = strStartDate nLength=Len(strText) if strText<>"" then nPos1=instr(1,strText,"/",1) strDay=Mid(strText,1,nPos1-1) nPos2=instr(nPos1+1,strText,"/",1) strMonth=Mid(strText,nPos1+1,nPos2-nPos1-1) strYear=Mid(strText,nPos2+1,nLength-nPos2) strDate=strDay&strMonth&strYear select case (strMonth) case 1: strMonth="يناير" case 2: strMonth="فبراير" case 3: strMonth="مارس" case 4: strMonth="إبريل" case 5: strMonth="مايو" case 6: strMonth="يونيو" case 7: strMonth="يوليو" case 8: strMonth="أغسطس" case 9: strMonth="سبتمبر" case 10: strMonth="أكتوبر" case 11: strMonth="نوفمبر" case 12: strMonth="ديسمبر" end select strStartDay = strDay strStartMonth = strMonth strStartYear = strYear end if strDate=" "&strStartDay&" "&strStartMonth&" "&strStartYear FormatNavDate=strDate End Function %> <% Function GetTodayFocusNews() Dim dbConnection,dbRecordSet,strSqlStat Dim i 'establish a connection to the Database Set dbConnection=Server.CreateObject("ADODB.CONNECTION") dbConnection.Open Session("DataConn_ConnectionString") 'specify the sql statement strSqlStat="SELECT * FROM NEWS_News where publish=1 and is_recent=1 and has_focus=1 order by weight" 'create a record set set dbRecordSet = dbConnection.Execute(strSqlStat) i=0 if NOT(dbRecordSet.EOF) then Response.Write("") Do While(NOT(dbRecordSet.EOF)) i=i+1 if i mod 2 =1 then Response.Write("") end if Response.Write("") if i mod 2 =0 then Response.Write("") end if dbRecordSet.MoveNext Loop Response.Write("

") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

") Response.Write("

") Response.Write("") ' Response.Write(dbRecordSet("news_desc")) Response.Write("") Response.Write("

") Response.Write("

") end if dbRecordSet.Close Set dbRecordSet=NOTHING dbConnection.Close Set dbConnection=NOTHING End Function %> <% Function GetTodayNews() Dim dbConnection,dbRecordSet,strSqlStat Dim i 'establish a connection to the Database Set dbConnection=Server.CreateObject("ADODB.CONNECTION") dbConnection.Open Session("DataConn_ConnectionString") 'specify the sql statement strSqlStat="SELECT * FROM NEWS_News where publish=1 and is_recent=1 and has_focus=0 ORDER BY weight" 'create a record set set dbRecordSet = dbConnection.Execute(strSqlStat) i=0 if NOT(dbRecordSet.EOF) then Response.Write("") Response.Write("") Response.Write("") Response.Write("") Do While(NOT(dbRecordSet.EOF)) i=i+1 Response.Write("") Response.Write("") Response.Write("") Response.Write("") dbRecordSet.MoveNext Loop Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("

") Response.Write("

") Response.Write("") Response.Write("النشرة الصحفية") Response.Write("") Response.Write("

") Response.Write("

"&dbRecordSet("news_title")&"

") Response.Write("

") ' Response.Write("

") Response.Write("

") ' Response.Write("

") Response.Write("

") end if dbRecordSet.Close Set dbRecordSet=NOTHING dbConnection.Close Set dbConnection=NOTHING End Function %>

<%=FormatNavDate(Date)%>

" size=19 maxlength=50 dir="RTL">

الصفحة الرئيسية

تقرير المتابعة الإسبوعى
تقرير الأنجاز الشهرى
تقرير الأنجاز الربع سنوى
تقرير الأنجاز النصف سنوى
تقرير إنجازات العاملين

تسجيل بيانات الإتصال
تعديل بيانات الإتصال
إستعلام بيانات الإتصال
إستعلام كلمة السر

السيد رئيس المركز
السادة نواب رئيس المركز
السادة مديرى القطاعات
السادة مديرى البرامج
السادة العاملين بالمركز
مجموعة من العاملين بالمركز

تقرير المتابعة الإسبوعى
تقرير الإنجاز الشهرى
تقرير الإنجاز الربع سنوى
تقرير الإنجاز النصف سنوى
تقييم آداء العاملين الشهرى
أهم الانجازات هذا الشهر
تقييم آداء القطاعات الشهرى

<% ' GetTodayFocusNews() %>

مكتبة الأسكندرية : الحريق و الإحياء

	فى إفتتاح عالمى تفتتح مكتبة الاسكندرية يوم 23 إبريل القادم لتصيح مركزا للإشعاع الحضارى العالمى و المكتبة كانت لغزا فى نشاتها وفى مصيرها و نهايتها .. و هو لغز لم نستطع حتى الان حله .. فمتى اختفت المكتبة من الوجود ?
و كيف اختفت ؟ هل احترقت قضاء و قدرا ام حرقت بفعل فاعل ومن احرقها ....

<% GetTodayNews() %>

عرض أهم الإنجازات الشهرية
عرض تقييم أداء القطاعات
عرض تقييم أداء العاملين

أجندة الإجتماع الحالى
محضر الإجتماع السابق
جدول الموضوعات القادمة
محاضر الإجتماعات السابقة

تقرير المتابعة الأسبوعى
تقرير الإنجاز الشهرى
تقرير الإنجاز الربع سنوى
تقرير الإنجاز النصف سنوى

عرض الإسبوع الحالى
عروض سابقة
تسجيل عرض جديد
بحث العروض السابقة

أخبار الجمعية
إجتماعات الجمعية

محضر الإجتماع الأخير
جدول الأعمال
المحاضر السابقة