<%@ LANGUAGE=VBScript %> <% function getID() Dim numbers Dim letters Dim ID Randomize numbers="0123456789" letters="abcdefghijklmnopqrstuvwxyz" for i=1 to 10 if i mod 2 <> 0 then ID = ID&mid(letters,Int((26*Rnd) +1),1) else ID = ID&mid(numbers,Int((10*Rnd) +1),1) end if next getID = ID end function Dim IDvisite IDvisite = Request.Cookies("IDvisite") If IDvisite = "" then IDvisite = getID() Response.Cookies("IDvisite") = IDvisite Response.Cookies("IDvisite").Expires = date+.5 Session("IDvisite") = IDvisite Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HitsFile =("D:\www\profession-plastique.org\databases\racineP.txt") Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) End If %> La voix de la filière plastique française