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