% Sub Content Response.Write( ImageTitle ) Response.Write( ContentText ) If VideoUrl <> "" Then %>
Invalid Article Identifier
" If Request( "Aid" ) = "" Then Exit Do If IsNumeric( Request( "Aid" ) ) = False Then Exit Do ArticleId = CLng( Request( "Aid" ) ) ContentText = "Invalid Video Identifier
" If Request( "Vid" ) = "" Then Exit Do If IsNumeric( Request( "Vid" ) ) = False Then Exit Do VideoId = CLng( Request( "Vid" ) ) ContentText = "Article Not Available
" ErrNum = ObjArticle.SelectById( ArticleId ) If ErrNum Then Exit Do If ObjArticle.Record.IsEnabled = 0 Then Exit Do If ObjArticle.LargeImageList.TotalCount( ArticleId ) = 0 Then Exit Do ErrNum = ObjArticle.LargeImageList.SelectById( VideoId ) If ErrNum Then Exit Do ErrNum = ObjArticle.LargeImageList.SelectById( VideoId ) ImageTitle = "