<%
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")
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
%>