<%@ LANGUAGE="VBSCRIPT" %>
<% Response.Buffer = True %>

<%
'***********************************************************************
'   System     :   ASPBanner Unlimited									
'   Author     :   Christopher Williams of CJWSoft www.CJWSoft.com		
'																		
'                         COPYRIGHT NOTICE								
'																		
'   See attached Software License Agreement								
'																		
'   (c) Copyright 2000 - 2003 by CJWSoft.			 All rights reserved
'***********************************************************************
%>

<!--#INCLUDE FILE="dataconn_inc.asp"-->
<!--#INCLUDE FILE="config_inc.asp"-->

<%
Banner_ID = Request("Banner_ID")
	
Set ConnPasswords = Server.CreateObject("ADODB.Connection")
ConnPasswords.Open BannerConnectionString
Set CmdBannerTemp = Server.CreateObject("ADODB.Command")
Set CmdUpdateStats = Server.CreateObject("ADODB.Recordset")
	
If 	BannerDatabaseType = "SQL" Then
	CmdBannerTemp.CommandText = "SELECT Banner_Stats.* FROM Banner_Stats WHERE (Banner_ID = " & Banner_ID & ") AND Banner_Day = '" & InternationalDate(DATE) & "'"
ElseIf BannerDatabaseType = "MSACCESS" Then
	CmdBannerTemp.CommandText = "SELECT Banner_Stats.* FROM Banner_Stats WHERE (Banner_ID = " & Banner_ID & ") AND Banner_Day = #" & InternationalDate(DATE) & "#"
End IF
	
CmdBannerTemp.CommandType = 1
Set CmdBannerTemp.ActiveConnection = ConnPasswords
CmdUpdateStats.Open CmdBannerTemp, , 1, 3
	
CmdUpdateStats.Fields("Banner_Clicks") = (CmdUpdateStats("Banner_Clicks") + 1)
CmdUpdateStats.Update
CmdUpdateStats.Close
Set CmdUpdateStats = Nothing
	
Set ConnPasswords = Server.CreateObject("ADODB.Connection")
ConnPasswords.Open BannerConnectionString
Set CmdBannerTemp = Server.CreateObject("ADODB.Command")
Set CmdRetrieveBannerInfo = Server.CreateObject("ADODB.Recordset")
CmdBannerTemp.CommandText = "SELECT Banners.* FROM Banners WHERE Banner_ID = " & Banner_ID
CmdBannerTemp.CommandType = 1
Set CmdBannerTemp.ActiveConnection = ConnPasswords
CmdRetrieveBannerInfo.Open CmdBannerTemp, , 0, 1
	
Banner_Link_URL = CmdRetrieveBannerInfo("Banner_Link_URL")
	
CmdRetrieveBannerInfo.Close
Set CmdRetrieveBannerInfo = Nothing
	
ConnPasswords.Close
Set ConnPasswords = Nothing	
	
	
Response.Redirect Banner_Link_URL
%>