<% Sub Content Response.Write( ContentText ) If DisplayVideo > 0 Then Response.Write( "

" ) Response.Write( ImageTitle ) Response.Write( VideoText ) %>
<% End If End Sub Dim ArticleId Dim ArticleText Dim ContentText Dim VideoArticleId, VideoId Dim ImageTitle Dim VideoText Dim VideoUrl Dim ErrNum Dim ObjArticle Dim FlowControl Dim DisplayVideo ArticleId = 20 ArticleText = ArticleWork( ArticleId, -1 ) ContentText = "

" & ArticleTitle & "

" & ArticleText DisplayVideo = 0 VideoArticleId = 0 VideoId = 0 VideoText = "" ImageTitle = "" VideoUrl = "" FlowControl = 1 Set ObjArticle = Server.CreateObject( "MathboxTools.Article" ) Do While FlowControl FlowControl = 0 VideoText = "

Invalid Article Identifier

" If Request( "Aid" ) = "" Then Exit Do If IsNumeric( Request( "Aid" ) ) = False Then Exit Do ArticleId = CLng( Request( "Aid" ) ) VideoText = "

Invalid Video Identifier

" If Request( "Vid" ) = "" Then Exit Do If IsNumeric( Request( "Vid" ) ) = False Then Exit Do VideoId = CLng( Request( "Vid" ) ) VideoText = "

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 = "

" & ObjArticle.LargeImageList.Record.Title & "

" VideoText = ObjArticle.LargeImageList.Record.Caption VideoUrl = ObjArticle.LargeImageList.Record.Path & "/" & ObjArticle.LargeImageList.Record.Name DisplayVideo = 1 Exit Do Loop Set ObjArticle = Nothing Template ArticleTitle, ArticleKeywords, ArticleMetaTags %>