Budapest Pocket Guide
<% 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("gevril", "Ad.Size.Banner","ad.targetframe._blank","ad.border.1" ) strHistory = Session("AdHistory")'Ad server history conatiner ' response.write (Ad.GetAd(Response, arrTags,strHistory)) Response.Write("" & vbCrLf) Session("AdHistory") = strHistory Else %> <% End If %>