<% Dim ShowID ShowID = 1274 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 %> Inside Victor Lewis-Smith (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

Inside Victor Lewis-Smith

(a Titles & Air Dates Guide)

Last updated: <%=getLastMod("../rage/3969.txt") %>
Show Logo
 
Show Details:
Start date: Nov 1993
End date: Dec 1993
Status: cancelled/ended
Network(s): BBC Two (UK)
Run time: 30 min
Episodes: 6 eps
Genre(s): Comedy
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                01/Nov/93   The Money Programme
2      1-02                08/Nov/93   Nationwide
3      1-03                22/Nov/93   The Saint
4      1-04                29/Nov/93   The Baron
5      1-05                06/Dec/93   Danger Man
6      1-06                13/Dec/93   Tomorrow's World
Back to TOP
NOTES
The episodes titles given here are not official.They refer to the song played by the BBC Big Band.
<% 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).