<%
On Error Resume Next
Dim ErrorMessag
Dim TVTunerName
Dim TVChannelNum
Dim MsgEnd
Dim ChannelChanger
Set ChannelChanger = CreateObject("Unreal.TVChanger")
TVTunerName = ChannelChanger.GetDefaultTVTuner
if Err <> 0 or TVTunerName = "" then
MsgEnd = "."
ErrorMessage = "TV Tuner not found."
else
MsgEnd = " for " & TVTunerName
TVChannelNum = request.Form("TVChannel")
if TVChannelNum <> "" then
ChannelChanger.SwitchChannel(TVChannelNum)
if Err <> 0 then
ErrorMessage = "TV Tuner is not working properly."
end if
Set ChannelChanger = nothing
end if
end if
%>
TV remote control<% =MsgEnd%>