<%
'****************************************************************************************
'** 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.
'****************************************************************************************
%>
<!--#include file="Connections/connDUbanner.asp" -->
<%
Dim rs468
Dim rs468_numRows
Set rs468 = Server.CreateObject("ADODB.Recordset")
rs468.ActiveConnection = MM_connDUbanner_STRING
rs468.Source = "SELECT * FROM BANNERS WHERE BAN_SIZE = 468"
rs468.CursorType = 3
rs468.CursorLocation = 2
rs468.LockType = 1
rs468.Open()
rs468_numRows = 0
If Not rs468.EOF Or Not rs468.BOF Then
Dim rndMaxAd468
rndMaxAd468 = CInt(rs468.RecordCount)
rs468.MoveFirst
Dim rndNumberAd468
Randomize Timer
rndNumberAd468 = Int(RND * rndMaxAd468)
rs468.Move rndNumberAd468
%>
<body bgcolor="#000000">
<a href="inc_banner_hit.asp?iBan=<%=(rs468.Fields.Item("BAN_ID").Value)%>" target="_blank"><img src="assets/<%=(rs468.Fields.Item("BAN_IMAGE").Value)%>" alt="<%=(rs468.Fields.Item("BAN_NAME").Value)%>" border="0" align="absmiddle"></a>
<% End If ' end Not rs468.EOF Or NOT rs468.BOF %><%
rs468.Close()
Set rs468 = Nothing
%>
sådan ser inc_banner_468.asp ud hvad er det der skal ændres!
Ny bruger
Nybegynder
Opret
Preview
