Expected integer constant

dim arrChosenBannerIDs(10)

fordi der skal stå et tal. Forvent ikke for meget af det sprog ;)

Men du kan selvfølgelig:

const countBanners = 10
dim arrChosenBannerIDs()
redim arrChosenBannerIDs(countBanners)

Mange tak for hjælpen - det virker nu - dog har det den bivirkning af min isValid-funktion ikke længere virker.

Den virker dog, hvis jeg skriver følgende:
if strBannerID > 0 and strBannerID < 10 then

Men ikke hvis jeg skriver følgende:
if strBannerID > 0 and strBannerID < strCountBanners then


<%

const strCountBanners = 10
dim arrChosenBannerIDs()
redim arrChosenBannerIDs(strCountBanners)

strBannerIDs = Trim(Request.QueryString("bannerIDs"))

    if instr(strBannerIDs, "-") > 0 then
        arrAllBannerIDs = split(strBannerIDs, "-")
        y = 0
        For i = LBound(arrAllBannerIDs) To UBound(arrAllBannerIDs)
            if isValidID(trim(arrAllBannerIDs(i))) then
                arrChosenBannerIDs(y) = arrAllBannerIDs(i)
                y = y + 1
            end if
        Next
        if y > 0 then
            randomize
            response.write "/grafik/affiliate/468x60-" & arrChosenBannerIDs(int(y * rnd)) & ".gif"
        else
            randomAll()
        end if
    else
        if isValidID(trim(strBannerIDs)) then
            response.write "/grafik/affiliate/468x60-" & strBannerIDs & ".gif"
        else
            randomAll()
        end if
    end if
   
function isValidID(strBannerID)

    isValidID = "false"
   
    if strBannerID <> "" and isNumeric(strBannerID) then
        if strBannerID > 0 and strBannerID < 10 then
        'if strBannerID > 0 and strBannerID < strCountBanners then
            isValidID = "true"
        end if
    end if
       
end function


function randomAll()

    randomize
    response.write "/grafik/affiliate/468x60-" & int(10 * rnd) & ".gif"

end function

%>

Ja, vi er ude i noget af det "sjove" med VBScript:

  if strBannerID > 0 and cint(strBannerID) < strCountBanners then

Du bedes venligst ikke bede mig give en forklaring på hvorfor det skal være sådan ;)

Takker mange gange for hjælpen :-D

Tryk svar :-D

ellers tak, jeg samler slet ikke på point

Mange tak :-D