Banner System

Hej

Jeg har en side hvor jeg includer en fil som hedder banner.inc i bunden på hver side.

Banner.inc vælger et default banner fra databasen, hvilket virker meget fint. Problemet er at samme banner godt kan komme 2 gange efter hinanden. Altså når folk trykker over på en anden side. Jeg har prøvet at løse problemet med sessions. Men hvordan får jeg den til at køre kun sciptet i banner.inc hvis det er det samme, og ikke hele siden ?

Banner.inc :

<%
Set RSC = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT COUNT(*) AS antal FROM banners where Aktiv=1"
RSC.Open SQL, strDB

Const adOpenKeyset = 1
Const adLockOptimistic = 3

RndTal = RSC("Antal") + 1

rsc.close
Set RSC = Nothing

randomize()
RandomNumber=Int(RndTal * rnd())

IF RandomNumber = 0 then
    RandomNumber = 1
Else
    RandomNumber = RandomNumber - 1
End IF

Set RS = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM banners where Aktiv = 1"
RS.Open SQL, strDB, adOpenKeyset, adLockOptimistic

RS.Move(RandomNumber)

Session("Banner") = RandomNumber

RS("Showed") = RS("Showed") + 1

IF RS("Showed") = RS("MaxShow") then
    RS("Aktiv") = 0
End IF

rs.update

Graphic = RS("Graphic")
URL = RS("URL")

rs.close
Set RS = Nothing

%>


Mvh Jens