<%response.buffer=true%>
<% 

DataConn = "c:\inetpub\voiceofthecape\voiceofthecape.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
ConStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DataConn & ";"
Conn.open(ConStr)

'get url and count
dim url
dim SqlInsertBanStat
dim SqlSelectCheck
dim status
dim count
dim firstcount
firstcount = 1
Url =  trim(request.querystring("url"))
'response.write Url
Function Generate_Banner_Stats(Byval Url) 
   SqlSelectCheck = "select * from banner_statistics where url = '"& Url &"'"
   set RsCheckBannerStats =  conn.execute(SqlSelectCheck)
   if not RsCheckBannerStats.eof then
     count =  RsCheckBannerStats("count") + 1
     status = true
	 
	  else
	 status = False
   end if	 
   if  status  =  False then
      SqlInsertBanStat = "insert into banner_statistics (url,count) values ('"&url &"','"&firstcount&"')"
	  conn.execute(SqlInsertBanStat) 
   else
      SqlUpdateBanStat = "update banner_statistics set count = '"&count&"' where url = '"&url&"'"
      conn.execute(SqlUpdateBanStat) 
   end if	   
end function

response.write Generate_Banner_Stats(Url) 
count = 0
response.redirect(url)
response.clear
%>