<% Dim ShowID ShowID = 2849 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 Young Pioneers (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 Young Pioneers

(a Titles & Air Dates Guide)

Last updated: <%=getLastMod("../rage/6322.txt") %>
     
 
Show Details:
Start date: Mar 1976
End date: Apr 1978
Status: cancelled/ended
Network(s): ABC (US)
Run time: 120 min except 60 min (episodes 2-3)
Episodes: 5 eps
Genre(s): Western
Credits:
Episode list from:  TVRage  (links if any to TVRage may no longer work)
                            Original
  Episode #     Prod #      Air Date   Titles
_____ ______ ___________  ___________ ___________________________________________

• Pilot

0      1-00                01/Mar/76    The Young Pioneers (120 min)
0      1-00                17/Dec/76    The Young Pioneers' Christmas (120 min)

• Season 1

1      1-01      188532    02/Apr/78   Sky in the Window 
2      1-02      188534    09/Apr/78   A Kite for Charlie 
3      1-03      188536    16/Apr/78   The Promise of Spring 

Back to TOP