|
|
This section of the
website was designed for clubs to post coupons that can be printed and
brought in by the customer. If you would like your club added in one of
the following categories, please
e-mail us with the
specifics.
|
<%
' **********************************************
' This section will insert the banner ads
'
dim adcon, adnums, x
set adcon = Server.CreateObject("ADODB.Connection")
adcon.Open adsdbfile
' change the first parameter to GetAdNumbers to set the number of ads to display
adnums = GetAdNumbers(1, adcon)
for x = lbound(adnums) to ubound(adnums)
InsertAd adnums(x), adcon
next
adcon.Close
set adcon = nothing
'
' **********************************************
%> |
