<%
set FileObj=CreateObject("Scripting.FileSystemObject")
filetesto = "d:/Y_Databases/mezzolitro.com/menu.txt"
set instream = FileObj.OpenTextFile(filetesto,1,true)
do while not instream.atendofstream
response.write instream.readline & " "
loop
instream.close
%>
