<%@LANGUAGE="VBscript" %>
<% ' Réalisé par Normand Janelle
' de Gestion Informatique Expert
' Le 17 sept 2008
' Revisé le 10 aout 2009
%>
Verger Coeur de Pomme
Provenance des Visiteurs |
|---|
| Provenance des gens | En ordre d'importance | Pourcentage |
|---|
<%
dim i,temp,line(10000)
i=0
set fs=Server.CreateObject("Scripting.FileSystemObject")
set t=fs.OpenTextFile(Server.MapPath("referrer2009.txt"),1,false)
do while t.AtEndOfStream=false
'Response.Write("Line " & t.Line & ": " & t.ReadLine & "
")
line(i)=t.ReadLine
' Response.Write(t.ReadLine & "
" )
i=i+1
loop
t.Close
call lire()
%>