|
<%
dim epishow
epishow=Request.QueryString
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("comments/epi/" & epishow & ".txt"), 1)
do while f.AtEndOfStream = false
Response.Write(f.ReadLine)
Response.Write(" ") loop f.Close Set f=Nothing Set fs=Nothing response.write(" ") response.write("Do you have a comment on this episode ? ") response.write(" ") %> Click here to view all of the recent comments from all episodes |