<% Dim ShowID ShowID = 818 maze = False tvCom = False rage = True Dim ld1, ld2, ld3, ld, max, min, nocook max = 100 min = 1 RANDomize rndnum = Int((max-min+1)*Rnd+min) current = False ld1 = Request.Form("list") ld2 = Request.Cookies("ListDisplay") If rndnum > 0 AND ((maze AND current) OR (maze AND NOT(current) )) Then ld3 = "tvmaze.com" Else ld3 = "tv.com" End If If Len(ld1) > 1 Then ld = ld1 ElseIf ld2 = "tvmaze.com" AND maze Then ld = ld2 ElseIf ld2 = "tv.com" AND tvCom Then ld = ld2 Else ld = ld3 nocook = True End If %> The Enid Blyton Adventure Series (a Titles & Air Dates Guide) <% Function makeTBLmaze(ByVal maze, ByVal titlecolumn) Server.ScriptTimeout = 1200 server_root = Application("server_root") Set objFSO = CreateObject("Scripting.FileSystemObject") If len(maze) > 0 Then fullPath = server_root & "\maze\" & maze If objFSO.FileExists(fullPath) Then Set objFile = objFSO.OpenTextFile(fullPath, 1) If Not objFile.AtEndOfStream Then list = objFile.ReadAll Else list = " " End If objFile.Close Else list = " " End If End If list = Replace(list, "a target", "" & vbCrLf tblout = tblout & "Episode #" & vbCrLf tblout = tblout & "Original
Air Date" & vbCrLf tblout = tblout & "" & titlecolumn & "" & vbCrLf tblout = tblout & "" & vbCrLf tblout = tblout & " " & vbCrLf For x = 0 to UBound(firstSplit) If Left(firstSplit(x), 6) = "Season" Then tblout = tblout & "" & firstSplit(x) & "" & "" & vbCrLf ElseIf Left(firstSplit(x), 8) = "Specials" Then tblout = tblout & "" & firstSplit(x) & "" & "" & vbCrLf ElseIf Left(firstSplit(x), 1) = "<" Then latestanchor = Replace(firstSplit(x), "", "
") tblout = tblout & "" & latestanchor & "" & "" & vbCrLf ElseIf Len(firstSplit(x)) = 0 Then tblout = tblout & " " & vbCrLf Else epinf = Trim(Mid(firstSplit(x), 8, 8)) If Len(epinf) = 3 Then epinf = epinf & " " tblout = tblout & "" tblout = tblout & "" & Trim(Left(firstSplit(x), 5)) & "" tblout = tblout & "" & epinf & "" tblout = tblout & "" & Trim(Mid(firstSplit(x), 28, 10)) & "" tblout = tblout & "" & Trim(Mid(firstSplit(x), 41)) & "" tblout = tblout & "" & vbCrLf End If Next tblout = tblout & "" makeTBLmaze = tblout End Function Function makeTBLtvcom(ByVal tvcomlist, ByVal titlecolumn) Server.ScriptTimeout = 1200 server_root = Application("server_root") Set objFSO = CreateObject("Scripting.FileSystemObject") tblout = "" & vbCrLf If len(tvcomlist) > 0 Then If InStr(tvcomlist,".epg") Then fullPath = server_root & "\epg\" & tvcomlist Else fullPath = server_root & "\lists\" & tvcomlist End If If objFSO.FileExists(fullPath) Then Set objFile = objFSO.OpenTextFile(fullPath, 1) Set objFile = objFSO.OpenTextFile(fullPath, 1) If Not objFile.AtEndOfStream Then list = objFile.ReadAll Else list = " " End If objFile.Close Else list = " " End If End If list = Replace(list, "a href", "" & vbCrLf tblout = tblout & "" & vbCrLf tblout = tblout & "Episode #" & vbCrLf tblout = tblout & "Prod Code" & vbCrLf tblout = tblout & "Original
Air Date" & vbCrLf tblout = tblout & "" & titlecolumn & "" & vbCrLf tblout = tblout & "" & vbCrLf tblout = tblout & " " & vbCrLf For x = 0 to UBound(firstSplit) If Left(firstSplit(x), 6) = "Season" Then tblout = tblout & "" & firstSplit(x) & "" & "" & vbCrLf ElseIf Left(firstSplit(x), 5) = "Pilot" Then tblout = tblout & "" & firstSplit(x) & "" & "" & vbCrLf ElseIf Left(firstSplit(x), 7) = "Reunion" Then tblout = tblout & "" & firstSplit(x) & "" & "" & vbCrLf ElseIf Left(firstSplit(x), 7) = "Special" Then tblout = tblout & "" & firstSplit(x) & "" & "" & vbCrLf ElseIf Len(firstSplit(x)) = 0 Then tblout = tblout & " " & vbCrLf Else pc = Trim(Mid(firstSplit(x), 12, 14)) If Len(pc) = 3 Then pc = " " & pc dt = Trim(Mid(firstSplit(x), 28, 10)) If Len(dt) = 8 Then dt = " " & dt lenpc = Len(pc) tblout = tblout & "" tblout = tblout & "" & Trim(Left(firstSplit(x), 5)) & "" tblout = tblout & "" & Trim(Mid(firstSplit(x), 6, 6)) & "" tblout = tblout & "" & pc & "" tblout = tblout & "" & dt & "" tblout = tblout & "" & Trim(Mid(firstSplit(x), 41)) & "" tblout = tblout & "" & vbCrLf End If Next tblout = tblout & "" makeTBLtvcom = tblout End Function %> <% Function getLastMod(file2check) Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") Set f = objFSO.GetFile(Server.MapPath( file2check )) fModDate = WeekdayName(WeekDay(f.DateLastModified), True)_ & ", " & Day(f.DateLastModified)_ & " " & MonthName(Month(f.DateLastModified), True)_ & " " & Year(f.DateLastModified)_ & " " & Hour(f.DateLastModified)-5 & ":00" getLastMod = fModDate End Function %>
epguides.com & TVRage present

