<% Sub Content Response.Write( ImageTitle ) Response.Write( ContentText ) If VideoUrl <> "" Then %>
<% End If End Sub Dim ArticleId, VideoId Dim ImageTitle Dim ContentText Dim VideoUrl Dim ErrNum Dim ObjArticle Dim FlowControl ArticleId = 0 VideoId = 0 ImageTitle = "" VideoUrl = "" FlowControl = 1 Set ObjArticle = Server.CreateObject( "MathboxTools.Article" ) Do While FlowControl FlowControl = 0 ContentText = "

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

" & ObjArticle.LargeImageList.Record.Title & "

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