AJOUTER DES OPTIONS A ADROTATOR

' le fichier XML classique :
<Advertisements>
	<Ad>
		<ImageUrl>..\images\aleas\a0.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=40</NavigateUrl>
		<AlternateText>produits</AlternateText>
		<Keyword>prod</Keyword>
		<Impressions>100</Impressions>
	</Ad>
	<Ad>
		<ImageUrl>..\images\aleas\a1.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=41</NavigateUrl>
		<AlternateText>publications</AlternateText>
		<Keyword>publi</Keyword>
		<Impressions>100</Impressions>
	</Ad>
</Advertisements>

' version avec ajout personnalisé : on met un Titre puis enregistrer sous entree.xml


<Advertisements>
	<Ad>
		<ImageUrl>..\images\aleas\a0.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=40</NavigateUrl>
		<AlternateText>produits</AlternateText>
		<Keyword>prod</Keyword>
		<Impressions>100</Impressions>
		<Titre>titre un</Titre>
	</Ad>
	<Ad>
		<ImageUrl>..\images\aleas\a1.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=41</NavigateUrl>
		<AlternateText>publications</AlternateText>
		<Keyword>publi</Keyword>
		<Impressions>100</Impressions>
		<Titre>titre deux</Titre>
	</Ad>
</Advertisements>

' dans la page.aspx le rotator et un label pour recevoir le titre

<asp:AdRotator id="rtEntree" runat="server" CssClass="rtEntree" OnAdCreated="rotate_AdCreated"></asp:AdRotator>
<asp:label id="lblRotator" runat="server" CssClass="lblRotator"></asp:label>

'dans la page.vb

 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 ' adresse du fichier xml
rtEntree.AdvertisementFile = "rotate\entree.xml"

end sub

 Public Sub rotate_AdCreated(ByVal sender As System.Object, ByVal e As AdCreatedEventArgs) Handles rtEntree.AdCreated

        lblRotator.Text = e.AdProperties("Titre").ToString
	' on ajoute la fonction qui lit le texte

    End Sub