vbs pour une page ASP

[JMG le retour]

BONJOUR

plutôt que du texte voici

1er cas

<%@ LANGUAGE="VBSCRIPT" %>

<%
Dim fs, a As object
Dim StreamLine As String
Dim maxLine As Integer

Set fs = server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath(".")
Set a = fs.opentextfile(\testfile.txt, 1, 0)

a = dir & "\testfile.txt"

Do While a.AtEndOfStream <> True
StreamLine = a.readall
Maxline = a.Line - 1
Loop
a.Close
%>


2eme cas


<%
Dim FSO, Fnm
Dim Buff As String, Temp As String
Dim lignes As Integer
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Dir = Server.MapPath(".")
Fnm = Dir & "\testfile.txt"
OpenTextFile(Fnm, True) For Input As #1 'à partir de là ça merde...
lignes = -1
Buff = ""
Temp = ""
Do Until EOF(1)
Line Input #1, Temp
Buff = Buff & Temp & vbCrLf
lignes = lignes + 1
Loop
Close #1

%>


merci de bien vouloir me repondre

JMG