Imports System

Partial Class videoClass
    Inherits System.Web.UI.Page
    Public VidId As String = ""
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim MetaDesc As String = "Please help thousands of children with special needs by voting for Friendship Circle at http://voteFC.com Your vote is worth $1 MILLION!!!"
        If Not Helper.getQueryString(Request, "id", "") = "" Then
            VidId = Request.QueryString("id")
            Select Case VidId
                Case "QZYPT3nQQac"
                    MetaDesc = "Friendship Circle's big plans if we win the million."
                Case "NwPt-hR1__4"
                    MetaDesc = "What I did today to help Friendship Circle win a  million."
                Case "W2BwvlYAX-w"
                    MetaDesc = "Help Jacob get out the vote and win One Million Dollars For Friendship Circle!"
                Case "vaaxNuH51J0"
                    MetaDesc = "Page Hemmis, Marlee Matlin, Max Weinberg and Jon Voight Talk About Friendship Circle"
                Case "juGJq85kSwE"
                    MetaDesc = "This video highlights the great attitude our Friendship Circle volunteers have towards children who have special needs."
                Case "47AoWfgcBTU"
                    MetaDesc = "Bob Saget talks about Friendship Circle"
                Case "lLHgisJoTfY"
                    MetaDesc = "NBC Nightly News comes to Friendship Circle for a first hand look at what the buzz is all about."
                Case "tPzwVce_T3E"
                    MetaDesc = "Discover the Friendship Circle's State-of-the-art facility, and the everlasting friendships created."
                Case "Ony1kKgAZCo"
                    MetaDesc = "Friendship Circle put on a show at half time of the Detroit Pistons Game"
                Case Else
                    MetaDesc = "Please help thousands of children with special needs by voting for Friendship Circle at http://voteFC.com Your vote is worth $1 MILLION!!!"
            End Select
        End If
        Dim hm As New HtmlMeta()
        Dim head As HtmlHead = CType(Page.Header, HtmlHead)
        hm.Name = "description"
        hm.Content = MetaDesc
        Head1.Controls.Add(hm)
    End Sub
End Class