<%
Randomize
iBanner = CInt(Rnd(2) * 10)
iBanner = 1
' 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
%>