<%
	Set json = new ASPJson
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    Set stream = Server.CreateObject("ADODB.Stream")

    stream.Open()
    stream.Charset = "UTF-8"
    stream.LoadFromFile Server.MapPath( "config.asp" )

    content = stream.ReadText()

    Set commentPattern = new RegExp
    commentPattern.Multiline = true
    commentPattern.Pattern = "/\*[\s\S]+?\*/"
    commentPattern.Global = true
    content = commentPattern.Replace(content, "")
    json.loadJSON( content )

    Set config = json.data
%>