%
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
%>