اخبار الشركات

<% Function NewsWords (xTxt1 ,xLen1 , xEnding) Dim xWords xWords = "" wLen = 0 wLen = xLen1 If Len (Trim(xTxt1)) < xLen1 Then wLen = Len (Trim(xTxt1)) End If myWords = Split(xTxt1," ") 'Response.Write(xTxt1) 'Response.Write ( LBound (myWords)) 'Response.End If wLen > (UBound(myWords)-1) Then wLen = UBound(myWords)-1 End If For i = 0 To wLen 'Response.Write("=" & CStr(i) & "=" ) xWords = xWords + myWords(i) & " " Next xWords = xWords + Trim(xEnding) NewsWords = xWords 'Response.Write("=" & CStr(wLen) & "=" ) End Function %> <% '''''''''''''''''''''''''''''''''''''''' Dim Conn11, RS11 Set Conn11 = Server.CreateObject("ADODB.Connection") Set RS11 = Server.CreateObject("ADODB.Recordset") ''''' DSNName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " DSNName = DSNName & Server.Mappath("Admin/Home_DB.mdb") ''''' Conn11.Open(DSNName) S1 = " SELECT * FROM NewsSettings " RS11.open S1 , conn11 ,1,3 if not RS11.EOF Then RS11.MoveFirst end If My_Num = 1 My_Words = 1 My_Num = RS11.fields("News_Num") My_Words = RS11.fields("News_Words") RS11.Close Set RS11 = Nothing '''''''''''''''''''''''''''''''''''''''' %> <% ''Response.End Dim Conn, RS Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") ''''' DSNName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " DSNName = DSNName & Server.Mappath("/Co_News/Co_DB1.mdb") ''''' Conn.Open(DSNName) 'response.write (s1) 'response.end S1 = " SELECT * FROM Co_News " S1 = S1 + " ORDER BY Co_News.NDate DESC , Co_News.News_Code DESC " RS.open s1,Conn,1,3 if not RS.EOF Then RS.MoveFirst end If N_Num = 1 %> <% Do While Not RS.EOF And (N_Num <= My_Num) %> <% RS.MoveNext N_Num = N_Num + 1 Loop %>

أخبار الشركات

<%= NewsWords(RS.fields("NewsBrief"),My_Words,"...") %> <% L1="ViewCoNews1.asp?N_Code=" & RS.fields("News_Code") %> المزيد

إسم المستخدم

كلمة المرور

مستخدم جديد<% name=request.querystring("uname") pas=request.querystring("pw") if name="admin" and pas="admin" then response.redirect"form_admin.asp" end if %>

ندوات وملتقيات

-قام المركز بعقد ملتقى مديري مراكز المعلومات بشركات قطاع الأعمال العام.
-شارك المركز في ندوة المعلوماتية لحوكمة الأعمال والتي عقدت بأكاديمية السادات .شاهد الفيديو
-شارك المركز فى ندوة اتجاهات ومستقبل صناعة الأسمنت فى مصر والتي عقدت بأكاديمية السادات .