riposto la prima parte del codice visto che su una sola linea non si legge


Public Sub lang(riga)
frase= ""
ilfile=server.MapPath("/lang/" & session("lng")& "/matricola.lng")
Set file = CreateObject("Scripting.FileSystemObject")
If file.FileExists (ilfile) =true then
Set ilfile = file.OpenTextFile(ilfile, 1, False, False)
counter=0
do while not ilfile.AtEndOfStream
counter=counter+1
illine=ilfile.readline
if counter = riga then
frase=illine
response.write frase
ilfile.Close
set ilfile=nothing
set file=nothing
exit sub
end if
loop
ilfile.Close
end if
set ilfile=nothing
set file=nothing
end sub