<%
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
%>
إلحق تزوير في
بلقاس
هو كان لازم ماهيه معروفة من الأول!!
العهدة علي صاحب
الفيلم
في المواقف إللي زي ديه لازم أشتم
وده أكيد إللي حصل بس أنا عايزلك انت كمان تشتم بأعلي
صوت وتبعت اللينكة ديه لأي واحد اضحك عليه ودخلت عليه
إنها مطبخة
www.alanbaaalalamia.com/watch.htm
هل يحق تعذيب بنت مصرية في قسم البوليس حتي لو كانت
جريمتها هي القتل
الخصائص اللازمة في عسكري الأمن المركزي(أهم
الأشياء)
