<% '/// Defeat Cache //// response.expires = 0 response.expiresabsolute = Now() -1 response.addHeader "pragma","no-cache" response.addHeader "cache-control","private" Response.CacheControl = "no-cache" dim subject,smtpserver,signature,mailadmin,notify,sendcopy dim xlaparsing,bannerid,zoneid,todaydate,conn%> <% zoneid=request("z") if zoneid="" or not(isnumeric(zoneid)) then zoneid=0 autosize=request("autosize") isframe=request("isframe") autorotate=request("autorotate") ispicture=request("ispicture") set conn=server.createobject("ADODB.Connection") conn.open connection banner=xlaABMgetbanner(zoneid,false,ispicture) if bannerid>0 and zoneid>0 then call xlaABMtrackbanner(bannerid,zoneid,"hits") conn.close set conn=nothing target="_blank" if autosize<>"" and isframe="" then autosize="onload='javascript:autosize();'" response.write "" response.write "function autosize(){" response.write "if (document.layers){" response.write " var w=document.layers['ABMbanner'].document.width;" response.write " var h=document.layers['ABMbanner'].document.height;" response.write "} else if (document.all){" response.write " var w=document.all['ABMbanner'].clientWidth;" response.write " var h=document.all['ABMbanner'].clientHeight;" response.write "}" response.write " window.resizeTo(w+10,h+29);" response.write " window.focus();" response.write "}" elseif isframe<>"" then target="_top" else autosize="onload='javascript:window.focus();'" end if if bannertext="" then bannertext=popuptitle %><%=bannertext%> >
<%=banner%>
<%if autorotate<>"" then%> <%end if%>