or
protected override void LoadPage(){ // make youtube channel channel = new YouTubeChannel(PMSettings.GetPortalSetting("channel"), PMSettings.GetPortalSetting("devkey"), PMSettings.GetModuleSetting("pagesize", 6)); if (!IsPostBack) { // request video feed feed = channel.Search("", 1); // configure list view ListViewVideos.PageSize = feed.PageSize; ListViewVideos.VirtualItemCount = feed.TotalResults; // data bind ListViewVideos.DataSource = feed.Entries; ListViewVideos.DataBind(); }}protected void ListViewVideos_PageIndexChanged(object sender, Telerik.Web.UI.RadListViewPageChangedEventArgs e){ // request video feed feed = channel.Search("", e.NewPageIndex + 1); // configure list view ListViewVideos.PageSize = feed.PageSize; ListViewVideos.VirtualItemCount = feed.TotalResults; // data bind ListViewVideos.DataSource = feed.Entries; ListViewVideos.DataBind();}<telerik:RadRotator ID="dtMessage" runat="server" PauseOnMouseOver ="false" FrameDuration="1" Height="55px" ItemHeight="55px" Width="737px" ItemWidth="737px">
<ItemTemplate>
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr><td align="center" valign="middle" ><asp:Label ID="lblMsg" runat="server"></asp:Label></td></tr>
<tr><td align="center" valign="middle"><asp:Label ID="lblMsg2" runat="server"></asp:Label></td></tr>
</table>
<asp:HiddenField ID="hldMsg1" Value ='<%# Eval("Msg1") %>' runat="server" />
<asp:HiddenField ID="hldMsg2" Value ='<%# Eval("Msg2") %>' runat="server" />
<asp:HiddenField ID="hldFontFace" Value ='<%# Eval("FontFace") %>' runat="server" />
<asp:HiddenField ID="hldFontSize" Value ='<%# Eval("FontSize") %>' runat="server" />
<asp:HiddenField ID="hldFontColor" Value ='<%# Eval("FontColor") %>' runat="server" />
<asp:HiddenField ID="hldDirection" Value ='<%# Eval("MessageDirection") %>' runat="server" />
</ItemTemplate>
</telerik:RadRotator>dtMessage.DataSource = objDS.Tables(5)dtMessage.DataBind()Dim strColor As String = objDS.Tables(5).Rows(0)("FontColor").ToStringDim strDirection As String = objDS.Tables(5).Rows(0)("MessageDirection").ToString Dim intMsgSpeed As Integer = objDS.Tables(5).Rows(0)("MessageSpeed").ToStringIf strDirection = "Down" ThendtMessage.ScrollDirection = RotatorScrollDirection.Down ElseIf strDirection = "Up" Then dtMessage.ScrollDirection = RotatorScrollDirection.Up ElseIf strDirection = "Left" Then dtMessage.ScrollDirection = RotatorScrollDirection.Left ElsedtMessage.ScrollDirection = RotatorScrollDirection.Right End IfIf strDirection = "Up" Or strDirection = "Down" Then dtMessage.ScrollDuration = intMsgSpeed * 1000Else dtMessage.ScrollDuration = intMsgSpeed * 10000End If