Partial Class ETG_ETGImageRotator
    Inherits System.Web.UI.UserControl

    Private mintImages As Integer
    Private mintImageWidth As Integer
    Private mintImageHeight As Integer
    Private mstrImageName As String

    <System.ComponentModel.Browsable(True)> _
    <System.ComponentModel.Category("Behavior")> _
    Public Property NumberOfImages() As Integer

        Get

            'Set default.
            If mintImages = 0 Then
                mintImages = 3
            End If

            'Get property.
            Return mintImages

        End Get

        Set(ByVal value As Integer)

            'Set property.
            mintImages = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
    <System.ComponentModel.Category("Behavior")> _
    Public Property ImageName() As String

        Get

            'Set default.
            If mstrImageName = "" Then
                mstrImageName = "~/images2/PIC_HOME_XX.jpg"
            End If

            'Get property.
            Return mstrImageName

        End Get

        Set(ByVal value As String)

            'Set property.
            mstrImageName = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
   <System.ComponentModel.Category("Behavior")> _
    Public Property ImageWidth() As Integer

        Get

            'Set default.
            If mintImageWidth = 0 Then
                mintImageWidth = 740
            End If

            'Get property.
            Return mintImageWidth

        End Get

        Set(ByVal value As Integer)

            'Set property.
            mintImageWidth = value

        End Set

    End Property

    <System.ComponentModel.Browsable(True)> _
<System.ComponentModel.Category("Behavior")> _
    Public Property ImageHeight() As Integer

        Get

            'Set default.
            If mintImageHeight = 0 Then
                mintImageHeight = 272
            End If

            'Get property.
            Return mintImageHeight

        End Get

        Set(ByVal value As Integer)

            'Set property.
            mintImageHeight = value

        End Set

    End Property

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        Dim intNumber As Integer
        Dim objRandom As Random

        objRandom = New Random

        'Get random number.
        intNumber = objRandom.Next(minValue:=1, maxValue:=Me.NumberOfImages + 1)

        'Set image.
        imgImage.Src = Replace(Me.ImageName, "XX", Right("0" & intNumber, 2))
        imgImage.Height = Me.ImageHeight
        imgImage.Width = Me.ImageWidth

	If intNumber = 1 Then
		lnkLink.Href= "/procedures/lasik"
	ElseIf intNumber = 2 Then
		lnkLink.Href= "/procedures/cataract"
	ElseIf intNumber = 3 Then
		lnkLink.Href= "/procedures/intraocular-lenses "
	ElseIf intNumber = 4 Then
		lnkLink.Href= "/procedures/routine-vision-care"
	End If

    End Sub

End Class