<%@ Language=VBScript %>
<% Option Explicit %>
<!-- #INCLUDE FILE="asp/config/databases/DataConnect.asp" -->
<!-- #INCLUDE FILE="asp/config/adovbs.inc" -->
<% 
	Dim strBnr, Banner
   	
  	strBnr = "SELECT ID, ClickThrus, TotClickThrus FROM Links WHERE ID = "& Request.QueryString("lnk") &""
   	
   	Set Banner = CreateObject("ADODB.RecordSet")
   	Banner.Open strBnr, objConn, , adLockOptimistic
   		
   	Banner("ClickThrus") = Banner("ClickThrus") + 1
   	Banner("TotClickThrus") = Banner("TotClickThrus") + 1
   	Banner.Update
   	
   	Banner.Close
   	Set Banner = Nothing
   		
   	objConn.Close
   	Set objConn = Nothing
   		
   	Response.Redirect ""& Request.QueryString("url") &""
%>