<% Randomize iBanner = CInt(Rnd(2) * 10) ' Response.Write("i:" & i & " " & vbCrLf) If ((iBanner mod 2) = 0) Then Dim Ad Dim ArrTags Dim strHistory ' Set Ad = Application("Ad") Set Ad = Session("Ad") arrTags = Array("Ad.Size.Banner","ad.targetframe._blank","ad.border.1" ) strHistory = Session("AdHistory")'Ad server history conatiner response.write (Ad.GetAd(Response, arrTags,strHistory)) Session("AdHistory") = strHistory Else %> <% End If %>

First, choose from one of the following picture themes: The Buildings of Budapest The Danube and the Bridges of Budapest High Above Budapest         <% If ((iBanner mod 2) = 0) Then response.write (Ad.GetAd(Response, arrTags,strHistory)) Session("AdHistory") = strHistory ElseIf ((iBanner = 1) or (iBanner = 3)) Then %> <% ElseIf ((iBanner = 5) or (iBanner = 7)) Then %> <% Else %> <% End If %> Home | Guide To Hungary | Tourist Info | Sights & Sounds | Accommodation/Travel | Business Section | Sitemap | Search © 1997-<%=Year(Now)%> Malenco Ltd. All rights reserved Privacy Policy