ASP中调用带参数输出的COM接口

<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
      xml.load(server.mappath("style.xml"))
       if   xml.parseError.errorCode   <>   0   then ......

<%
if Request.QueryString("pageNo")="" then
PageNo=1
elseif IsNumeric(Request.QueryString("pageNo"))=false then
PageNo=1
else
PageNo=clng(Request.QueryString("pageNo"))
end if
打开数据表..不写了哈.
set rs=server.CreateObject("adodb.recordset")
sql="............"
rs.open sql, ......

          HTML部分：
        <asp:Chart ID="ChartBar" runat="server" Width="800px"   BackColor="#FFFFCC" Palette="BrightPastel" BorderWidth = "2" BorderColor = "#cc9900" >
    & ......

<%
'true=是邮件;false=不是;
Function validate(ByVal str)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
reg.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
validate = reg.test(Trim(str))
Set reg = Nothing
End Function
'************************ ......