 |
A Father's Heart
Rick Burgess, from the Rick and Bubba show gave a powerful
message during the memorial service for his 2 year old son William
Bronner Burgess. That message was captured on DVD and is available
free of charge to anyone who would like a copy. Simply stop by one
of our upcoming live broadcasts or come by our studios:
125 S. Kingshighway
Sikeston, Missouri
DVD's will not be mailed. They must
be picked up in person.
|
| |
 |
Are you a member of the New Country Nation?
As a
member, you will be able to Text in your requests, learn about
upcoming contests, find out where we're gonna be at next, get
special member only coupons from local business and more! What are
you waiting for? Join now!!!
CLICK HERE TO JOIN! |
| |
Used By Permission |
2008 Rodeo
Entertainment Announced
Entertainment for this years 56th Annual Sikeston Jaycee
Bootheel Rodeo has been announced. Here's whose coming:
Wed. August 6th - Little Big Town
Thur. August 7th - 38 Special
Fri. August 8th - Gary Allan
Sat. August 9th - Jason Aldean
Listen for your chance to win
tickets and meet and greet passes. New Country Nation members text
the word RODEO for more details.
|
| |
|
Listen to St. Louis Cardinal Baseball on B97.9! |
| SUN |
MON |
TUE |
WED |
THU |
FRI |
SAT |
| 1
PIT
1:15 |
2
PIT
7:15 |
3
WSH
6:10
|
4
WSH
6:10 |
5
WSH
6:10 |
6
HOU
7:05 |
7
HOU
6:05 |
| 8
HOU
1:05 |
9
|
10
CIN
6:10 |
11
CIN
6:10 |
12
CIN
6:10 |
13
PHI
7:15 |
14
PHI
2:55 |
| 15
PHI
1:15 |
16
|
17
KC
7:15 |
18
KC
7:15 |
19
KC
1:15 |
20
BOS
6:05 |
21
BOS
2:55 |
| 22
BOS
12:35 |
23
|
24
DET
6:05 |
25
DET
6:05 |
26
DET
12:05 |
27
KC
7:10 |
28
KC
6:10 |
| 29
KC
1:10 |
30
NYM
6:05 |
|
|
|
|
|
|
| |
 |
The Pen Of The Day
Send us your company's ink pen
and every weekday morning we will randomly choose a pen from the
holder. If your company's pen is chosen, we will talk about your
business ALL DAY LONG as or Pen Of The Day! To submit your pen,
bring it to our studios or mail it to:
B97.9
P.O. Box 907
Sikeston, MO 63801
Your business could get free
advertising by being the Pen Of The Day!
|
| |
 |
|
|
|
|
 |
Got Gas?
We do! If you are a Rhodes 101 Advantages Member, listen every
Friday during your lunch hour for Jim Morris to tell you when to
call in. Jim will take as many callers as he can in 101 seconds.
Those qualifiers will be entered into a drawing at the end of the
month for $50 in free gas from Rhodes 101 Stops! |
 <%
