<% '**************************************************************************************** '** 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. '**************************************************************************************** %> <% Dim rs120 Dim rs120_numRows Set rs120 = Server.CreateObject("ADODB.Recordset") rs120.ActiveConnection = MM_connDUbanner_STRING rs120.Source = "SELECT * FROM BANNERS WHERE BAN_SIZE = 120" rs120.CursorType = 3 rs120.CursorLocation = 2 rs120.LockType = 1 rs120.Open() rs120_numRows = 0 If Not rs120.EOF Or Not rs120.BOF Then Dim rndMaxAd120 rndMaxAd120 = CInt(rs120.RecordCount) rs120.MoveFirst Dim rndNumberAd120 Randomize Timer rndNumberAd120 = Int(RND * rndMaxAd120) rs120.Move rndNumberAd120 %> " target="_blank">" alt="<%=(rs120.Fields.Item("BAN_NAME").Value)%>" border="0" align="absmiddle"> <% End If ' end Not rs120.EOF Or NOT rs120.BOF %> <% rs120.Close() Set rs120 = Nothing %>