<% 'if session("guest") <> "1" then ' MyFile = Server.MapPath("counter.txt" ) ' s_pos = inStr(MyFile,"kadi\") ' u_len = len(MyFile) ' pos = s_pos + 4 ' MyFile = Mid(MyFile, 1, pos) ' MyFile = MyFile & "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 %>

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