Dizionario tipo non corrispondente in VBScript

Question

L'errore che sto ricevendo è: Tipo non corrispondente: 'fogli di stile'

I fogli di stile è definito come:

sub stylesheets(collection)
    for each key in collection.Keys
        response.write(stylesheet(key, collection.Item(key)))
    next
end sub

' returns a link tag for each object in the collection
function stylesheet(asset, media_type)
    if (media_type="") then
        media_type="screen"
    end if
    return "<link href=""" & asset_url(asset) & """ type=""text/css"" media=""" _
        &  media_type & """ />"
end function

e viene denominato come tali:

<% stylesheets(site_stylesheets) %>

Dove site_stylesheets è stato definito come:

' stylesheets is a collection of the stylesheets to be included on all pages
Set site_stylesheets = CreateObject("Scripting.Dictionary")
site_stylesheets.Add "css/endoworks.css", "screen"

E 'stato molto tempo da quando ho fatto alcun VBScript-ing. Mi piacerebbe davvero apprezzare alcun aiuto.

Answer 1

Ho finito solo ponendo la logica loop dal stylesheets nella sub header [di routine]. Funziona bene ora.

@ Tester101:. Ho provato i vostri suggerimenti, ma non hanno risolto il problema

Edit: in realtà ho scoperto che avevo un argomento stylesheets nella subroutine header che è dove il sub stylesheets è stato chiamato. Così è stato tentando di eseguire nothing con un argomento di site_stylesheets. Non riesco a credere che ho perso.

Answer 2

Provare a rimuovere la parentesi quando si chiama i fogli di stile. vedere questa domanda per ulteriori informazioni. Non credo che è possibile utilizzare le parentesi quando si chiama un sub con un solo parametro.

Prova questo

<% stylesheets site_stylesheets %>

o del presente

<% call stylesheets(site_stylesheets) %>