Add Rotator SWF Problem

[Muhammad Ahsin Saleem]

Hi EveryBody,

Well I need your help about the Add Rotator.
I want to set the Advertisement File property of the Add Rotator set to
an XML File which contains info about the Adds.

Now Problem is that it does not play the .swf files, but only .gif
files. Code I got from Internet is as follows:
<?xml version="1.0" encoding="utf-8" ?>
<Advertisements >

<Ad>
<ImageUrl>1.swf </ImageUrl>
<NavigateUrl www.google.com.pk </NavigateUrl>
<AlternateText> www.google.com. pk</AlternateText>
<Keyword>S</Keyword>
<Impressions>Fl ash Site</Impressions>
<Caption>The Elite News</Caption>
</Ad>

</Advertisements>

Kindly Help me to Solve this Problem.

Thanks in Advance.

[Mark Fitzpatrick]

Unforunately, the adrotator only serves up images that use the image tag.
You can't put a flash animation in there as it requires a completely
different set of HTML to be generated. You can't use this control to render
anything but a standard bitmap image.
--

Hope this helps,
Mark Fitzpatrick
Former Microsoft FrontPage MVP 199?-2006
"Muhammad Ahsin Saleem" <ah**********@g mail.comwrote in message
news:11******** *************@a 3g2000cwd.googl egroups.com...

Hi EveryBody,

Well I need your help about the Add Rotator.
I want to set the Advertisement File property of the Add Rotator set to
an XML File which contains info about the Adds.

Now Problem is that it does not play the .swf files, but only .gif
files. Code I got from Internet is as follows:
<?xml version="1.0" encoding="utf-8" ?>
<Advertisements >

<Ad>
<ImageUrl>1.swf </ImageUrl>
<NavigateUrl www.google.com.pk </NavigateUrl>
<AlternateText> www.google.com. pk</AlternateText>
<Keyword>S</Keyword>
<Impressions>Fl ash Site</Impressions>
<Caption>The Elite News</Caption>
</Ad>

</Advertisements>

Kindly Help me to Solve this Problem.

Thanks in Advance.

[Muhammad Ahsin Saleem]

Thanx Mark

Can u tell me about any other control build using the inheritance from
the orignal addrotator class?

I have one but that does not work well code for that Control is as
follows:
Imports System.Componen tModel
Imports System.Web.UI
Imports System.Web.UI.W ebControls
Imports System.Text
Imports System.Web
<DefaultPropert y("Text"), ToolboxData("<{ 0}:CAdRotator runat=" &
"""server"" " & "></{0}:CAdRotator> ")Public Class CAdRotator
Inherits System.Web.UI.W ebControls.AdRo tator
Private blnSWF As Boolean
Private strImgUrl As String
Private strNavUrl As String
Protected Overrides Sub Render(ByVal writer As
System.Web.UI.H tmlTextWriter)
If Me.blnSWF Then
Dim StringFormat As StringBuilder = New
StringBuilder(" <object
classid=""clsid :D27CDB6E-AE6D-11cf-96B8-444553540000"" ")

StringFormat.Ap pend("codebase= ""http://download.macrom edia.com/pub/shockwave/cabs/flash/swflash.cab#ver sion=6,0,29,0""
width={0} height={1}>")

StringFormat.Ap pend("classid=" "clsid:D27C DB6E-AE6D-11CF-96B8-444553540000""" )
StringFormat.Ap pend("<param name=""_cx"" value=""2646""
/>")
StringFormat.Ap pend("<param name=""_cy"" value=""2646""
/>")
StringFormat.Ap pend("<param name=""FlashVar s"" value=""""
/>")
StringFormat.Ap pend(" <param name=""movie"" value={2}>")
StringFormat.Ap pend(" <param name=""Src"" value={2}>")
StringFormat.Ap pend(" <param name=""WMode""
value=""Window" ">")
StringFormat.Ap pend(" <param name=""Play"" value=""-1"">")
StringFormat.Ap pend(" <param name=""Loop"" value=""-1"">")
StringFormat.Ap pend(" <param name=""Quality" "
value=""High""> ")
StringFormat.Ap pend(" <param name=""SAlign""
value=""LT"">")
StringFormat.Ap pend(" <param name=""Menu"" value=""-1"">")
StringFormat.Ap pend(" <param name=""Base"" value="""">")
StringFormat.Ap pend(" <param name=""AllowScr iptAccess""
value=""always" ">")
StringFormat.Ap pend(" <param name=""Scale""
value=""ExactFi t"">")
StringFormat.Ap pend(" <param name=""DeviceFo nt""
value=""0"">")
StringFormat.Ap pend(" <param name=""EmbedMov ie""
value=""0"">")
StringFormat.Ap pend(" <param name=""BGColor" "
value="""">")
StringFormat.Ap pend(" <param name=""SWRemote ""
value="""">")
StringFormat.Ap pend(" <param name=""MovieDat a""
value="""">")
StringFormat.Ap pend(" <param name=""Seamless Tabbing""
value=""1"">")
StringFormat.Ap pend(" <param name=""Profile" "
value=""0"">")
StringFormat.Ap pend(" <param name=""ProfileA ddress""
value="""">")
StringFormat.Ap pend(" <param name=""ProfileP ort""
value=""0"">")
StringFormat.Ap pend(" <param name=""AllowNet working""
value=""all"">" )
StringFormat.Ap pend(" </object>")
Dim OutPutString As StringBuilder = New StringBuilder()
OutPutString.Ap pendFormat(Stri ngFormat.ToStri ng, 468, 60,
Me.ImageUrlFiel d, Me.ImageUrlFiel d)
writer.Write(Ou tPutString.ToSt ring)
Else
MyBase.Render(w riter)
End If
End Sub
Protected Overrides Sub OnAdCreated(ByV al e As AdCreatedEventA rgs)
MyBase.OnAdCrea ted(e)
If e.ImageUrl.ToLo wer().IndexOf(" .swf") <-1 Then
Me.blnSWF = True
Me.strImgUrl = e.ImageUrl
Me.strNavUrl = e.NavigateUrl
Else
Me.blnSWF = False
End If
End Sub
End Class
Kindly adjust it or just tell me about any orher link.