<% LectureSeul = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFichier = objFSO.OpenTextFile(Server.MapPath("Variables.txt"), LectureSeul) Do Until objFichier.AtEndOfStream Ligne = objFichier.ReadLine Separation = instr(Ligne,"|") if Separation > 0 then TypeLigne = left(lcase(Ligne), Separation-1) Donnees = mid(Ligne,Separation+1) select case TypeLigne Case "positionquebec" PositionQuebec = cInt(Donnees) Case "positioncanada" PositionCanada = cInt(Donnees) Case "positionmonde" PositionMonde = cInt(Donnees) end select end if loop objFichier.Close %>

<%=PositionQuebec%>e

<%=PositionCanada%>e

<%=PositionMonde%>e