<% dim pageTitle, pageHeader, meta1, meta2
pageTitle = "On The Air: Affiliates / The Damon Vickers Show"
'pageHeader = "On The Air: Affiliates"
metaDesc = ""
metaKey = "talk radio, shorting, selling short, Damon Vickers, financial talk radio, business talk radio, investment manager, money manager, stock broker, investment guru, Wall Street, New York Stock Exchange, NASDAQ, investment advice, NYSE, OTC, Buddhism" %>
[an error occurred while processing this directive]
<% if request.form("stateID") <> "" then
showDetails
else
showForm
end if
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub showForm
mySQL = "SELECT id, name FROM states WHERE id IN (SELECT DISTINCT stateID FROM affiliates WHERE affiliates.active = True) ORDER BY name"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open mySQL, conn, 3, 1, 1 %>
|
|
|
|
|
|
Listen
to the Damon Vickers Show live every
Monday through Friday from
5PM to 7PM EST right here!
<% if onTheAir = True then %>
<% end if %>
|
|
|
|
|
|
| Select
your state from the menu and we'll show you
exactly where and when to tune in! |
 |
|
 If
The Damon Vickers Show is NOT
available on your local radio station,
contact
your local station and demand that they
broadcast our show! |
| |
|
|
<% end sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sub showDetails
dim lineCounter
lineCounter = 1%>
Listen to the Damon Vickers Show live on:
| Station |
|
Tune To |
|
Region |
|
Air Time |
<% mySQL = "SELECT * FROM affiliates a, states s WHERE a.active = True AND a.stateID = s.id AND s.id = " & request.form("stateID")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open mySQL, conn, 3, 1, 1
Do While Not rs.EOF %>
">| <%= rs("callLetters") %> |
|
<%= rs("frequency") %> <%= rs("frequencyExt") %> |
|
<%= rs("market") %>, <%= rs("code") %> |
|
<%= rs("airtime") %> |
<% rs.MoveNext
lineCounter = lineCounter+1
Loop
rs.Close
set rs = Nothing %>
<% end sub %>
[an error occurred while processing this directive] 
