AdRotator con fechas de visualización

[Bravenap]

Bueno, por fin lo he solucionado. He cambiado radicalmente la lógica del funcionamiento del control personalizado y he hecho uso de base de datos y procedimientos almacenados en lugar de XML, aunque esto último, podría haber seguido siendo igual.

Primero el control, que en lugar de derivar de un AdRotator deriva de PlaceHolder, con un AdRotator como clase privada. No he hechos comentarios al código por lo que si alguien tiene alguna duda... que pregunte, por favor.

cpersAdRotatorFlash.vb

Código vb:

Imports System.ComponentModel
Imports System.Data
Imports System.Data.SqlClient
 
Namespace ControlesPersonalizados
    ''' <summary>
    ''' Control personalizado para soportar Flash y fechas de visualización en un control AdRotator.
    ''' </summary>
    ''' <remarks></remarks>
    <DefaultProperty("Text"), _
ToolboxData("<{0}:AdRotatorFlash runat=""server""></{0}:AdRotatorFlash>")> _
Public Class AdRotatorFlash
        Inherits System.Web.UI.WebControls.PlaceHolder
 
        Private _maxWidth As Unit
        Private _keywordFilter As String
        Public Property MaxWidth() As Unit
            Get
                Return _maxWidth
            End Get
            Set(ByVal value As Unit)
                _maxWidth = value
            End Set
        End Property
        Public Property KeywordFilter() As String
            Get
                Return _keywordFilter
            End Get
            Set(ByVal value As String)
                _keywordFilter = value
            End Set
        End Property
 
        Private Class tmpAdRotator
            Inherits AdRotator
            Private _e As System.Web.UI.WebControls.AdCreatedEventArgs
            Public ReadOnly Property EventArgs() As System.Web.UI.WebControls.AdCreatedEventArgs
                Get
                    Return _e
                End Get
            End Property
 
            Protected Overrides Sub OnAdCreated(ByVal e As System.Web.UI.WebControls.AdCreatedEventArgs)
                _e = e
            End Sub
 
        End Class
 
        Private Function DTBanners(ByVal Keyword As String, Optional ByVal IsDefault As Boolean = False) As DataTable
            Dim da As New SqlDataAdapter("PA_Anuncios", conSQL)
            da.SelectCommand.CommandType = CommandType.StoredProcedure
            da.SelectCommand.Parameters.AddWithValue("@keyword", Keyword)
            da.SelectCommand.Parameters.AddWithValue("@isDefault", IsDefault.GetHashCode)
            Dim dt As New DataTable
            da.Fill(dt)
            If dt.Rows.Count = 0 And IsDefault Then
                dt = DTBanners(Keyword, True)
            End If
            Return dt
        End Function
 
        Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
            Dim ar As New tmpAdRotator()
            Dim dt As DataTable = DTBanners(KeywordFilter)
            If dt.Rows.Count <> 0 Then
                ar.DataSource = dt
                ar.DataBind()
                ar.Target = "_blank"
                Me.Controls.Add(ar)
                Dim Height As Unit = CInt(ar.EventArgs.AdProperties("Height"))
                Dim Width As Unit = CInt(ar.EventArgs.AdProperties("Width"))
                If MaxWidth.ToString <> "" Then
                    If ar.EventArgs.AdProperties("Width") > MaxWidth.Value Then
                        Height = (MaxWidth.Value * Height.Value / Width.Value) - 5
                        Width = MaxWidth
                    End If
                End If
                ar.Target = _
                    IIf(String.Format("{0}", ar.EventArgs.AdProperties("Target")) <> "", _
                    ar.EventArgs.AdProperties("Target"), "_blank")
                If ar.EventArgs.ImageUrl.ToLower.IndexOf(".swf") <> -1 Then
                    Dim StringFormat As StringBuilder = New StringBuilder("")
                    StringFormat.Append("<object type='application/x-shockwave-flash' data='{2}' width='{0}' height='{1}'>")
                    StringFormat.Append("<param name='movie' value='{2}' />")
                    StringFormat.Append("<img src='{2}' width='{0}' height='{1}' alt='Publicidad' />")
                    StringFormat.Append("</object>")
                    Dim OutPutString As StringBuilder = New StringBuilder()
                    OutPutString.AppendFormat(StringFormat.ToString, _
                        Width, _
                        Height, _
                        ResolveUrl(ar.EventArgs.ImageUrl))
                    writer.Write(OutPutString.ToString)
                Else
                    Me.Controls.Clear()
                    ar.Width = Width
                    ar.Height = Height
                    Me.Controls.Add(ar)
                    MyBase.Render(writer)
                End If
            End If
        End Sub
 
    End Class
End Namespace
 

Estructura de la tabla en SQL Server, "tblAnuncios":

Código TXT:

3   ID  int 4   0   
0   ImageUrl    nvarchar    400 0   
0   NavigateUrl nvarchar    400 0   
0   AlternateText   nvarchar    400 1   
0   Keyword nvarchar    125 1   
0   Impressions int 4   1   
0   Width   int 4   1   
0   Height  int 4   1   
0   StartDate   smalldatetime   4   1   
0   EndDate smalldatetime   4   1   
0   Target  nvarchar    50  1   
0   IsDefault   bit 1   0
 

Procedimiento almacenado en SQL Server, "PA_Anuncios":

Código SQL:

ALTER PROCEDURE PA_Anuncios
(
    @keyword nvarchar(125),
    @isDefault bit = 0
)
AS
BEGIN
    SELECT * FROM tblAnuncios
    WHERE 
        Keyword = @keyword
        AND
        ISNULL(StartDate,0) <= CASE WHEN StartDate IS NULL THEN ISNULL(StartDate,0) ELSE GETDATE() END
        AND
        ISNULL(EndDate,0) >= CASE WHEN EndDate IS NULL THEN ISNULL(EndDate,0) ELSE DATEADD(DAY,-1, GETDATE()) END
        AND
        IsDefault = @isDefault
END
 

Y finalmente, la inserción del control en el HTML:

Código HTML:

<ControlesPersonalizados:AdRotatorFlash ID="AdRotatorFlash1" runat="server" KeywordFilter="rotatorioMenu" MaxWidth="190" />
 

¿Pegas y/o sugerencias?

Un saludo.