<%response.buffer=true
dim subject,smtpserver,signature,mailadmin,notify,sendcopy
dim xlaparsing,bannerid,zoneid,todaydate,conn
%>
<!--#include file="configdata.asp" -->
<!--#include file="databasedata.asp" -->
<!--#include file="incEmail.asp" -->
<!--#include file="incShowbanner.asp" -->
<%

zoneid=request("z")
xlaparsing=request("xlaparsing")
if zoneid="" or not(isnumeric(zoneid)) then zoneid=0
if bannerid="" or not(isnumeric(bannerid)) then bannerid=0
set conn=server.createobject("ADODB.Connection")
conn.open connection
banner= xlaABMgetbanner(zoneid,true,false)
if xlaparsing then
	response.write banner
else
	response.write "document.write(" & chr(34) & banner& chr(34)& ");"
end if
if bannerid>0 and zoneid>0 then call xlaABMtrackbanner(bannerid,zoneid,"hits")
conn.close
set conn=nothing
%>