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