<%=response.Write(Title)%>

<%response.Write(myArray(id))%> <% Dim fs,f Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile(server.mappath(id&".txt")) Set readf = f.OpenAsTextStream(1,-2) Dim tp Do While readf.AtEndOfLine <> True s=readf.ReadLine tp=tp & s Loop readf.close Response.Write(tp) %>