<% Set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") conn.open dsn sqlm = "select * from AF_Banners where BannerType=1 and Visible=1 order by BannerID desc" rs.open sqlm, conn if not rs.eof then%> <%n=0 rs.movefirst while not rs.eof if rs("Landing")<>"" then Landing=rs("Landing") else Landing=siteHomepage end if n=n+1%> <%rs.movenext wend%> Flash Banners <OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="<%=rs("Iwidth")%>" HEIGHT="<%=rs("Iheight")%>" id="FlashBanner<%=rs("BannerID")%>" ALIGN=""><PARAM NAME=movie VALUE="<%=bannersFolder & rs("BannerName")%>?urlAD=<%=Landing%>&af=<%=session("AfUsername")%>&bn=<%=rs("BannerID")%>"><PARAM NAME=quality VALUE=high><PARAM NAME=bgcolor VALUE=#ffffff><EMBED src="<%=bannersFolder & rs("BannerName")%>?urlAD=<%=Landing%>&af=<%=session("AfUsername")%>&bn=<%=rs("BannerID")%>" quality=high bgcolor=#ffffff WIDTH="<%=rs("Iwidth")%>" HEIGHT="<%=rs("Iheight")%>" NAME="FlashBanner<%=rs("BannerID")%>" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT> <%end if rs.close%> <% sqlm = "select * from AF_Banners where BannerType=2 and Visible=1 order by Iwidth desc" rs.open sqlm, conn if not rs.eof then%> <%n=0 rs.movefirst while not rs.eof if rs("Landing")<>"" then Landing=rs("Landing") else Landing=siteHomepage end if if rs("Iwidth")>500 then imgwidth=500 else imgwidth=rs("Iwidth") end if n=n+1%> <%rs.movenext wend%> Image Banners Banner Size: <%=rs("Iwidth") & " X " & rs("Iheight")%> " width="<%=imgwidth%>"> HTML Code: <A href="<%=Landing%>?af=<%=session("AfUsername")%>&bn=<%=rs("BannerID")%>"><img src="<%=bannersFolder%>/<%=rs("BannerName")%>" width=<%=rs("Iwidth")%> height=<%=rs("Iheight")%> border=0 alt="<%=sitename%>"></A> <%end if rs.close sqlm = "select * from AF_Banners where BannerType=3 and Visible=1 order by BannerID desc" rs.open sqlm, conn if not rs.eof then%> <%n=0 rs.movefirst while not rs.eof if rs("Landing")<>"" then Landing=rs("Landing") else Landing=siteHomepage end if n=n+1%> <%rs.movenext wend%> Text Links <%=rs("BannerName")%><% if rs("linkDescription")<>"" then %> - <%=rs("linkDescription")%><% end if%> <A href="<%=Landing%>?af=<%=session("AfUsername")%>&bn=<%=rs("BannerID")%>"><%=rs("BannerName")%></A><% if rs("linkDescription")<>"" then %> - <%=rs("linkDescription")%><% end if%> <%end if rs.close sqlm = "select * from AF_Banners where BannerType=4 and Visible=1 order by BannerID desc" rs.open sqlm, conn if not rs.eof then%> <%n=0 rs.movefirst while not rs.eof if rs("Landing")<>"" then Landing=rs("Landing") else Landing=siteHomepage end if n=n+1%> <%rs.movenext wend%> Popups Popup Size: <%=rs("Iwidth") & " X " & rs("Iheight")%> ?lp=<%=Landing%>&bn=<%=rs("BannerID")%>','<%=rs("Iwidth")%>','<%=rs("Iheight")%>')"><%=rs("BannerName")%> HTML Code (HEAD Area): <script> WinAff2=window.open("<%=bannersFolder%>/<%=rs("BannerName")%>?lp=<%=Landing%>&af=<%=session("AfUsername")%>&bn=<%=rs("BannerID")%>","popup","width=<%=rs("Iwidth")%>,height=<%=rs("Iheight")%>,top=250,left=350,resizable=yes,menubar=no,location=no"); WinAff2.blur();window.focus() </script> <%end if rs.close sqlm = "select * from AF_Banners where BannerType=6 and Visible=1 order by BannerID desc" rs.open sqlm, conn if not rs.eof then%> <%n=0 rs.movefirst while not rs.eof if rs("Landing")<>"" then Landing=rs("Landing") else Landing=siteHomepage end if n=n+1%> <%rs.movenext wend%> Search Boxes <%linkDescription=rs("linkDescription")%> <%=linkDescription%> HTML Code: <form method=post action="<%=Landing%>" name="sb<%=n%>"> <input type=hidden name="af" value="<%=session("AfUsername")%>"> <input type=hidden name="bn" value="<%=rs("BannerID")%>"> <%=linkDescription%> </form> <%end if rs.close set rs = nothing conn.close set conn = nothing %>