www.alanbaaalalamia.com

<% 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 %>

ان القدرة على التعبير هى القدرة على الحياة // تصدر عن مؤسسة الانباء العالمية للصحافة والطباعة والنشر والدعاية والاعلان

أحمد زرزور
البلد:مصر
تاريخ ميلاده من:1949 ميلادي
ـ ولد في محافظة المنوفية عام 1949
ـ رئيس تحرير مجلة قطر الندى للاطفال
ـ حاز على جائزة الدولة التشجيعية في ادب الاطفال عام 1991
ـ من دواوينة الدخول في مدائن النعاس 1986 جنون من الورد 1995 وردة القمر