<%@ LANGUAGE="VBSCRIPT" %> <% Session.Codepage=65001 ' ensure QueryString is interpreted as UTF-8 %> <% dim oXmlResp,id id=trim(Request.QueryString("id")) set oXmlResp=new ricoXmlResponse if IsEmpty(session.contents(id)) then oXmlResp.ErrorResponse "Your connection with the server was idle for too long and timed out. Please refresh this page and try again." elseif not OpenDB then oXmlResp.ErrorResponse server.htmlencode(oDB.LastErrorMsg) else oXmlResp.SetDbConn oDB oXmlResp.sendDebugMsgs=true oXmlResp.ProcessQuery id, session.contents(id), session.contents(id & ".filters") end if CloseApp set oXmlResp=Nothing %>