Problema Mshtml.dll

[anjubama]

Código ASP:

<tr class=xl2329424 height=25 style='mso-height-source:userset;height:18.75pt'>
      <td rowspan=3 height=75 class=xl4629424 width=113 style='border-bottom:.5pt solid black;
  height:56.25pt;width:85pt'>ADUANA EXPORTACIÓN</td>
  <td colspan=2 class=xl5129424 width=106 style='width:80pt'>AGENTE:</td>
  <td colspan=2 class=xl14029424 width=99 style='border-right:.5pt solid black;
  width:75pt'><%
  agente = Pro_Dato(ors(17))
  agente = replace(agente, "5D1O SIA", "ÑO")
  Response.Write ucase(cstr(agente))%></td>
      <td colspan=2 rowspan=3 class=xl6329424 width=133 style='border-right:.5pt solid black;
  border-bottom:.5pt solid black;width:100pt'>ADUANA<span style="mso-spacerun:
  yes"></span>IMPORTACIÓN</td>
  <td colspan=2 class=xl7229424 width=162 style='border-left:none;width:121pt'>AGENTE:</td>
  <td colspan=2 class=xl14429424 width=151 style='border-right:1.0pt solid black;
  width:113pt'><%Response.Write ucase(cstr(Pro_Dato(ors(21))))%></td>
 </tr>
 <tr class=xl2329424 height=25 style='mso-height-source:userset;height:18.75pt'>
  <td colspan=2 height=25 class=xl6129424 width=106 style='height:18.75pt;
  width:80pt'>QUIEN PAGA:</td>
  <td colspan=2 class=xl13829424 width=99 style='border-right:.5pt solid black;
  width:75pt'><%Response.Write ucase(cstr(Pro_Dato(ors(18))))%></td>
  <td colspan=2 class=xl7229424 width=162 style='border-left:none;width:121pt'>QUIEN
  PAGA:</td>
  <td colspan=2 class=xl14429424 width=151 style='border-right:1.0pt solid black;
  width:113pt'><%Response.Write ucase(cstr(Pro_Dato(ors(22))))%></td>
 </tr>
 <tr class=xl2329424 height=25 style='mso-height-source:userset;height:18.75pt'>
  <td colspan=2 height=25 class=xl5129424 width=106 style='height:18.75pt;
  width:80pt'>VALOR CONVENIDO:</td>
  <td colspan=2 class=xl14229424 width=99 style='border-right:.5pt solid black;
  width:75pt'>
  <%if sw = 1 then
    'response.write "si entro"
    Response.Write ucase(cstr(Pro_Dato(ors(19)))) + "&nbsp;" + ucase(cstr(Pro_Dato(ors(20))))
    else
    response.write "0 Pesos"
    end if
    %></td>
  <td colspan=2 class=xl7229424 width=162 style='border-left:none;width:121pt'>VALOR
  CONVENIDO:</td>
  <td colspan=2 class=xl12329424 width=151 style='border-right:1.0pt solid black;
  width:113pt'>
     <%
    if sw=1 then
    'response.write "si entro"
    Response.Write ucase(cstr(Pro_Dato(ors(23)))) + "&nbsp;" + ucase(cstr(Pro_Dato(ors(24))))
    else 
    response.write "0 Pesos"
    end if
    %>  </td>
 </tr>
 <tr class=xl2329424 height=25 style='mso-height-source:userset;height:18.75pt'>
  <td colspan=2 height=25 class=xl2429424 width=205 style='height:18.75pt;
  width:154pt'>FLETE DE VENTA CONVENIDO:</td>
  <td colspan=5 class=xl7629424 width=246 style='border-right:.5pt solid black;
  width:186pt'><%
    if sw= 1 then
    Response.Write ucase(cstr(Pro_Dato(ors(25))))+ "&nbsp;" +  ucase(cstr(Pro_Dato(ors(41))))
    else
    response.write "0 Pesos"
    end if
    %></td>
  <td colspan=2 rowspan=2 class=xl7329424 width=162 style='border-bottom:.5pt solid black;
  width:121pt'>VALOR MERCANCÍA:</td>
  <td colspan=2 rowspan=2 class=xl13029424 width=151 style='border-right:1.0pt solid black;
  border-bottom:.5pt solid black;width:113pt'><%Response.Write ucase(cstr(Pro_Dato(ors(27)))) + "&nbsp;" +  ucase(cstr(Pro_Dato(ors(28))))%></td>
 </tr>
 <tr class=xl2329424 height=19 style='mso-height-source:userset;height:14.25pt'>
  <td height=19 class=xl2729424 width=113 style='height:14.25pt;width:85pt'>REPESO:</td>
  <td class=xl2929424 width=92 style='width:69pt'>