حذر علماء من
الولايات المتحدة ومنظمة الأغذية والزراعة ومنظمة الصحة العالمية
في الورشة الإعلامية التي سبقت انعقاد المؤتمر الدولي الذي تستضيفه
شرم الشيخ حاليا من أنه في حال حدوث وباء عالمي بسبب أنفلونزا
الطيور في حال تحوره وانتقاله بين البشر, فإن عدد الضحايا من
المتوقع أن يبلغ70 مليونا0
*الاستنساخ ربما يصبح قريبا هو
الحل الوحيد لإسعاد و علاج الرجال الذين يعانون من ضعف إنتاج
الحيوانات المنوية ،من حقهم أن يشعروا بنعمة تجدد الحياة و تواصلها
فى نسلهم ، هذا ما أعلنه باحثون من الولايات المتحدة مؤخرا ، فقد
قاموا باستنساخ حيوانات منوية لفأر ثم استخدام هذه الحيوانات
الجديدة فى إنتاج فئران كاملة و فى حالة صحية جيدة0
* أعلن
الأطباء فى كندا مؤخرا عن إنجاز علمى جديد فى علم الخصوبة ، حيث تم
لأول مرة ميلاد طفلة جاءت من بويضة مجمدة ، و هو تقدم آخر يحمل
أملا جديدا لكثير من السيدات اللاتى يعانين من العقم 0
تجارب مصرية ناجحة
لزراعة الخلايا الجزعية قريبا 'قطع غيار'
لأعضاء الجسم المختلفة
*نجحت مؤخرا في مستشفي وادي النيل أول جراحة في الشرق الأوسط
لزرع خلايا جذعية داخل القلب كعلاج لانسداد الشرايين. الجراحة تعد
انجازا طبيا يفتح بابا كبيرا للامل امام المرضي الذين يحتاجون لنقل
أعضاء بديلة.. حيث يمكن استخدام الخلايا الجذعية كبديل لزراعة
الأعضاء في نسبة كبيرة من الحالات. وفي مستشفي قصر العيني تتم
التجارب حاليا لزراعة الخلايا الجذعية لمرضي الكبد والكلي في
محاولات جادة لفتح باب الامل أمام مرضي الفشل الكبدي والكلوي..
الذين يعيشون علي أمل نقل الأعضاء
وسيدة هولندية تعالج
يوميا
2500 مريضا عن طريق الطاقة0
*
طوابير طويلة لشراء مياه بها سر يوماندا0
*كتب و شرائط فيديوو كروت مشبعة بالطاقة ، ولا عزاء لحسن الليثى0
*العلاج
بالطاقة علم جديد لا يعرف حقيقته أحد و لا حتى المعالجين به0
<%
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))
Set tsObject = filObject.OpenAsTextStream
lngVisitorNumber = CLng(tsObject.ReadAll)
lngVisitorNumber = lngVisitorNumber + 1
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt"))
tsObject.Write CStr(lngVisitorNumber)
'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)
Response.Write("")
Next
%>
