<%
'****************************************************************************************
'**  Copyright Notice                                                               
'**  Copyright 2003 DUware All Rights Reserved.                                
'**  This program is a commercial software; you can modify (at your own risk) any part of it 
'**  under the terms of the License that accompanies this software and use it both 
'**  privately and commercially.
'**  All copyright notices must remain in tacked in the scripts and the 
'**  outputted HTML.
'**  You may use parts of this program in your own private work, but you may NOT
'**  redistribute, repackage, or sell the whole or any part of this program even 
'**  if it is modified or reverse engineered in whole or in part without express 
'**  permission from the author.
'**  You may not pass the whole or any part of this application off as your own work.
'**  All links to DUware and powered by logo's must remain unchanged and in place
'**  and must remain visible when the pages are viewed unless permission is first granted
'**  by the copyright holder.
'**  This program is distributed in the hope that it will be useful,
'**  but WITHOUT ANY WARRANTY; without even the implied warranty of
'**  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR ANY OTHER 
'**  WARRANTIES WHETHER EXPRESSED OR IMPLIED.
'****************************************************************************************
%>
<!--#include file="Connections/connDUbanner.asp" -->

<%
strId = Request.QueryString("iBan")

set cmdHitting = Server.CreateObject("ADODB.Command")
cmdHitting.ActiveConnection = MM_connDUbanner_STRING
cmdHitting.CommandText = "UPDATE BANNERS SET BAN_CLICK = BAN_CLICK+1 WHERE BAN_ID = " & strId
cmdHitting.CommandType = 1
cmdHitting.CommandTimeout = 0
cmdHitting.Prepared = true
cmdHitting.Execute()

%>

<%
Dim rsHitting
Dim rsHitting_numRows

Set rsHitting = Server.CreateObject("ADODB.Recordset")
rsHitting.ActiveConnection = MM_connDUbanner_STRING
rsHitting.Source = "SELECT BAN_URL FROM BANNERS WHERE BAN_ID = " & strID
rsHitting.CursorType = 0
rsHitting.CursorLocation = 2
rsHitting.LockType = 1
rsHitting.Open()

rsHitting_numRows = 0
%>

<%
Response.Redirect(rsHitting.Fields.Item("BAN_URL").Value)
%>


<%
rsHitting.Close()
Set rsHitting = Nothing
%>