<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim GF_RSSFEED Dim GF_RSSFEED_numRows Set GF_RSSFEED = Server.CreateObject("ADODB.Recordset") GF_RSSFEED.ActiveConnection = MM_GF_STRING GF_RSSFEED.Source = "SELECT SermonID, SermonDate, SermonFile, SermonScripture, SermonSeries, SermonSpeaker, SermonOccasion, SermonTitle FROM gf_sermon.sermondb ORDER BY SermonDate DESC" GF_RSSFEED.CursorType = 0 GF_RSSFEED.CursorLocation = 2 GF_RSSFEED.LockType = 1 GF_RSSFEED.Open() GF_RSSFEED_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 GF_RSSFEED_numRows = GF_RSSFEED_numRows + Repeat1__numRows %> <% Response.ContentType = "text/xml" Function ApplyXMLFormatting(strInput) strInput = Replace(strInput,"&", "&") strInput = Replace(strInput,"'", "'") strInput = Replace(strInput,"""", """) strInput = Replace(strInput, ">", ">") strInput = Replace(strInput,"<","<") ApplyXMLFormatting = strInput End Function Function RssDate(olddate, timezone) 'If olddate is not a valid date, the current system time will be used 'timezone must be specified as + or - 4 digit value (HHMM) (e.g. +0800, -0500) 'If timezone is omitted, GMT will be used 'If timezone is set as "no", the time portion of RssDate will be omited If isdate(olddate) = False Then olddate = Now() RssDateDayName=mid(WeekdayName(Weekday(olddate)),1,3) & Chr(44) & Chr(32) if len (day(olddate)) = 1 Then RssDateDay = "0" & day(olddate) & chr(32) Else RssDateDay=day(olddate) & Chr(32) End If RssDateMonth=mid(MonthName(Month(olddate)),1,3) & Chr(32) RssDateYear=mid(year(olddate),3,2) & Chr(32) if len (hour(olddate)) = 1 Then RssDateHour = "0" & hour(olddate) & chr(58) Else RssDateHour=hour(olddate) & Chr(58) End If if len (minute(olddate)) = 1 Then RssDateMinute = "0" & minute(olddate) & chr(58) Else RssDateMinute=minute(olddate) & Chr(58) End If if len (second(olddate)) = 1 Then RssDateSecond = "0" & second(olddate) & chr(32) Else RssDateSecond=second(olddate) & Chr(32) End If if timezone = "no" Then RssDateHour = "" RSSDateMinute = "" RssDateSecond = "" RssDateTimeZone = "" ElseIf timezone <> "" then RssDateTimeZone = timezone Else RssDateTimeZone = "GMT" End If RssDate= RssDateDayName & RssDateDay & RssDateMonth & RssDateYear & RssDateHour & RssDateMinute & RssDateSecond & RssDateTimeZone End Function %> http://gracefellowshipperth.com/ Welcome to the Grace Fellowship (Perth, Western Australia) Podcast. May God bless you as you listen to His Word expounded.<br /> New sermons are usually posted within twenty-four hours of the service. en-us Copyright <%=year(now())%> Grace Fellowship Perth <%=RssDate("","-0500")%> webmaster@gracefellowshipperth.com 60 Monday, Tuesday, Wednesday, Thursday, Friday http://gracefellowshipperth.com/ http://gracefellowshipperth.com/images/gf-sermon-podcast.png 144 144 Welcome to the Grace Fellowship (Perth, Western Australia) Podcast. May God bless you as you listen to His Word expounded. <%=year(now())%> Bible,Christ,Jesus,church,scriptures,grace,fellowship,Maylands,Perth,Western,Australia,WA,salvation,truth Religion & Spirituality/Christianity webmaster@gracefellowshipperth.org Grace Fellowship Perth Grace Fellowship Perth clean Bible,Christ,Jesus,church,scriptures,grace,fellowship,Maylands,Perth,Western,Australia,WA,salvation,truth Grace Fellowship's weekly sermon podcast of expository sermons from Perth, Western Australia. Welcome to the Grace Fellowship (Perth, Western Australia) Podcast. May God bless you as you listen to His Word expounded. <% While ((Repeat1__numRows <> 0) AND (NOT GF_RSSFEED.EOF)) %> http://gracefellowshipperth.com/listenfull.asp?id=<%=(GF_RSSFEED.Fields.Item("SermonID").Value)%> <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonScripture").Value)%> webmaster@gracefellowshipperth.com (Grace Fellowship Perth) <%=RssDate((GF_RSSFEED.Fields.Item("SermonDate").Value),"no")%>11:30:00 +0800 Date: <%=RssDate((GF_RSSFEED.Fields.Item("SermonDate").Value),"no")%><br /> Speaker: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonSpeaker").Value)%><br /> Series: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonSeries").Value)%><br /> Scripture: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonScripture").Value)%><br /> Occasion: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonOccasion").Value)%> " type="audio/mpeg" bitrate="64" samplingrate="44.1" channels="1" /> clean A sermon by <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonSpeaker").Value)%> on <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonScripture").Value)%>. <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonSpeaker").Value)%> Date: <%=RssDate((GF_RSSFEED.Fields.Item("SermonDate").Value),"no")%>, Speaker: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonSpeaker").Value)%>, Series: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonSeries").Value)%>, Scripture: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonScripture").Value)%>, Occasion: <%=ApplyXMLFormatting(GF_RSSFEED.Fields.Item("SermonOccasion").Value)%> Bible,Christ,Jesus,church,scriptures,grace,fellowship,Maylands,Perth,Western,Australia,WA,salvation,truth " type="audio/mpeg" /> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 GF_RSSFEED.MoveNext() Wend %> <% GF_RSSFEED.Close() Set GF_RSSFEED = Nothing %>