Ho la seguente funzione
-----------------------
Private Function LoadKey()

Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")

Set Rst=FileObject.OpenTextFile(Server.MapPath("parole .txt"),1,False,False)
S=Rst.ReadAll

Rst.Close

Set Rst = Nothing
Set FileObject=Nothing

S=replace(S,Chr(13), "
")
Response.Write S

End Function
---------------------
Come faccio a stampare i risultati su 3 colonne?