sub StreamSession1_SessionFailed()
  pstreaminfo1.InnerText = ""
end sub

sub StreamSession1_StreamPlaying()
  dim si,CameraInfo

  set si = StreamSession1.StreamInfo
  set CameraInfo = server.GetServiceInfo(si.ID)

  if StreamSession1.LiveStream then 
    pstreaminfo1.InnerText = CameraInfo.Description
  else
    pstreaminfo1.InnerText = CameraInfo.Description + " " + CStr(StreamSession1.Time)
  end if
end sub

sub StreamSession1_PlaybackEnded()
  pstreaminfo1.InnerText = "Playback ended"
end sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''

'sub StreamSession2_SessionFailed()
'  pstreaminfo2.InnerText = ""
'end sub

'sub StreamSession2_StreamPlaying()
'  dim si,CameraInfo

'  set si = StreamSession2.StreamInfo
'  set CameraInfo = server.GetServiceInfo(si.ID)

'  if StreamSession2.LiveStream then 
'    pstreaminfo2.InnerText = CameraInfo.Description
'  else
'    pstreaminfo2.InnerText = CameraInfo.Description + " " + CStr(StreamSession2.Time)
'  end if
'end sub

'sub StreamSession2_PlaybackEnded()
'  pstreaminfo2.InnerText = "Playback ended"
'end sub