<% Dim ShowID ShowID = 6212 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 %> Descendents of Darkness (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

Descendents of Darkness

(a Titles & Air Dates Guide)

Last updated: <%=getLastMod("../rage/2148.txt") %>
     
 
Show Details:
Start date: Oct 2000
End date: Dec 2000
Status: cancelled/ended
Network(s): WOWOW (JP)
Run time: 25 min
Episodes: 13 eps
Genre(s): Animated, 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                02/Oct/00   The Nagasaki File (1) 
2      1-02                09/Oct/00   The Nagasaki File (2) 
3      1-03                16/Oct/00   The Nagasaki File (3) 
4      1-04                23/Oct/00   The Devil's Trill (1) 
5      1-05                30/Oct/00   The Devil's Trill (2) 
6      1-06                06/Nov/00   The Devil's Trill (3) 
7      1-07                13/Nov/00   The King of Swords (1) 
8      1-08                20/Nov/00   The King of Swords (2) 
9      1-09                27/Nov/00   The King of Swords (3) 
10     1-10                04/Dec/00   The Kyoto File (1) 
11     1-11                11/Dec/00   The Kyoto File (2) 
12     1-12                18/Dec/00   The Kyoto File (3) 
13     1-13                18/Dec/00   The Kyoto File (4)
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).