Sfax Technology Park

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim fsoObject Dim tsObject Dim filObject Dim lngVisitorNumber Dim intWriteDigitLoopCount Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("compteur.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) If isEmpty(Session("blnCounterSet")) = True Then lngVisitorNumber = lngVisitorNumber + 1 Session("blnCounterSet") = True End if Set tsObject = fsoObject.CreateTextFile(Server.MapPath("compteur.txt")) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing vi="" For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) vi=vi+Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) Next %> Sfax Technology Park

Republic of Tunisia Ministry of Higher Education,Scientific Research and Technology	République Tunisienne Ministère de l'Enseignement Supérieur, de la Recherche Scientifique et de la Technologie	الجمهورية التونسية وزارة التعليم العالي والبحث العلمي والتكنولوجيا