<% OpenConnection if Country <> "N/A" then OpenRecordSet("Select * from StreamsDB Where Country = '"&Country&"' Order by ChannelName") Home = False end if if Category <> "N/A" then OpenRecordSet("Select * from StreamsDB Where Category = '"&Category&"' Order by ChannelName") Home = False end if if ID <> "N/A" then OpenRecordSet("Select * from StreamsDB Where ID = "&ID&" ") Home = False end if if ID <> "N/A" then Country = rs("Country") %>

<%if rs("StreamURL") = "" or isNull(rs("StreamURL")) then%> In order to view this TV Stream kindly visit the channels website. <%else%> " showpositioncontrols="1" enablecontextmenu="0" displaysize="1" name="mediaplayer1" autostart="1" showcontrols="1" loop="0" transparentstart="1" pluginspage="http://www.microsoft.com/Windows/MediaPlayer/" type="application/x-mplayer2"/> <%end if%>

<%end if if Home = false then %>
<% do until rs.eof if isNull(rs("StreamURL")) and isNull(rs("WebSite")) then Response.Write "error" end if if rs("StreamURL") = "" or IsNull(rs("StreamURL")) = True then StreamBG = "#3c969e" if Right(rs("Website"),1) = "'" then Website = Left(rs("Website"),Len(rs("Website"))-1) else Website = rs("Website") end if StreamLink = "Web" else StreamBG = "#ef1451" StreamLink = "" end if %> <% rs.movenext loop CloseRecordSet %>

Stream	Channel	Fav.	Information
<%=StreamLink%>	"> <% if Left(rs("ChannelName"),1) = "." then ChannelName = Right(rs("ChannelName"),Len(rs("ChannelName"))-1) else ChannelName = rs("ChannelName") end if Response.Write ChannelName %>	')">	<%=rs("Details")%>

<%if ID <> "N/A" then%>

Watch <%=Country%> TV Channels
<%if Website <> "" then%>
More info about the Television of <%=ChannelName%> can be found on the website : <%=ChannelName%> <%end if%> <%end if%>

<% else %>


<% OpenRecordSet("Select Top 1 ConfigData from ConfigDB where ID = 2") if not(rs.eof and rs.bof) then ConfigData = rs("ConfigData") if ConfigData <> "" then ConfigData1 = Split(ConfigData,VbCrLf) if Ubound(ConfigData1) = 0 then TVLink = ConfigData1(0) else for k = 1 to 20 TVLink = ConfigData1(GetRndNumber(Ubound(ConfigData1)+1)-1) if TVLink <> "" then exit for next end if end if end if CloseRecordSet %> <% end if CloseConnection %>