<%
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
%>
908
RC
وحش بيجو...
أسلوب جديد من
الفخامة تطلقه بيجو اختبارياً نهاية الشهر المقبل
في الصالون الباريسي الدولي للسيارات، و هو يعطينا
فكرةً واضحةً عن الفئة الجديدة التي من المنتظر أن
تحتل عرش بيجو بدلاً من 607 الحالية (دون أن
تلغيها)..السيارة عبارة عن صالون رباعي الكراسي
لكنه رياضي من الألف إلى الياء، فرغم أن محركه
سيعمل فقط بالديزل إلا أنه يولد 700 توأم من
الأحصنة بمجرد ضغطة على دواسة التسارع.هذا و يمكن
مقارنة السيارة نوعياً بسيارة لأحلام "بوجاتي
فيرون"، فالبيجو تستطيع الوصول للـ 300 كم/س في 22
ثانية والفيرون في 14 فقط، لكن لا تنسوا أن الأولى
تعمل بالديزل، ولا يستطيع أحد حتى اللحظة فهم هدف
بيجو من وضع محرك للديزل في سيارةٍ متناهية
الفخامة كهذه، سوى أنها تريد الاستعراض وإثبات أن
محركات الديزل يمكن أن تلعب دوراً مهماً في هذا
المضمار..شكلاً نرى العديد من التجديدات في
السيارة الجديدة، فزجاج المقدمة يتخطاها حتى يكاد
يصل إلى منتصف السقف ليكمل الطريق جزء آخر من
الألواح الزجاجية، أما الصالون فهو أسطورة بذاته
تحتاج الكثير من الوقت للتمعن فيما أودعته بيجو به
من عناصر جمالية و فنية غير مسبوقة..