The Enid Blyton Adventure Series

(a Titles & Air Dates Guide)

Last updated: <%=getLastMod("../rage/5752.txt") %>
     
 
Show Details:
Start date: Jul 1996
End date: Sep 1996
Status: cancelled/ended
Network(s): Disney Channel (UK)
Run time: 30 min parts
Episodes: 8 serials
Genre(s): Drama
Credits:
Down to Latest Season
list as .csv
IMDb
Wikipedia
FAQ
SEARCH epguides
Menus & Grids
Episode list from:  TVRage  (links if any to TVRage may no longer work) 
                            Original
  Episode #     Prod #      Air Date   Titles
_____ ______ ___________  ___________ ___________________________________________

• Season 1

1      1-01                21/Jul/96   Island of Adventure 
2      1-02                28/Jul/96   Castle of Adventure 
3      1-03                04/Aug/96   Valley of Adventure 
4      1-04                11/Aug/96   Sea of Adventure 
5      1-05                18/Aug/96   Mountain of Adventure 
6      1-06                25/Aug/96   Ship of Adventure 
7      1-07                01/Sep/96   Circus of Adventure 
8      1-08                08/Sep/96   River of Adventure
Back to TOP
<% If ld = "tvrage.com" Then %> The home sites for this guide are http://epguides.com/ for show info AND TVRage had the episode details. Contact Us: To correct episode titles click through the episode AND submit corrections via the specific list provider. For other concerns AND corrections, click here. <% ElseIf ld = "tvmaze.com" Then %> The home sites for this guide are http://epguides.com/ for show info AND http://www.TVmaze.com/ for episode details. Contact Us: To correct episode titles click through the episode AND submit corrections via the specific list provider. For other concerns AND corrections, click here. <% Else %> The home sites for this guide are http://epguides.com/ for show info AND http://www.TV.com/ for episode details. Contact Us: To correct episode titles click through the episode AND submit corrections via the specific list provider. For other concerns AND corrections, click here. <% End If %>
Disclaimer: We have no connection with the show or the network. We are just providing information, which we hope fans will find useful. We cannot vouch for the user experience provided by external sites.
This guide may be distributed and copied freely, in its entirety, for personal use. All original author and copyright information must remain intact. Any sales or other uses of this document are expressly forbidden, without the specific consent of the author(s).