<%@ language="vbscript" %>
<%

option explicit

sendRequestedCss

sub sendRequestedCss
    dim cssmlPath, cssString
    cssmlPath = ""

    cssmlPath = request.queryString("xml")

    if not cssmlPath = "" then
        cssmlPath = cssmlPath & ".xml"
        cssString = cssmlToCss(server.mapPath(cssmlPath))
    end if

    response.write cssString
end sub

function cssmlToCss(cssmlPath)
    dim cssString, xmlDoc, xslDoc
    cssString = ""
    set xmlDoc = server.createObject("Microsoft.XMLDOM")
    set xslDoc = server.createObject("Microsoft.XMLDOM")

    xmlDoc.load cssmlPath
    xslDoc.load server.mapPath("css.xsl")
    cssString = xmlDoc.transformNode(xslDoc)

    cssmlToCss = cssString
end function

%>