By: Chris
<!---
     First off, create a database with these fields: (This is for ACCESS)
     BanID (Autonumber) //id
     CompanyName (text) //name of banner
     Date_Posted (text) //date posted
     HREF (Memo) //link
     IMGSRC (Memo) //image source
     Border (Number) //border
     Target (Memo) //target
     Views (Number) //# of views
     Clicks (Number) //# of clicks
     TypeOf (Text) //flash or image

     Here is the code.
--->

<!---default.cfm--->

<CFQUERY DATASOURCE="#DSN#" NAME="GetMax">
     SELECT Max(BanID) as MaxBan
     FROM TableBanner
</CFQUERY>

<!--- DEFINE MaxBan TO DISPLAY MAXIMUM BANNERS --->
<CFSET BanID = RandRange(1,GetMax.MaxBan)>

<!--- GET THE BANNER'S INFORMATION FROM THE FOLLOWING QUERY --->
<CFQUERY DATASOURCE="#DSN#" NAME="GetBanners">
   SELECT *
   FROM TableBanner
   WHERE BanID = #BanID#
   ORDER BY BanID
</CFQUERY>

<!--- INSERT A 'PLUS ONE' INTO THE DATABASE FOR VIEWS --->
<CFSET add = incrementvalue(val(GetBanners.views))>
<CFQUERY datasource=
"#DSN#" name="UpdateView">
   UPDATE TableBanner
   SET views = #add#
   WHERE BanID = #BanID#
</CFQUERY>

<!--- DISPLAY THE ADS --->
<cfif GetBanners.TypeOf IS "Flash">
    <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"                  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"
                 width=
"468"
                 height=
"60">
        <param name=
"movie" value="<cfoutput>#GetBanners.srcfile#</cfoutput>">
        <param name=
"quality" value="high">
        <embed src=
"<cfoutput>#GetBanners.srcfile#</cfoutput>" quality="high"
                pluginspage=
"http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="468" height="60">
         </embed>
    </object>
<cfelse>
    <cfoutput query=
"GetBanners">
        <a href="/banner.cfm?BanID=#BanID#" target="#TARGET#">
       
 <img src="#srcfile#" border="#BORDER#" width="468" height="60">
        </a>
    </cfoutput>
</cfif>

<!---banner.cfm--->

<!--- Query Banners To Get Ban_ID to specify Redirection URL --->
<CFQUERY DATASOURCE="#dsn#" NAME="GetBanners">
    SELECT *
    FROM TableBanner
    WHERE BanID = #BanID#
    ORDER BY BanID
</CFQUERY>

<!--- Increment da clicks by 1 in yo face! --->
<CFSET add = incrementvalue(val(GetBanners.clicks))>
<CFQUERY datasource=
"#dsn#" name="UpdateView">
   UPDATE TableBanner
   SET clicks = #add#
   WHERE BanID = #BanID#
</cfquery>

<!--- Go To URL That Banner Passed --->
<CFLOCATION URL="#GetBanners.Target#" addtoken="no">

About This Tutorial
Author: Chris
Skill Level: Intermediate 
 
 
 
Platforms Tested: CF5
Total Views: 24,742
Submission Date: December 31, 2004
Last Update Date: June 05, 2009
All Tutorials By This Autor: 4
Discuss This Tutorial
  • Only Flash can Be used, GIF, and Jpg can Used, and how do we adjust the banner image width and height size, so, it can be displayed properly

  • to increment a database value, please do this: UPDATE TableBanner SET views = views+1 WHERE BanID = #BanID#

Advertisement

Sponsored By...
Powered By...