<%
Dim TextStream
Dim FSO
Dim S
Dim File
Dim MyArray
Dim SOP_pub(150)
Dim SOP_pub_lst(150)
Dim SOP_edition(150)
Dim SOP_mail(150)
Dim SOP_mail_cc(150)
Dim SOP_tarif(150)
SOP_nb_pub = 0
SOP_pub_select = 0
SOP_pub(0) = ""
SOP_pub_idx = 0
SOP_edition(0) = ""
SOP_mail(0) = ""
SOP_mail_cc(0) = ""
SOP_tarif(0) = ""
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile(Server.MapPath("tarifs_internet.csv"))
Set TextStream = File.OpenAsTextStream(1)
SOP_pub_lst(0) = ""
Do While Not TextStream.AtEndOfStream
SOP_nb_pub = SOP_nb_pub + 1
S = TextStream.ReadLine
MyArray = Split(S, ";", -1, 1)
If (MyArray(0) <> SOP_pub_lst(SOP_pub_idx)) Then
SOP_pub_idx = SOP_pub_idx + 1
SOP_pub_lst(SOP_pub_idx) = MyArray(0)
End If
SOP_pub(SOP_nb_pub) = MyArray(0)
SOP_edition(SOP_nb_pub) = MyArray(1)
SOP_mail(SOP_nb_pub) = MyArray(2)
SOP_mail_cc(SOP_nb_pub) = MyArray(3)
SOP_tarif(SOP_nb_pub) = MyArray(4)
Loop
TextStream.Close
%>
SUD-OUEST PUBLICITE
