<%
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
%>
قال عارض الأزياء اللبناني صالح
عبد النبي خلال زيارته إلى المغرب
نهاية السنة الميلادية أنه سيصبح
سفيرا للأزياء المغربية من خلال
ارتدائه تصاميم المغربي سميرة
الحدوشي، وعبر عن سعادته باختياره
سفيرا للإبداع المغربي في الموضة.
وقد ارتدى العارض لباسا من تصميم
الحدوشي.وتعمل المصممة المغربية
سميرة الحدوشي المتخصصة في
"القفطان" المغربي التقليدي الذي
ترتديه النساء، على باتكار تصاميم
مستمدة من اللباس التقليدي
الرجالي، لذا دشنت حملة الترويج
لتصاميمها في المشرق العربي مع
العارض اللبناني صالح عبد النبي.
وجاءت زيارة صالح عبد النبي إلى
المغرب في إطار الترويج لحملة
توعية كبيرة لجمعية "الشارة
الحمراء" المهتمة بالتعريف بمخاطر
داء فقدان المناعة المكتسبة
"السيدا"، وكانت رزان المغربي
ساهمت بدورها في التحسيس بمخاطر
الداء عبر ملصقات نشرت في غالبية
الصحف والمجلات المغربية. وقد
انتقل صالح عبد النبي، الزوج
المقبل لنانسي عجرم، إلى مصر
لتصوير أول عمل سينمائي له كممثل
رفقة مصطفى شعبانونيللي كريم، ومن
المتوقع أن يبدأ اليوم الثلاثاء
تصوير هذا الفيلم السينمائي.
