<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' Copyright 2006 Ronald Hedberg. All rights reserved. Unauthorized use is strictly prohibited. ' Do not steal. Licensed use for Faith Roots show from Good News for Israel only. Option Explicit StartPage WriteChannel WriteItems EndPage Sub StartPage() Response.ContentType = "text/XML" Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write vbCrLf Response.Write "" & vbCrLf Response.Write vbCrLf End Sub Sub EndPage() Response.Write "" & vbCrLf Response.Write "" End Sub Sub WriteChannel() Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" Response.Write "http://www.gnfi.org" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "Rev. Chris Heeb and Messianic Rabbi Ed Rothman " Response.Write "discuss the Jewish roots of Christianity on the Faith Roots radio show. " Response.Write "The New Testament is concealed in the Old. And the Old Testament " Response.Write "is revealed in the New." & vbCrLf & vbCrLf Response.Write "Faith Roots airs at 10:30 a.m. CDT on KKMS AM 980 in the Twin Cities area. " & vbCrLf & vbCrLf Response.Write "Read Good News for Israel articles " Response.Write "at www.gnfi.org " & vbCrLf ' Response.Write "My Odeo Channel (odeo/f4890e7503b95f18)" & vbCrLf Response.Write "" & vbCrLf Response.Write "gnfi@gnfi.org (Chris Heeb)" & vbcrlf Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write " http://www.gnfi.org/images/FaithRoots.gif" & vbCrLf Response.Write " http://www.gnfi.org" & vbCrLf Response.Write "" & vbCrLf Response.Write "en-us" & vbCrLf Response.Write "Copyright © 2006, Good News for Israel" & vbCrLf Response.Write "Ron Hedberg custom code - ronhedberg.com" & vbCrLf ' itunes specific Response.Write "" & vbCrLf Response.Write " " & vbCrLf Response.Write "" & vbCrLf Response.Write "Good News for Israel" & vbCrLf Response.Write "no" & vbCrLf Response.Write "" & vbCrLf Response.Write "Rev. Chris Heeb and Messianic Rabbi Ed Rothman " Response.Write "discuss the Jewish roots of Christianity on the Faith Roots radio show. " Response.Write "The New Testament is concealed in the Old. And the Old Testament " Response.Write "is revealed in the New." & vbCrLf & vbCrLf Response.Write "Faith Roots airs at 10:30 a.m. CDT on KKMS AM 980 in the Twin Cities area. " & vbCrLf & vbCrLf Response.Write "Read Good News for Israel articles " Response.Write "at www.gnfi.org " & vbCrLf Response.Write "" & vbCrLf Response.Write "" Response.Write "Jewish roots of Christianity, presented by Good News for Israel" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "Faith Roots Good News for Israel " & vbCrLf Response.Write "Chris Heeb Ed Rothman KKMS Jesus Yeshua" & vbCrLf Response.Write "rabbi jew jewish judaism Hebrew messianic religion " & vbCrLf Response.Write "ministry ministries Christian church broadcast radio " & vbCrLf Response.Write "Twin Cities Saint Paul St St. Minneapolis Minnesota" & vbCrLf Response.Write "" & vbCrLf Response.Write "" ' & vbCrLf ' Yahoo specific Response.Write "" & "Faith Roots Radio" Response.Write "" & vbCrLf Response.Write "" Response.Write "Faith Roots radio show from Good News for Israel" Response.Write "" & vbCrLf Response.Write "nonadult" & vbCrLf Response.Write "g" & vbCrLf Response.Write "" & vbCrLf Response.Write "Faith, Roots, Good, News, for, Israel, yeshua, Jesus, KKMS, " & vbCrLf Response.Write "Chris, Heeb, Ed, Rothman, rabbi, jew, jewish, judaism, Hebrew, messianic, religion, " & vbCrLf Response.Write "ministry, ministries, Christian, church, broadcast, radio, " & vbCrLf Response.Write "Twin, Cities, Saint, Paul, St, St., Minneapolis, Minnesota," & vbCrLf Response.Write "" & vbCrLf Response.Write vbCrLf End Sub Sub WriteItems() Dim fsoMP3 ' As FileSystemObject Dim folder Set fsoMP3 = CreateObject("Scripting.FileSystemObject") Set folder = fsoMP3.GetFolder(Server.MapPath("audio/FaithRoots/")) WriteFolderItems folder Set folder = Nothing Set fsoMP3 = Nothing End Sub Sub WriteFolderItems(myFolder) Dim files Dim curFile Dim dateModified Dim strFilename Dim strDate Dim strYear Dim strDay Dim strDayOfWeek Dim strMonth Dim strMonthName Dim strMonthNameLong Dim strMonthNames(13) Dim strMonthNamesLong(13) Dim strDayNames(8) Dim strOptions() Dim intOptionCount Dim intOption Dim intDateStart Dim intYear Dim intMonth Dim intDay Dim strBroadcastDate Dim dtBroadcastDate Dim dtBroadcastDateBegins ' for lower limit Dim intWeekday Dim strDateKey Dim strTitle Dim strDescription strMonthNames(0) = "" strMonthNames(1) = "Jan" strMonthNames(2) = "Feb" strMonthNames(3) = "Mar" strMonthNames(4) = "Apr" strMonthNames(5) = "May" strMonthNames(6) = "Jun" strMonthNames(7) = "Jul" strMonthNames(8) = "Aug" strMonthNames(9) = "Sep" strMonthNames(10) = "Oct" strMonthNames(11) = "Nov" strMonthNames(12) = "Dec" strMonthNamesLong(0) = "" strMonthNamesLong(1) = "January" strMonthNamesLong(2) = "February" strMonthNamesLong(3) = "March" strMonthNamesLong(4) = "April" strMonthNamesLong(5) = "May" strMonthNamesLong(6) = "June" strMonthNamesLong(7) = "July" strMonthNamesLong(8) = "August" strMonthNamesLong(9) = "September" strMonthNamesLong(10) = "October" strMonthNamesLong(11) = "November" strMonthNamesLong(12) = "December" ' strDayNames(0) = "" ' strDayNames(1) = "Sunday" ' strDayNames(2) = "Monday" ' strDayNames(3) = "Tuesday" ' strDayNames(4) = "Wednesday" ' strDayNames(5) = "Thursday" ' strDayNames(6) = "Friday" ' strDayNames(7) = "Saturday" strDayNames(0) = "" strDayNames(1) = "Sun" strDayNames(2) = "Mon" strDayNames(3) = "Tue" strDayNames(4) = "Wed" strDayNames(5) = "Thu" strDayNames(6) = "Fri" strDayNames(7) = "Sat" Set files = myFolder.Files If files.Count <> 0 Then intOptionCount = 0 For each curFile in files strFilename = UCase(curFile.Name) If Instr(1, strFilename, "FR-") Then If Instr(1, strFilename, ".MP3") Then ' Assuming format of ShowAbbreviation-YYYYMMDD_description.mp3 intDateStart = Instr(1, strFilename, "-") + 1 strYear = Mid(strFilename, intDateStart, 4) strMonth = Mid(strFilename, intDateStart + 4, 2) If strMonth = "" Then strYear = "" strMonthName = "" strMonthNameLong = "" Else strMonthName = strMonthNames(CInt(strMonth)) strMonthNameLong = strMonthNamesLong(CInt(strMonth)) End If strDay = Mid(strFilename, intDateStart + 6, 2) If Left(strDay, 1) = "0" Then strDay = Right(strDay, 1) End If strBroadcastDate = strDay & " " & strMonthNameLong & " " & strYear dtBroadcastDate = CDate(strBroadcastDate) ' dtBroadcastDateBegins = CDate("1 May 2005") intWeekday = Weekday(dtBroadcastDate) ' strDayOfWeek = strDayNames(Weekday(dtBroadcastDate)) strDayOfWeek = WeekdayName(intWeekday, True) ' strTitle = Mid(strFilename, intDateStart + 9) strTitle = Mid(curFile.Name, intDateStart + 9) strTitle = Replace(strTitle , "_", " ") strTitle = Replace(strTitle , ".MP3", "") strTitle = Replace(strTitle , ".mp3", "") strDateKey = Mid(strFilename, intDateStart, 8) ' Convert to Monday so we can use the same description all week If intWeekday > 2 Then strDateKey = CStr(CLng(strDateKey) - (intWeekday - 2)) Else If intWeekday < 2 Then strDateKey = CStr(CLng(strDateKey) + (2 - intWeekday)) End If End If If Instr(1, strFilename, "CS-") Then ' A CitySites Urban Media show or a special show ' Keep FR- prefix so it sorts correctly strDescription = getCitySitesDescription(strDateKey) strTitle = Replace(strTitle, "CS-", "") Else ' Faith Roots show strDescription = getDescription(strDateKey) End If If strDescription = "" Then strDescription = strBroadcastDate End If If dtBroadcastDate <= Date Then intOptionCount = intOptionCount + 1 Redim Preserve strOptions(intOptionCount) strOptions(intOptionCount) = "" & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" strOptions(intOptionCount) = strOptions(intOptionCount) _ & strDayOfWeek & ", " & strDay & " " & strMonthName & " " & strYear strOptions(intOptionCount) = strOptions(intOptionCount) _ & " 06:01:00 GMT" & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" strOptions(intOptionCount) = strOptions(intOptionCount) _ & "http://www.gnfi.org/audio/FaithRoots/" _ & curFile.Name strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbcrlf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" strOptions(intOptionCount) = strOptions(intOptionCount) _ & "http://www.gnfi.org/audio/FaithRoots/" _ & curFile.Name strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbcrlf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbcrlf ' now larger with image included in MP3 strOptions(intOptionCount) = strOptions(intOptionCount) _ & " length=""2360346"" type=""audio/mpeg"" />" & vbcrlf ' strOptions(intOptionCount) = strOptions(intOptionCount) _ ' & "" & "Listen to message" ' curFile.Name strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & strDescription & "" & vbcrlf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "13:00" & vbcrlf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "Good News for Israel" & vbcrlf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" strOptions(intOptionCount) = strOptions(intOptionCount) _ & "Faith Roots Good News for Israel Chris Heeb Larry Kutzler " & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "Christian ministry Jew Jewish Hebrew church religion " & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & strTitle strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" strOptions(intOptionCount) = strOptions(intOptionCount) _ & strTitle strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbCrLf ' If included, they turn up as duplicates in My Yahoo ' strOptions(intOptionCount) = strOptions(intOptionCount) _ ' & "" & vbcrlf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & strDescription strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbcrlf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "Faith, Roots, Good, News, for, Israel, Chris, Heeb, Larry, Kutzler, " & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "Christian, ministry, Jew, Jewish, Hebrew, church, religion, " & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & Replace(strTitle, " ", ", ") strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbCrLf strOptions(intOptionCount) = strOptions(intOptionCount) _ & "" & vbCrLf & vbCrLf End If End If End If Next For intOption = intOptionCount To 1 Step -1 Response.Write strOptions(intOption) Next End If End Sub ' WriteFolderItems Function GetDescription(strKey) Dim sDesc Select Case strKey Case "20100222" sDesc = "5 Years of Faith Roots Radio! And Larry and Chris discuss Theology." Case "20100215" sDesc = "Chris and Larry speak with Amer Olson of the Chicago Branch of Jews for Jesus" Case "20100208" sDesc = "Chris and Larry talk with Tom Berkowitz and Scott Volk" Case "20100201" sDesc = "Chris and Larry talk with Paul and Adrian Volk discuss being saved" Case "20100125" sDesc = "Week 3 of Chris Heeb and Rabbi Ed Rothman review the theology of Jesus and the Covenants in the Old Testament" Case "20100118" sDesc = "Week 2 of Chris Heeb and Rabbi Ed Rothman review the theology of Jesus and the Covenants in the Old Testament" Case "20100111" sDesc = "Chris Heeb and Rabbi Ed Rothman review the theology of Jesus and the Covenants in the Old Testament" Case "20100104" sDesc = "Author Dr. Jim Murk discusses Islam with Chris and Larry" Case "20091130" sDesc = "Chris Heeb and Larry Kutzler talk with Robert Tanner about GNFI" Case "20091123" sDesc = "A third week of Rabbi Ed Rothman and Chris Heeb covering the Book of Peter" Case "20091116" sDesc = "A second week of Rabbi Ed Rothman and Chris Heeb covering the Book of Peter" Case "20091109" sDesc = "Rabbi Ed Rothman and Chris Heeb cover the Book of Peter" Case "20091102" sDesc = "Comments on clips from Pastor Mark Driscoll" Case "20090928" sDesc = "Rabbi Ed Rothman and Chris Heeb on the Fall Feasts" Case "20090921" sDesc = "Rabbi Ed Rothman and Chris Heeb discuss repentance" Case "20090914" sDesc = "Rabbi Ed Rothman talks with Chris Heeb about the Prophet Joel" Case "20090907" sDesc = "Minnesota Christian Chronicle editor Scott Noble" Case "20090901" sDesc = "More discussions with Reuvon Duron talks to Chris and Larry about Israel" Case "20090831" sDesc = "Reuvon Duron talks to Chris and Larry about Israel" Case "20090824" sDesc = "Pastor Chris Monson" Case "20090817" sDesc = "Discussions with Guest Saul Selby" Case "20090810" sDesc = "Conversations with Tom Berkowitz and Pastor Rick Ensrud" Case "20090803" sDesc = "Week 6 on the Book of Romans with Chris Heeb and Rabbi Ed Rothman" Case "20090727" sDesc = "Week 5 on the Book of Romans with Chris Heeb and Rabbi Ed Rothman" Case "20090720" sDesc = "Week 4 on the Book of Romans with Chris Heeb and Rabbi Ed Rothman" Case "20090713" sDesc = "Week 3 on the Book of Romans with Chris Heeb and Rabbi Ed Rothman" Case "20090623" sDesc = "More Conversation between Ian Taylor and Chris Heeb" Case "20090622" sDesc = "Conversation between Ian Taylor and Chris Heeb" Case "20090511" sDesc = "Faith Roots" Case "20090504" sDesc = "Faith Roots" Case "20090497" ' from Friday 20090501 - Friday 20090501 sDesc = "Faith Roots" Case "20090427" sDesc = "Faith Roots" Case "20090420" sDesc = "Faith Roots" Case "20090413" sDesc = "Chris Heeb and Larry Kutzler interview three Jewish believers on how their faith in Yeshua/Jesus has changed their lives and their focus as Jews." Case "20090406" sDesc = "Faith Roots" Case "20090399" ' from Wednesday 20090401 - Friday 20090403 sDesc = "Faith Roots - Joe Senser" Case "20090330" sDesc = "Faith Roots - Joe Senser" Case "20090323" sDesc = "Faith Roots guests Steve Schwartz and Clayton Tanner" Case "20090316" sDesc = "Faith Roots - Tom Parrish" Case "20090309" sDesc = "Exodus Conspiracy movie" Case "20090302" sDesc = "Chris Heeb and Larry Kutzler talk about the seamlessness of the gospel, and how God is the same God in the New Testament as He is in the Old Testament. " Case "20090223" sDesc = "Chris Heeb and Larry Kutzler interview three Jewish believers on how their faith in Yeshua/Jesus has changed their lives and their focus as Jews." Case "20090216" sDesc = "Pastor Tom Gilman talks about why as a Lutheran pastor he has an emphasis in his ministry focused toward Israel." Case "20090209" sDesc = "Faith Roots" Case "20090202" sDesc = "Faith Roots" Case "20090126" sDesc = "Thom Berkowitz" Case "20090119" sDesc = "Ron King" Case "20071001" sDesc = "End Times - week 5" Case "20070924" sDesc = "End Times - week 4" Case "20070917" sDesc = "End Times - week 3" Case "20070910" sDesc = "End Times - week 2" Case "20070903" sDesc = "End Times - week 1" Case "20070312" sDesc = "Daniel Series - week 6" Case "20070305" sDesc = "Daniel Series - week 5" Case "20070298" ' 20070301 - 3 sDesc = "Daniel Series - week 4" Case "20070226" sDesc = "Daniel Series - week 4" Case "20070219" sDesc = "Daniel Series - week 3" Case "20070212" sDesc = "Daniel Series - week 2" Case "20070205" sDesc = "Daniel Series - week 1" Case "20061218" sDesc = "" Case "20061106" sDesc = "Avi Lipkin speaks at the 2006 GNFI Annual Meeting about Jews and Christians working together for Israel, and also the spread of Muslim influence in America and Europe. 11 November 2006" Case "20060724" sDesc = "Romans Series - week 6" Case "20060717" sDesc = "Romans Series - week 5" Case "20060710" sDesc = "Romans Series - week 4" Case "20060703" sDesc = "Romans Series - week 3" Case "20060626" sDesc = "Romans Series - week 2" Case "20060619" sDesc = "Romans Series - week 1" Case "20060299" ' from 20060301 - 20060303 sDesc = "Understanding God's feasts - week 2" Case "20060227" sDesc = "Understanding God's feasts - week 2" Case "20060220" sDesc = "Understanding God's feasts - week 1" Case "20060130" ' for example only sDesc = "Understanding God's covenants - week 3" Case "20060199" ' from 20060201 - 20060203, for example only sDesc = "Understanding God's covenants - week 3" Case "20060116" sDesc = "Understanding God's covenants - week 3" Case "20060109" sDesc = "Understanding God's covenants - week 2" Case "20060102" sDesc = "Understanding God's covenants - week 1" Case "20050822" sDesc = "Hebrews Series - week 5" Case "20050815" sDesc = "Hebrews Series - week 4" Case "20050808" sDesc = "Hebrews Series - week 3" Case "20050801" sDesc = "Hebrews Series - week 2" Case "20050725" sDesc = "Hebrews Series - week 1" Case "20050101" sDesc = "" Case "20010707" ' sample sDesc = "Understanding God's feasts - week 1" Case "20010704" ' sample sDesc = "Understanding God's covenants - week 1" Case Else sDesc = "" End Select GetDescription = sDesc End Function Function GetCitySitesDescription(strKey) Dim sDesc Select Case strKey Case "20070101" sDesc = "Chris Heeb and Thom Berkowitz discuss replacement theology. They are interviewed by Jan Markell on the Understanding the Times radio show." Case "20061218" sDesc = "Chris Heeb shares about the Jewishness of Christmas on CitySites Radio." Case "20061106" sDesc = "Avi Lipkin speaks at the 2006 GNFI Annual Meeting about Jews and Christians working together for Israel, and also the spread of Muslim influence in America and Europe. 11 November 2006" Case "20060710" sDesc = "Thom Berkowitz shares about Messianic Judaism and the Jewish roots of Christianity on CitySites Radio. Thom is a Good News for Israel board member." Case Else sDesc = "" End Select GetCitySitesDescription = sDesc End Function %>