Imports System.Data Imports System.Web.Configuration Partial Class video Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim mContent As New marcClient Dim mBull As New marcContentUtil 'Dim dts As DataSet = mContent.SelectAllBlogsFromEpp_ContentOrderByDate 'Dim tRow As DataRow = dts.Tables(0).Rows(0) Dim mdts As DataSet = mBull.selectResourceBulletinBoardByID(Request.QueryString("vid")) dlVideo.Visible = False dlVideoHD.Visible = False pdf.Visible = False 'mp4, mpg, mov, wmv, pdf, and doc If mdts.Tables(0).Rows(0).Item("FileName").ToString.IndexOf("mov") > 1 Or mdts.Tables(0).Rows(0).Item("FileName").ToString.IndexOf("mp4") > 1 Or mdts.Tables(0).Rows(0).Item("FileName").ToString.IndexOf("wmv") > 1 Or mdts.Tables(0).Rows(0).Item("FileName").ToString.IndexOf("mpg") > 1 Then If mdts.Tables(0).Rows(0).Item("Aspect").ToString = "4:3" Then dlVideo.DataSource = mdts dlVideo.DataBind() dlVideo.Visible = True ElseIf mdts.Tables(0).Rows(0).Item("Aspect").ToString = "16:9" Then dlVideoHD.DataSource = mdts dlVideoHD.DataBind() dlVideoHD.Visible = True Else dlVideo.DataSource = mdts dlVideo.DataBind() dlVideo.Visible = True End If ElseIf mdts.Tables(0).Rows(0).Item("FileName").ToString.IndexOf("pdf") > 1 Then pdf.DataSource = mdts pdf.DataBind() pdf.Visible = True ElseIf mdts.Tables(0).Rows(0).Item("FileName").ToString.IndexOf("doc") > 1 Then Response.Redirect(WebConfigurationManager.AppSettings("WebSiteName") + "replicator_folders/10001/" + mdts.Tables(0).Rows(0).Item("RBBCategory").ToString + "/" & mdts.Tables(0).Rows(0).Item("FileName").ToString) End If d2Video.DataSource = mBull.selectResourceBulletinBoardByID(Request.QueryString("vid")) d2Video.DataBind() d3Video.DataSource = mBull.selectResourceBulletinBoardByID(Request.QueryString("vid")) d3Video.DataBind() Dim dts As DataSet = mBull.selectResourceBulletinBoardByID(Request.QueryString("vid")) 'Dim lblKeyword As New Label Dim KeywordValues As String KeywordValues = dts.Tables(0).Rows(0).Item(7).ToString Dim sites As String() = Nothing sites = KeywordValues.Split(New String() {"
"}, StringSplitOptions.None) Dim s As String Dim Finished As String For Each s In sites s = "" & s & "" Finished = Finished & s & "
" Next s lblKeyword.Text = Finished 'lblKeyword.Text = dts.Tables(0).Rows(0).Item(7).ToString Try Dim getContent As New marcContentUtil Dim dts2 As DataSet = getContent.SelectContentForDisplayByPageName() For i As Int16 = 0 To dts2.Tables(0).Rows.Count - 1 If dts2.Tables(0).Rows(i).Item(0).ToString = "Teaser" Then lblQuickTxt.Text = dts2.Tables(0).Rows(i).Item(1).ToString End If Next Catch ex As Exception End Try End Sub Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click Dim mLogOut As New marcUtiltiyLog mLogOut.logOut() Response.Redirect("login.aspx") End Sub End Class