XML如何不能正确显示

<%   @language   =   "VBScript" CODEPAGE="65001"%>   

  <?xml version="1.0" encoding="utf-8"?>
  <StkList>   
  
  <%   
    set conn=server.CreateObject("adodb.connection")
    conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data/StkHold.mdb")
    set rs=Server.CreateObject("adodb.recordset")
    
    if request("t")<>"" then
        sql="select top " + request("t") + " * from StkList"
    else
        sql="select  * from StkList"
    end if

    if request("c")<>"" then
        sql = sql + " where FStkCode like '" + request("c") + "%'"
    end if

    rs.open sql,conn,1,3

    do while not rs.Eof
  %>
        <CurrStk>
            <StkCode><%=rs("FStkCode")%></StkCode>   
            <StkName><%=rs("FStkName")%></StkName>
            <OpenP/>
        [color=#FF0000]    <PreP/>
            <CurrP/>
            <HighP/>
            <LowP/>
            <Chg/>
            <ChgRat/>
            <Vol/>
            <Mny/>
            <B1V/>
            <B1P/>
            <B2V/>
            <B2P/>
            <B3V/>
            <B3P/>
            <B4V/>
            <B4P/>
            <B5V/>
            <B5P/>
            <S1V/>
            <S1P/>
            <S2V/>
            <S2P/>
            <S3V/>
            <S3P/>
            <S4V/>
            <S4P/>
            <S5V/>
            <S5P/>[/color]
        </CurrStk>   
  <%   
        rs.movenext   
    loop   
    rs.close   
    set rs=nothing   
  %>   
  </StkList>