<%
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
%>
1074 Budapest, Rottenbiller u. 16-22.
Tel.: +36-1-322-48-57, 3214821
Fax.: +36-1-341-5700
E-mail: info@rajko.hu
web: www.rajko.hu