Ayuda con un programita

[Chikis]

me baje una portal en ASp y ya lo instale, fuciona todo bien, viene un codigo ASP que es en donde vienen funciones y variables, y un html que es el Diseño de el sitio, as tablas y eso, necesito insertarle el Adrotator, pero no se como hacerle.

el codigo del Adrotator es este:

Código:

SetVar Anuncion = Set Anuncios = Server.CreateObject("MSWC.AdRotator")
Response.Write Anuncios.GetAdvertisement("banners.txt")

ahora en la pagina HTML donde quiero que aparesca algo solo le pongo:
{welcomename} y aparece el id del usuaris.

como puedo hacer que solo al ponerle {adds} me ponga el addrotator si mi pagina ASP en donde viene el codigo es esta:

[Chikis]

mi codigo es:

Código:

 <%

'===============================
' Display Menu Form
'-------------------------------
Sub Header_Show()
  Dim sFormTitle: sFormTitle = ""

'-------------------------------
' Header Open Event begin
'Replace {welcomename} amd {logaction} with Username or Login URL
welcomename = DLookup("members","member_first_name","member_id=" & Session("UserID"))
if welcomename <> "" then
  fldwelcome = welcomename
  SetVar "welcomename",welcomename
  SetVar "logaction","Logout"
else
  SetVar "welcomename",""
  SetVar "logaction","Login"
end if
SetVar "Extension","asp"
SetVar "PortalTitle",getConfig("portal_title")

if left(sFileName,7)="Default" then
  setvar "HomeActive","_on"
elseif left(sFileName,5)="Event" then
  setvar "EventsActive","_on"
elseif left(sFileName,4)="Link" then
  setvar "LinksActive","_on"
elseif left(sFileName,6)="AdView" or left(sFileName,11)="Classifieds" then
  setvar "ClassifiedsActive","_on"
elseif left(sFileName,6)="Forums" or left(sFileName,4)="Disc" then
  setvar "DiscussionsActive","_on"
elseif left(sFileName,12)="Registration" then
  setvar "JoinActive","_on"
end if
' Header Open Event end
'-------------------------------

'-------------------------------
' Set URLs
'-------------------------------
  fldField1 = "Welcome {welcomename}!"
  fldField2 = "Login.asp"
'-------------------------------
' Header Show begin
'-------------------------------

  SetVar "FormTitle", sFormTitle

'-------------------------------
' Header BeforeShow Event begin
' Header BeforeShow Event end
'-------------------------------

'-------------------------------
' Show fields
'-------------------------------
  SetVar "Field1", fldField1
  SetVar "Field2", fldField2
  Parse "FormHeader", False
  
'-------------------------------
' Header Show end
'-------------------------------
End Sub
'===============================


%>