banner rotationssystem med prioritet

BannerListe = ",Banner1.jpg,Banner2.jpg,Banner3.jpg" 'de højest prioriterede først
ArrBannere = Split(BannerListe, ",")

For i = 1 To Ubound(ArrBannere)
  If Second(Time) Mod i = 0 Then
      Randomize
      nr = int(i * rnd)
  End If
Next

Response.Write "<img src='" & ArrBannere(i) & "'>"

Rettelse:
Response.Write "<img src='" & ArrBannere(nr) & "'>"

Du får den lige en gang til, som den skal være:


BannerListe = ",,Banner1.jpg,Banner2.jpg,Banner3.jpg" 'de højest prioriterede først
ArrBannere = Split(BannerListe, ",")

For i = 2 To Ubound(ArrBannere)
  If Second(Time) Mod i = 0 Then
      Randomize
      nr = int(i * rnd)
  End If
Next

Response.Write "<img src='" & ArrBannere(nr) & "'>"

det skulle helst være muligt at hente bannerne fra en database...

jeg har en databasetabel med kolonnerne - picture, text, link, weight

Hyppigheden for banneret skal så på en eller anden måde være afhængig af tallet som er sat ved vægt!

Hvis du giver hvert banner et prioriteringsnummer i tabellen fra 2-?, kan du f.eks. gøre således:

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "Select Bannernavn, Prioritering From Bannere Order By Prioritering Desc", Conn, 1, 3
While Not rs.EOF And Bannernavn = ""
  If Second Mod rs("Prioritering") = 0 Then
      Bannernavn = rs("Bannernavn")
  End If
  rs.MoveNext
Wend

Response.Write "<img src='" & Bannernavn & "'>"


100% pålideligt er det desværre ikke, men jeg ved ikke, hvordan det ellers skulle laves lige nu.

Men jeg vil tænke lidt videre over det.

du får pointene for din indsats - jeg prøver lige med et lidt andet formuleret spørgsmål.

Ok - men man bliver jo nok nødt til at have en ekstra tabel, hvori du registrerer præcis hvor mange gange, hvert banner er blevet vist.