VBScriptの中に辞書型の不一致

Question

私が受け'mエラーは、次のとおりです。型の不一致： 'スタイルシート'

スタイルシートは以下のように定義されます

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

そして、それは、次のような呼び出されてます：

<% stylesheets(site_stylesheets) %>

site_stylesheetsは次のように定義された

' 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"

私がどのVBScriptの-INGをやったので、長い時間となっています。私は本当に任意の助けをいただければと思います。

Answer 1

私はちょうどstylesheetsサブ[ルーチン]にheaderからループロジックを置くことになりました。それは今も元気に動作します。

@ Tester101：私はあなたの提案を試みたが、彼らは問題を解決しませんでした。

編集：私は実際に私がstylesheetsサブが呼び出された場所であるheaderサブルーチンでstylesheets引数を持っていたことを発見しました。だから、site_stylesheetsの引数でnothingを実行しようとしていました。私はそれを逃した信じることができません。

Answer 2

スタイルシートを呼び出すときに括弧を削除してください。 詳細については、このの質問を参照してください。私は唯一つのパラメータとサブを呼び出すときに括弧を使用することができるとは思いません。

これを試してみてください

<% stylesheets site_stylesheets %>

あるいは、この

<% call stylesheets(site_stylesheets) %>