Response.Expires = -1
' =========== RSS2HTML.ASP for ASP/ASP.NET ==========
' copyright 2005-2008 (c) www.Bytescout.com
' version 1.25, 8 February 2008
' =========== configuration =====================
' ##### URL to RSS Feed to display #########
URLToRSS = "http://www.cmt.com/rss/news/latest.jhtml"
' ##### max number of displayed items #####
MaxNumberOfItems = 7
' ##### Main template constants
MainTemplateHeader = ""
' #####
' ######################################
Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword
Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this 2nd keyword too
' #################################
' ##### Item template.
' ##### {LINK} will be replaced with item link
' ##### {TITLE} will be replaced with item title
' ##### {DESCRIPTION} will be replaced with item description
' ##### {DATE} will be replaced with item date and time
' ##### {COMMENTSLINK} will be replaced with link to comments (if you use RSS feed from blog)
' ##### {CATEGORY} will be replaced with item category
ItemTemplate = "{TITLE}
{DESCRIPTION} | "
' ##### Error message that will be displayed if not items etc
ErrorMessage = "Error has occured while trying to process " &URLToRSS & "
Please contact web-master"
' ================================================
Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
xmlHttp.Open "GET", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = False
xmlDOM.validateOnParse = False
xmlDom.resolveExternals = False
If not xmlDOM.LoadXml(RSSXML) Then
ErrorMessage = "Can not load XML:" & vbCRLF & xmlDOM.parseError.reason & vbCRLF & ErrorMessage
End If
Set xmlHttp = Nothing ' clear HTTP object
Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS
RSSItemsCount = RSSItems.Length-1
' if not - ..
entries, then try to get ..
if RSSItemsCount = -1 Then
Set RSSItems = xmlDOM.getElementsByTagName("entry") ' collect all "entry" (atom format) from downloaded RSS
RSSItemsCount = RSSItems.Length-1
End If
Set xmlDOM = Nothing ' clear XML
' writing Header
if RSSItemsCount > 0 then
Response.Write MainTemplateHeader
End If
j = -1
For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
If RSSLink = "" Then
If child.Attributes.length>0 Then
RSSLink = child.GetAttribute("href")
if (RSSLink <> "") Then
if child.GetAttribute("rel") <> "alternate" Then
RSSLink = ""
End If
End If
End If ' if has attributes
If RSSLink = "" Then
RSSlink = child.text
End If
End If
case "description"
RSSdescription = child.text
case "content" ' atom format
RSSdescription = child.text
case "published"' atom format
RSSDate = child.text
case "pubdate"
RSSDate = child.text
case "comments"
RSSCommentsLink = child.text
case "category"
Set CategoryItems = RSSItem.getElementsByTagName("category")
RSSCategory = ""
for each categoryitem in CategoryItems
if RSSCategory <> "" Then
RSSCategory = RSSCategory & ", "
End If
RSSCategory = RSSCategory & categoryitem.text
Next
End Select
next
' now check filter
If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then
j = J+1
if J 0 then
Response.Write MainTemplateFooter
else
Response.Write ErrorMessage
End If
' Response.End ' uncomment this for use in on-the-fly output
%> |
| |
|
EEO Information
© 2008 KBXB-FM and Withers
Broadcasting Companies |
|
|
<%
DIM xtoday, xtime
xtoday=WeekdayName(weekday(date))
xtime=hour(now())
if xtoday="Monday" then
if xtime >= 0 then
if xtime < 5 then%>
<%
end if
end if
end if
if xtoday="Monday" then
if xtime >= 5 then
if xtime < 9 then%>
<%
end if
end if
end if
if xtoday="Monday" then
if xtime >= 9 then
if xtime < 14 then%>
<%
end if
end if
end if
if xtoday="Monday" then
if xtime >= 14 then
if xtime < 18 then%>
<%
end if
end if
end if
if xtoday="Monday" then
if xtime >= 18 then
if xtime < 24 then%>
<%
end if
end if
end if
%>
<%
if xtoday="Tuesday" then
if xtime >= 0 then
if xtime < 5 then%>
<%
end if
end if
end if
if xtoday="Tuesday" then
if xtime >= 5 then
if xtime < 9 then%>
<%
end if
end if
end if
if xtoday="Tuesday" then
if xtime >= 9 then
if xtime < 14 then%>
<%
end if
end if
end if
if xtoday="Tuesday" then
if xtime >= 14 then
if xtime < 18 then%>
<%
end if
end if
end if
if xtoday="Tuesday" then
if xtime >= 18 then
if xtime < 24 then%>
<%
end if
end if
end if
if xtoday="Wednesday" then
if xtime >= 0 then
if xtime < 5 then%>
<%
end if
end if
end if
if xtoday="Wednesday" then
if xtime >= 5 then
if xtime < 9 then%>
<%
end if
end if
end if
if xtoday="Wednesday" then
if xtime >= 9 then
if xtime < 14 then%>
<%
end if
end if
end if
if xtoday="Wednesday" then
if xtime >= 14 then
if xtime < 18 then%>
<%
end if
end if
end if
if xtoday="Wednesday" then
if xtime >= 18 then
if xtime < 24 then%>
<%
end if
end if
end if
if xtoday="Thursday" then
if xtime >= 0 then
if xtime < 5 then%>
<%
end if
end if
end if
if xtoday="Thursday" then
if xtime >= 5 then
if xtime < 9 then%>
<%
end if
end if
end if
if xtoday="Thursday" then
if xtime >= 9 then
if xtime < 14 then%>
<%
end if
end if
end if
if xtoday="Thursday" then
if xtime >= 14 then
if xtime < 18 then%>
<%
end if
end if
end if
if xtoday="Thursday" then
if xtime >= 18 then
if xtime < 24 then%>
<%
end if
end if
end if
if xtoday="Friday" then
if xtime >= 0 then
if xtime < 5 then%>
<%
end if
end if
end if
if xtoday="Friday" then
if xtime >= 5 then
if xtime < 9 then%>
<%
end if
end if
end if
if xtoday="Friday" then
if xtime >= 9 then
if xtime < 14 then%>
<%
end if
end if
end if
if xtoday="Friday" then
if xtime >= 14 then
if xtime < 18 then%>
<%
end if
end if
end if
if xtoday="Friday" then
if xtime >= 18 then
if xtime < 24 then%>
<%
end if
end if
end if
if xtoday="Saturday" then
if xtime >= 0 then
if xtime < 6 then%>
<%
end if
end if
end if
if xtoday="Saturday" then
if xtime >= 6 then
if xtime < 9 then%>
<%
end if
end if
end if
if xtoday="Saturday" then
if xtime >= 9 then
if xtime < 14 then%>
<%
end if
end if
end if
if xtoday="Saturday" then
if xtime >= 14 then
if xtime < 19 then%>
<%
end if
end if
end if
if xtoday="Saturday" then
if xtime >= 19 then
if xtime < 24 then%>
<%
end if
end if
end if
if xtoday="Sunday" then
if xtime >= 0 then
if xtime < 8 then%>
<%
end if
end if
end if
if xtoday="Sunday" then
if xtime >= 8 then
if xtime < 10 then%>
<%
end if
end if
end if
if xtoday="Sunday" then
if xtime >= 10 then
if xtime < 12 then%>
<%
end if
end if
end if
if xtoday="Sunday" then
if xtime >= 12 then
if xtime < 18 then%>
<%
end if
end if
end if
if xtoday="Sunday" then
if xtime >= 18 then
if xtime < 24 then%>
<%
end if
end if
end if
%>
|
