<% 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, 7)) 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") 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 & "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 %> <% ' The QSort class sorts arrays using the quicksort algorithm. ' This code is a derived work from the code found at: ' http://4guysfromrolla.com/webtech/012799-2.shtml ' ' This version can sort arrays of values or objects, using a user-supplied ' sort function. const CMP_LESS = -1 const CMP_EQU = 0 const CMP_GREATER = 1 const ORDER_ASC = 1 const ORDER_DESC = -1 function qsort_cmp(a,b) if a < b then qsort_cmp = CMP_LESS elseif a > b then qsort_cmp = CMP_GREATER else qsort_cmp = CMP_EQU end if end function function array_swap(values, i,j) dim temp: temp = values(i) values(i) = values (j) values(j) = temp end function function array_swapO(values, i,j) dim temp : set temp = values(i) set values(i) = values (j) set values(j) = temp end function class QSort private f_order private f_cmp private f_swap private valueSort private sub class_initialize f_order = ORDER_ASC end sub ' Compare a and b, taking the sort-order into account ' If DESC, reverse the results of the comparison private function comp(a,b) comp = f_cmp(a,b) * f_order end function private sub QSort(values, loBound,hiBound) dim pivot,loSwap,hiSwap '== Two items to sort if hiBound - loBound = 1 then if comp(values(loBound), values(hiBound)) = CMP_GREATER then f_swap values,loBound,hiBound end if exit sub end If '== Three or more items to sort dim pivotIndex : pivotIndex = int((loBound + hiBound) / 2) if valueSort then pivot = values(pivotIndex) else set pivot = values(pivotIndex) end if f_swap values, pivotIndex, loBound loSwap = loBound + 1 hiSwap = hiBound do '== Find the right loSwap while (loSwap < hiSwap) and (comp(values(loSwap), pivot) <> CMP_GREATER) loSwap = loSwap + 1 wend '== Find the right hiSwap while (comp(values(hiSwap), pivot) = CMP_GREATER) hiSwap = hiSwap - 1 wend '== Swap values if loSwap is less then hiSwap if loSwap < hiSwap then f_swap values, loSwap, hiSwap End If loop while loSwap < hiSwap if valueSort then values(loBound) = values(hiSwap) values(hiSwap) = pivot else set values(loBound) = values(hiSwap) set values(hiSwap) = pivot end if '== Recursively call function '== 2 or more items in first section if loBound < (hiSwap - 1) then QSort values, loBound,hiSwap-1 '== 2 or more items in second section if hiSwap + 1 < hibound then QSort values, hiSwap+1,hiBound End Sub public property set Compare(func) set f_cmp = func end property public property let Order(sortOrder) set f_order = sortOrder end property public sub Sort(values) ' Don't sort empty arrays or arrays with only 1 value if UBound(values) < 1 then exit sub valueSort = false if IsEmpty(f_cmp) then valueSort = true set f_cmp = GetRef("qsort_cmp") set f_swap = GetRef("array_swap") else set f_swap = GetRef("array_swapO") end if QSort values, LBound(values), UBound(values) if valueSort then f_cmp = Empty end sub end class %> <% Function popImgArray() Dim path, objFSO, curFolder, curFile, curFiles, sort Dim LogoArray, CastArray, ImageArray ReDim LogoArray(1) ReDim CastArray(1) ReDim ImageArray(1) path = Server.MapPath( "." ) Set objFSO = CreateObject("Scripting.FileSystemObject") Set curFolder = objFSO.GetFolder( path ) Set curFiles = curFolder.Files Set sort = New QSort ' Do logos first For Each curFile In curFiles If InStr(curFile.Name, "logo") Or InStr(curFile.Name, "Logo") Then tempName = Replace(curFile.Name, " ", "%20") LogoArray(i) = tempName i = i + 1 ReDim Preserve LogoArray(UBound(LogoArray)+1) End If Next ReDim Preserve LogoArray(UBound(LogoArray)-2) sort.Sort LogoArray ' Then the cast photos For Each curFile In curFiles If (InStr(curFile.Name, "cast") OR InStr(curFile.Name, "Cast")) AND NOT (Right(curFile.Name, 4) = ".txt") Then tempName = Replace(curFile.Name, " ", "%20") CastArray(j) = tempName j = j + 1 ReDim Preserve CastArray(UBound(CastArray)+1) End If Next ReDim Preserve CastArray(UBound(CastArray)-2) sort.Sort CastArray For k1 = 0 To UBound(LogoArray) ImageArray(cnt) = LogoArray(k1) cnt = cnt + 1 ReDim Preserve ImageArray(UBound(ImageArray)+1) Next For k2 = 0 To UBound(CastArray) ImageArray(cnt) = CastArray(k2) cnt = cnt + 1 ReDim Preserve ImageArray(UBound(ImageArray)+1) Next ReDim Preserve ImageArray(UBound(ImageArray)-2) popImgArray = ImageArray End Function %>
epguides.com & TV.com present

Hi Honey, I'm Home!

(a Titles & Air Dates Guide)
A wholesome family from a 1950s sitcom is brought forward in time into a contemporary suburban neighborhood via the Sitcom Relocation Program. Wacky hijinks ensue as they interact with their modern neighbors, occasionally relaxing by zapping themselves back into their simpler black & white versions.
Show Details:
Start date: Jul 1991
End date: Jul 1992
Status: cancelled/ended
Network(s): ABC (US) / Nick (US)
Run time: 30 min
Episodes: 13 eps
Genre(s): sci-fi
Credits:
Episode list & details from:  TV.com
                            Original
  Episode #     Prod #      Air Date   Titles
_____ ______ ___________  ___________ ___________________________________________


Pilot

       P- 1                27 Jun 99   Pilot

Season 1

  1.   1- 1                19 Jul 91   Meet the Neilsens
  2.   1- 2                26 Jul 91   Make My Bed
  3.   1- 3                 2 Aug 91   Fur Flies
  4.   1- 4                 9 Aug 91   Hi Mom, I'm Not Home
  5.   1- 5                16 Aug 91   Grey Skies
  6.   1- 6                23 Aug 91   SRP

Season 2

  7.   2- 1                 7 Jun 92   That Kind of Girl
  8.   2- 2                14 Jun 92   Honey's First Job
  9.   2- 3                21 Jun 92   Take My Son Please
 10.   2- 4                28 Jun 92   Date from Heck
 11.   2- 5                 5 Jul 92   Honey Gets Busted
 12.   2- 6                12 Jul 92   The Many Loves of Mike Duff
 13.   2- 7                19 Jul 92   Elaine Takes a Wife

Back to TOP

NOTES
For the first season, each episode of the show would air first on ABC, then the following week on Nickelodeon. The second season aired only on Nickelodeon.