sub handleHelpOnKeyword(keywordText)
    dim keywordDocument
    dim keyword
    dim xPath

    set keywordDocument = getXml("keywords.xml")
    xPath = "//function/keyword[@name = '" & keywordText & "']"
    set keyword = keywordDocument.selectSingleNode(xPath)

    if not (keyword is nothing) then
        openWindowWith "http://msdn.microsoft.com/", _
                "scripting/vbscript/doc/", _
                "vsfct" & keywordText & ".htm"
    end if
end sub

sub openWindowWith(serverUrl, folderUrl, pageUrl)
    const displayOptions = ""
    ' "width=700,height=600"
    ' ,locationbar=false,menubar=false,personalbar=false,toolbar=false,scrollbar=true,status=true
    dim newWindow
    dim grabAspUrl

    grabAspUrl = "grab_url.asp?serverUrl=" & serverUrl & "&folderUrl=" & folderUrl & "&pageUrl=" & pageUrl
    set newWindow = window.open(grabAspUrl, "ASPHelp", displayOptions)
    newWindow.focus
end sub