Her er hvad jeg er nået frem til ... finder poster frem i databasen på siden
logo.asp, og includer logo.asp i bannersystem.asp
Får følgende fejl, når jeg kører siderne...
Microsoft VBScript runtime error '800a0009'
Subscript out of range: 'intRandom'
/hoejbynet/public_html/funktioner/bannersystem.asp, line 36
Kode logo.asp
<!--#include file="conn.asp"-->
<%
Response.Write CHR(60) & CHR(37)
strSep = "#" ' Separator til arrays
sql = "SELECT * FROM qryKundeReklame"
RS.Open Sql, Conn, 3, 3
Do While Not RS.eof
Response.Write "arrBannerPic = arrBannerPic" & strSep &
"billeder/reklamebilleder/" & RS("KundeLogo") & "<br>"
Response.Write "arrBannerSize = arrBannerSize" & strSep & "230x60" & "<br>"
Response.Write "arrBannerURL = arrBannerURL" & strSep & RS("KundeWebsite") &
"<br>"
Response.Write "<br>"
RS.movenext
Loop
Conn.Close
Set Conn=Nothing
Response.Write CHR(37) & CHR(62)
%>
Kode slut
siden includeres så med bannersystem.asp
Kode bannersystem.asp
<!--#include file="logo.asp"-->
<%
' Split arrays
arrBannerPic = Split(arrBannerPic,strSep)
arrBannerSize = Split(arrBannerSize,strSep)
arrBannerURL = Split(arrBannerURL,strSep)
' FUNKTIONEN SOM VISER BANNER
'-----------------------------------------------
Function Banner(strformat)
' Find de bannere som har det rigtige format.
For intBanner = 1 to Ubound(arrBannerPic)
If arrBannerSize(intBanner) = strformat Then
arrBanners = arrBanners & strSep & intBanner
End If
Next
arrBanners = Split(arrBanners,strSep)
' Vælg tilfældigt banner.
Randomize
intRandom = Int((Ubound(arrBanners) * Rnd) + 1)
intShow = arrBanners(intRandom) <---------------------------------
Linie 36
arrSize = Split(arrBannerSize(intShow),"x")
' Skriv HTML koden for banneret til klienten.
Response.Write "<div><a target=" & "_blank " & "href='" &
arrBannerURL(intShow) & "'>"
Response.Write "<img src='" & arrBannerPic(intShow) & "' alt='Klik her for
at besøge linket!' "
Response.Write "width='" & arrSize(0) & "' height='" & arrSize(1) &
"'></a></div>"
End Function
%>
Kode slut