<%
file_name1 = Server.MapPath("events1.txt")
file_name2 = Server.MapPath("events2.txt")
file_name3 = Server.MapPath("events3.txt")
%>
Dominion on Queen - Beer Parlour Kitchen Jazz & Blues Comedy & Poetry Restaurant in Toronto Beer Parlour Kitchen Jazz & Blues Comedy & Poetry Restaurants
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(file_name1)
Set ts = f.OpenAsTextStream(1, -2)
month_name = ts.ReadLine 'month_name
%>
<%=month_name%>
<%
while not ts.AtEndOfStream
dim i
i=1
response.write("
")
while i<8 and NOT ts.AtEndOfStream
s = ts.ReadLine
response.write("
")
while not s="-----"
response.write(s&" ")
s = ts.ReadLine
wend
response.write("
")
i=(i+1)
wend
response.write("
")
wend
ts.close
set month_name = nothing
set i = nothing
set s = nothing
set ts = nothing
set f = nothing
set fs = nothing
%>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(file_name2)
Set ts = f.OpenAsTextStream(1, -2)
month_name = ts.ReadLine 'month_name
%>
<%=month_name%>
<%
while not ts.AtEndOfStream
i=1
response.write("
")
while i<8 and NOT ts.AtEndOfStream
s = ts.ReadLine
response.write("
")
while not s="-----"
response.write(s&" ")
s = ts.ReadLine
wend
response.write("
")
i=(i+1)
wend
response.write("
")
wend
ts.close
set month_name = nothing
set i = nothing
set s = nothing
set ts = nothing
set f = nothing
set fs = nothing
%>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(file_name3)
Set ts = f.OpenAsTextStream(1, -2)
month_name = ts.ReadLine 'month_name
%>
<%=month_name%>
<%
while not ts.AtEndOfStream
i=1
response.write("
")
while i<8 and NOT ts.AtEndOfStream
s = ts.ReadLine
response.write("
")
while not s="-----"
response.write(s&" ")
s = ts.ReadLine
wend
response.write("
")
i=(i+1)
wend
response.write("
")
wend
ts.close
set month_name = nothing
set i = nothing
set s = nothing
set ts = nothing
set f = nothing
set fs = nothing
%>
