<% 'if session("guest") <> "1" then ' MyFile = Server.MapPath("counter.txt" ) ' Set FileObject = CreateObject("Scripting.FileSystemObject") ' Set InStream = FileObject.OpenTextFile(MyFile, 1, true) ' ' If not InStream.atEndOfStream Then ' total = cLng(Instream.ReadLine) + 1 ' else ' total = 1 ' end if ' ' Instream.Close ' set instream = Nothing ' ' Set OutStream = FileObject.OpenTextFile(MyFile, 2, true) ' Outstream.WriteLine total ' Outstream.Close ' ' set OutStream= Nothing ' set FileObject = Nothing ' ' Response.Write FormatNumber(total, 0) ' session("guest")="1" 'end if %>

   أخي الكريم: اتطلع لإنتقاداتكم لكي يظهر الإصدار التالي في صورة أبهى وأكمل * وقف لله تعالى * جميع الحقوق متاحة 1428هــ (2007)