Problema Mshtml.dll

anjubama · #1 (**permalink**) 08/04/2010, 08:34

Hola, Soy nuevo y ojala puedan atudarme.

Estoy haciendo un desarrollo en asp, y cada vez que accedo a el, ya sea de inmediato o al haber accedido varias veces a el, me sale un error de internet explorer, "ie a detectado un problema y debe cerrarce ..." este problema sucede en ie 6,7 u 8 osea que no es por actualizacion.

Este es el codigo:

Código ASP:

Ver original<%@ Language=VBScript %>
<%
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "cache-control","private" 
Response.CacheControl = "no-cache"
response.expires = 0
on error resume next
'cadena para abrir base de datos
''''''
 
dim modificaciones
dim observaciones
dim mensageerror
modificaciones = request.form("modificaciones")
observaciones = request.form("observaciones")
strrepeso = request.form("repeso")
strcargue = request.form("cargue")
strdescargue = request.form("descargue")
strbodegaje = request.form("bodegaje")
strstandby = request.form("standby")
strotros = request.form("otros")
 
'if isnull(strrepeso) or strrepeso="" then
  'strrepeso = 0
'end if
 
if strrepeso <> "" then
sqlmodi = "update orden_producción set repeso='" & strrepeso & "' where norden =" & request.form("cual") & "" 
        set oco12 = CreateObject("ADODB.connection")
        oco12.open session("cadena")
    
        
        oco12.execute sqlmodi
        
        
        if err.number <> 0 then
            response.write "<hr>ERROR EN INGRESAR LA MODIFICACIONN REPESO " & err.description           
            RESPONSE.END 
        end if
        
end if
if (strcargue <> "" or strdescargue <> "" or strbodegaje <> "" or strstandby <> "" or strotros <> "") then
            sqlmodi = "update orden_producción set  cargue=" & strcargue & ", descargue='" & strdescargue & "', bodegaje='" & strbodegaje & "', standby='" & strstandby & "', otros='" & strotros & "' where norden =" &            request.form("cual") & "" 
        set oco12 = CreateObject("ADODB.connection")
        oco12.open session("cadena")
    
        
        oco12.execute sqlmodi
    
        
        if err.number <> 0 then
            response.write "<hr>ERROR EN INGRESAR LA MODIFICACION CARGUE " & err.description
            RESPONSE.END 
        end if
end if
 
if modificaciones <> "" then
        set oco = CreateObject("ADODB.connection")
        oco.open session("cadena")
        
        
        sqlmodi = "update orden_producción set modificaciones='" & modificaciones & "' where norden =" & request.form("cual") & "" 
        oco.execute sqlmodi
 
        
        if err.number <> 0 then
            response.write "<hr>ERROR EN INGRESAR LA MODIFICACION " & err.description
            RESPONSE.END 
        end if
    end if
    oco.close
 
 
set oco2 = CreateObject("adodb.connection")
oco2.open session("cadena")
 
 
strSQL= "exec VerOrdenPro2 " + request.form("cual")
set ors2 = oco2.Execute(strSQL)
 
 
 
set oco3 = CreateObject("adodb.connection")
oco3.open session("cadena")
 
 
strSQL= "select repeso from orden_producción where norden =" & request.form("cual") & ""
set ors3 = oco3.Execute(strSQL)
 
%><!--<script>
alert ("seleciono el repeso", "prueba")
</script> -->
<%
 
if session("cedula") = ucase(cstr(ors2("cCedulaUsu"))) then 
'response.write ucase(cstr(strSQL(ors2(2))))
'response.write ucase(cstr(ors2("cCedulaUsu")))
'response.write session("cedula")
'response.end
 
 
    if observaciones <> "" then
 
    
        set oco = CreateObject("ADODB.connection")
        oco.open session("cadena")
 
        
        sqlmodi = "update orden_producción set observaciones='" & observaciones & "' where norden =" & request.form("cual") & "" 
        'response.write request.form("cual")
        'response.write sqlmodi
        'response.end
        oco.execute sqlmodi
 
        
        if err.number <> 0 then
        response.write "<hr>ERROR EN INGRESAR LA OBSERVACION " & err.description
            RESPONSE.END 
        end if
    end if
else 
            response.write "<hr><font size=6 color = #ff0000>SE INGRESO LA OBSERVACIÓN : </font><!--<BR><font size=5>USTED NO TIENE PERMISOS PARA EDITAR ESTE CAMPO</font>-->"
        'response.write "ERROR AL MODIFICAR LA OBSERVACION: EL USUARIO QUE CREO LA O.P. NO CORRESPONDE AL DE MODIFICACION"
end if
 
function Pro_DAto(strValor)
if isnull(strValor) then
  Pro_DAto = ""
else
  Pro_DAto = strValor  
end if
end function
dim cual
dim oco
dim ors
dim fechaCon
dim mediocon
DIM IDcONFIRMA
dim noConfirmado
dim cEmail
dim cFax 
dim cTel 
dim cMovil 
dim cPersona  
dim strOficina
DIM oficina,sw
sw=0
if request.form("cual") = "" then
cual = Request.QueryString("nroOrden")
else
cual = request.form("cual")
end if
'+++ver si el usuario es de Medellin
strOficina="select iCodigo,cCiudad from oficinas where iCodigo= " & Session("Oficina") & ""
set oco = CreateObject("adodb.connection")
set orsrepeso = CreateObject("adodb.recordset")
oco.open session("cadena")
 
 
set ors = oco.execute(strOficina)
 
 
oficina=lCase(ors("cCiudad"))
if oficina= "medellín" then
    sw=1
end if
ors.close
 
 
set ors = nothing
 
 
'***************
set oco = CreateObject("adodb.connection")
oco.open session("cadena")
 
 
strSQL= "exec VerOrdenPro2 " + cual
set ors = oco.Execute(strSQL)
 
 
set oco = CreateObject("adodb.connection")
oco.open session("cadena")
 
 
strrepeso= "select * from orden_producción where norden =" & cual
set orsrepeso = oco.execute(strrepeso)
 
 
fechaCon = Pro_DAto(ors("dConfirma"))
mediocon = Pro_DAto(ors("cConfirma"))
 
 
%>
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
function test_onclick()
{
document.ver_orden_pro.action = "ver_Orden_pro.asp";
document.ver_orden_pro.submit();
}
function obser_onclick()
{
document.ver_orden_pro.action = "ver_Orden_pro.asp";
document.ver_orden_pro.submit();
}
</script>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Excel.Sheet>
<meta name=Generator content="Microsoft Excel 9">
<link rel=File-List href="./plantillaNUEVA_archivos/filelist.xml">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
x\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
 
    
</head>
 
<body>
<%
if  ors.EOF then
   strParametros= "<hr color=#00008b><p><Strong>No se encontro la orden Número = </Strong><font size=7 color = #ff0000>" + cstr(cual) + "</font>"
%>
<%   
else
%>
<!--[if !excel]>&nbsp;&nbsp;<![endif]-->
<!--La siguiente información se generó mediante la característica Publicar como
página Web de Microsoft Excel.-->
<!--Si se vuelve a publicar el mismo elemento desde Excel, se reemplazará toda
la información comprendida entre las etiquetas DIV.-->
<!----------------------------->
<!--INICIO DE LOS RESULTADOS DEL ASISTENTE PARA PUBLICAR COMO PÁGINA WEB DE
EXCEL -->
<!----------------------------->
 
<div id="ORDEN EN BLANCOnueva_29424" align=center x:publishsource="Excel">
<table x:str border=0 cellpadding=0 cellspacing=0 width=764 class=xl2229424 style='border-collapse:collapse;table-layout:fixed;width:574pt;border-right:1.0pt solid black;border-top:1.0pt solid black;border-bottom:1.0pt solid black;'>
 <col class=xl2229424 width=113 style='mso-width-source:userset;mso-width-alt:
 4132;width:85pt'>
 <col class=xl2229424 width=92 style='mso-width-source:userset;mso-width-alt:
 3364;width:69pt'>
 <col class=xl2229424 width=14 style='mso-width-source:userset;mso-width-alt:
 512;width:11pt'>
 <col class=xl2229424 width=45 style='mso-width-source:userset;mso-width-alt:
 1645;width:34pt'>
 <col class=xl2229424 width=54 style='mso-width-source:userset;mso-width-alt:
 1974;width:41pt'>
 <col class=xl2229424 width=69 style='mso-width-source:userset;mso-width-alt:
 2523;width:52pt'>
 <col class=xl2229424 width=64 style='mso-width-source:userset;mso-width-alt:
 2340;width:48pt'>
 <col class=xl2229424 width=95 style='mso-width-source:userset;mso-width-alt:
 3474;width:71pt'>
 <col class=xl2229424 width=67 style='mso-width-source:userset;mso-width-alt:
 2450;width:50pt'>
 <col class=xl2229424 width=63 style='mso-width-source:userset;mso-width-alt:
 2304;width:47pt'>
 <col class=xl2229424 width=88 style='mso-width-source:userset;mso-width-alt:
 3218;width:66pt'>
 <tr height=17 style='height:12.75pt'>
  <td colspan=11 height=17 width=764  align=left valign=top style='border-right:1.0pt solid black;height:12.75pt;width:574pt' >
  <![if vml]><span style='mso-ignore:vglayout;
  position:absolute;z-index:0;margin-left:15px;margin-top:7px;width:164px;
  height:89px'><img width=164 height=89
  src="logo.gif"
  v:shapes="_x0000_s1028"></span><![endif]>

anjubama · #2 (**permalink**) 08/04/2010, 08:35

Código ASP:

Ver original<form name="ver_orden_pro" method="post">
  <input type="hidden" name="cual" value="<%=cual%>">
 
  </td>
 </tr>
 <tr height=31 style='mso-height-source:userset;height:23.25pt'>
  <td colspan=9 rowspan=2 height=66 class=xl12429424 style='height:49.5pt'><div align="right">ORDEN 
          DE PRODUCCIÓN COMERCIAL</div></td>
  <td colspan=2 class=xl11129424 style='border-right:1.0pt solid black'>&nbsp;</td>
 </tr>
 <tr height=35 style='mso-height-source:userset;height:26.25pt'>
      <td colspan=2 height=35 class=xl9029424 style='border-right:1.0pt solid black;
  height:26.25pt'>F-CM-00</td>
 </tr>
 <tr class=xl2229424 height=15 style='mso-height-source:userset;height:11.25pt'>
      <td colspan=9 height=15 class=xl10829424 width=613 style='height:11.25pt;
  width:461pt'>&nbsp;</td>
      <td colspan=2 class=xl9029424 style='border-right:1.0pt solid black'>Versión 
        1 </td>
 </tr>
 <tr class=xl2329424 height=29 style='mso-height-source:userset;height:21.75pt'>
  <td height=29 class=xl2429424 width=113 style='height:21.75pt;width:85pt'>FECHA:</td>
  <td colspan=2 class=xl12129424 width=106 style='width:80pt'><%fecha= ors("dEleaboracion")
  fecha= formatdatetime(fecha,2)
  y = year(fecha)
  mes= month(fecha)
  dia = day(fecha)
  response.write y & "-" & mes & "-" & dia%></td>
  <td colspan=2 class=xl5129424 width=99 style='width:75pt'>VENDEDOR:</td>
      <td colspan=2 class=xl9229424 width=133 style='width:100pt'>CARGRANEL</td>
  <td colspan=2 class=xl11329424 width=162 style='width:121pt'>ORDEN No:</td>
  <td colspan=2 class=xl11529424 width=151 style='border-right:1.0pt solid black;
  width:113pt'><%Response.Write ucase(cstr(Pro_Dato(ors(0))))%></td>
 </tr>
 <tr class=xl2329424 height=24 style='mso-height-source:userset;height:18.0pt'>
  <td height=24 class=xl2529424 width=113 style='height:18.0pt;width:85pt'>TIPO VEHÍCULO:</td>
  <td colspan=3 class=xl11729424 width=151 style='border-right:.5pt solid black;
  width:114pt'><%Response.Write ucase(cstr(Pro_Dato(ors(3))))%></td>
  <td colspan=4 class=xl11929424 width=282 style='border-left:none;width:212pt'>FACTURA O DOCUMENTOS DEL CLIENTE No:</td>
  <td colspan=3 class=xl12629424 width=218 style='border-right:1.0pt solid black;
  width:163pt'><%Response.Write ucase(cstr(Pro_Dato(ors(5))))%></td>
 </tr>
 <tr class=xl2329424 height=23 style='mso-height-source:userset;height:17.25pt'>
  <td height=23 class=xl2429424 width=113 style='height:17.25pt;width:85pt'>REMITENTE:</td>
  <td colspan=5 class=xl8129424 width=274 style='border-right:.5pt solid black;
  width:207pt'> <%Response.Write ucase(cstr(Pro_Dato(ors(4))))%></td>
  <td colspan=2 class=xl5129424 width=159 style='border-left:none;width:119pt'>DESTINATARIO:</td>
  <td colspan=3 class=xl12629424 width=218 style='border-right:1.0pt solid black;
  width:163pt'><%Response.Write ucase(cstr(Pro_Dato(ors(6))))%></td>
 </tr>
 <tr class=xl2329424 height=24 style='mso-height-source:userset;height:18.0pt'>
  <td height=24 class=xl2729424 width=113 style='height:18.0pt;width:85pt'>ORIGEN:</td>
  <td colspan=4 class=xl4429424 width=205 style='border-right:.5pt solid black;
  width:155pt'><%Response.Write ucase(cstr(Pro_Dato(ors(11))))%></td>
  <td class=xl2829424 width=69 style='border-left:none;width:52pt'>DESTINO:</td>
  <td colspan=2 class=xl4429424 width=159 style='border-right:.5pt solid black;
  width:119pt'><%Response.Write ucase(cstr(Pro_Dato(ors(12))))%></td>
      <td class=xl2829424 width=67 style='border-left:none;width:50pt'>UNIDADES:</td>
  <td class=xl12829424 width=63 style='width:47pt'><%'Response.Write ucase(cstr(Pro_Dato(ors(8))))%></td>
  <td class=xl12929424 width=88 style='width:66pt'><%response.write ucase(cstr(Pro_Dato(ors(8)))) & " " & cstr(Pro_Dato(ors("empaque")))%></td>
 </tr>
 <tr class=xl2329424 height=24 style='mso-height-source:userset;height:18.0pt'>
      <td height=24 class=xl2429424 width=113 style='height:18.0pt;border-top:none;
  width:85pt'>MERCANCÍA:</td>
  <td colspan=7 class=xl3929424 width=433 style='border-right:.5pt solid black;
  width:326pt'><%RESPONSE.WRITE ucase(cstr(Pro_Dato(ors("descMercancia"))))%></td>
      <td class=xl2829424 width=67 style='border-left:none;width:50pt'>KILOS:</td>
  <td colspan=2 class=xl4229424 width=151 style='border-right:1.0pt solid black;
  width:113pt'> <%Response.Write ucase(cstr(Pro_Dato(ors(10))))%></td>
 </tr>
 <tr class=xl2329424 height=39 style='mso-height-source:userset;height:29.25pt'>
  <td colspan=2 height=39 class=xl2429424 width=205 style='height:29.25pt;
  width:154pt'>DIRECCIÓN CARGUE:</td>
  <td colspan=5 class=xl7829424 width=246 style='border-right:.5pt solid black;
  width:186pt'><%Response.Write ucase(cstr(Pro_Dato(ors(13))))%></td>
      <td colspan=2 class=xl7229424 width=162 style='border-left:none;width:121pt'>FECHA 
        DE CARGUE :</td>
  <td colspan=2 class=xl3929424 width=151 style='border-right:1.0pt solid black;
  width:113pt'><%Response.Write ucase(cstr(Pro_Dato(ors(14))))%></td>
 </tr>
 <tr class=xl2329424 height=57 style='mso-height-source:userset;height:42.75pt'>
  <td colspan=2 height=57 class=xl2429424 width=205 style='height:42.75pt;
  width:154pt'>DIRECCIÓN DESCARGUE:</td>
  <td colspan=5 class=xl8029424 width=246 style='border-right:.5pt solid black;
  border-bottom:.5pt solid black;width:186pt'><%Response.Write ucase(cstr(Pro_Dato(ors(15))))%></td>
      <td colspan=2 class=xl7229424 width=162 style='border-left:none;width:121pt'>FECHA 
        DE DESCARGUE :</td>
  <td colspan=2 class=xl3929424 width=151 style='border-right:1.0pt solid black;
  width:113pt'><%Response.Write ucase(cstr(Pro_Dato(ors(16))))%></td>
 </tr>

anjubama · #3 (**permalink**) 08/04/2010, 08:38

Código ASP:

Ver original<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'>

anjubama · #4 (**permalink**) 08/04/2010, 08:41

Código ASP:

Ver original<input name="repeso" type="text" size="10"  value= 
    <% if orsrepeso("repeso")="" or isnull(orsrepeso("repeso")) then
    
    response.write "0"
    else
    
    response.write orsrepeso("repeso")
    end if
     %> ></td>
  <td colspan=2 class=xl5129424 width=59 style='border-left:none;width:45pt'>ESCOLTA</td>
  <td colspan=3 class=xl4129424 width=187 style='border-right:.5pt solid black;
  width:141pt'><%
    if sw=1 then
    'response.write "no es de medellin"
    Response.Write "&nbsp;" & ucase(cstr(Pro_Dato(ors("valorEscolta")))) & "&nbsp;&nbsp;$"
    else 
    response.write "0 Pesos"
    end if
    %></td>
 </tr>
 <tr class=xl2329424 height=31 style='mso-height-source:userset;height:23.25pt'>
  <td colspan=2 height=31 class=xl2429424 width=205 style='height:23.25pt;
  width:154pt'>INSTRUCCIONES DE SEGURIDAD:</td>
  <td colspan=9 class=xl8729424 width=559 style='border-right:1.0pt solid black;
  width:420pt'><%Response.Write ucase(cstr(Pro_Dato(ors(29))))%></td>
 </tr>
  <tr class=xl2329424 height=40 style='mso-height-source:userset;height:23.25pt;border-right:1.0pt solid black;border-left:1.0pt solid black'>
  <td colspan="1" height="45" style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Cargue 
    <input name="cargue" type="text" size="13" value="<%if orsrepeso("cargue")="" or isnull(orsrepeso("cargue")) then   
    response.write "0"
    else        
    response.write Pro_Dato(orsrepeso("cargue"))
    end if
     %> ">  
  </strong></div></td>
  <td colspan="2" style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Descargue
    <input name="descargue" type="text" size="13" value="<% if orsrepeso("descargue")="" or isnull(orsrepeso("descargue")) then     
    response.write "0"
    else        
    response.write Pro_Dato(orsrepeso("descargue"))
    end if
     %> ">  
  </strong></div></td> 
  <td colspan="2" style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Stand By 
    <input name="standby" type="text" size="13" value="<% if orsrepeso("standby")="" or isnull(orsrepeso("standby")) then
    response.write "0"
    else        
    response.write Pro_Dato(orsrepeso("standby"))
    end if
     %> ">  
  </strong></div></td> 
  <td colspan="2"  style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Bodegaje 
    <input name="bodegaje" type="text" size="13" value="<% if Pro_Dato(orsrepeso("bodegaje"))="" or isnull(Pro_Dato(orsrepeso("bodegaje"))) then        
    response.write "0"
    else        
    response.write Pro_Dato(orsrepeso("bodegaje"))
    end if
     %> ">  
  </strong></div></td>
  <td colspan="2"  style='border-right:1.0pt solid black;border-left:1.0pt solid black'><div align="center"><strong>Otros 
    <input name="otros" type="text" size="13" value="<%if Pro_Dato(orsrepeso("otros"))="" or isnull(Pro_Dato(orsrepeso("otros"))) then
    mifichero.writeline "entro if otros "
    response.write "0"
    else        
    response.write Pro_Dato(orsrepeso("otros"))
    mifichero.writeline "entro else otros "
    end if
     %> ">  
  </strong></div></td>
</tr>
 <tr class=xl2329424 height=27 style='mso-height-source:userset;height:20.25pt'>
  <td colspan=3 height=27 class=xl2429424 width=219 style='height:20.25pt;
  width:165pt'>PÓLIZA DE SEGURO ESPECIFICA:</td>
  <td colspan=3 class=xl7029424 width=168 style='border-right:.5pt solid black;
  width:127pt'><%if ucase(cstr(Pro_Dato(ors(30)))) = "1" then    
        Response.Write "SI"
      ELSE  
        Response.Write "NO"
      END IF
    %></td>
  <td colspan=3 class=xl7229424 width=226 style='border-left:none;width:169pt'>COBRAR
  COSTO DE PÓLIZA / VALOR:</td>
  <td colspan=2 class=xl13429424 width=151 style='border-right:1.0pt solid black;
  width:113pt'><%
  Response.Write ucase(cstr(Pro_Dato(ors(31))))
    %></td>
 </tr>
 <tr class=xl2329424 height=29 style='mso-height-source:userset;height:21.75pt'>
      <td colspan=3 height=29 class=xl2429424 width=219 style='height:21.75pt;
  width:165pt'>INSTRUCCIONES DE PRODUCCIÓN:</td>
  <td colspan=8 class=xl5629424 width=545 style='border-right:1.0pt solid black;
  width:409pt'><%Response.Write ucase(cstr(Pro_Dato(ors(32))))%></td>
 </tr>
 <tr class=xl2329424 height=30 style='mso-height-source:userset;height:22.5pt'>
      <td colspan=3 height=30 class=xl2429424 width=219 style='height:22.5pt;
  width:165pt'>INSTRUCCIONES ESPECIALES DE FACTURACIÓN:</td>
  <td colspan=8 class=xl8429424 width=545 style='border-right:1.0pt solid black;
  width:409pt'><%Response.Write ucase(cstr(Pro_Dato(ors(33))))%></td>
 </tr>
 <tr class=xl2329424 height=25 style='mso-height-source:userset;height:18.75pt'>
  <td colspan=3 height=25 class=xl2429424 width=219 style='height:18.75pt;
  width:165pt'>NOMBRE DE QUIEN PAGA EL FLETE:</td>
  <td colspan=4 class=xl5629424 width=232 style='border-right:.5pt solid black;
  width:175pt'>  <%Response.Write ucase(cstr(Pro_Dato(ors(34))))%></td>
  <td colspan=2 class=xl7229424 width=162 style='border-left:none;width:121pt'>CONDICIONES
  DE PAGO:</td>
  <td colspan=2 class=xl5629424 width=151 style='border-right:1.0pt solid black;
  width:113pt'> <%Response.Write ucase(cstr(Pro_Dato(ors(35))))%></td>
 </tr>
 <tr class=xl2329424 height=17 style='height:12.75pt'>
      <td colspan=11 height=17 class=xl5829424 width=764 style='border-right:1.0pt solid black;
  height:12.75pt;width:574pt'><strong> 
        <label languaje= javascript onClick="return obser_onclick()">OBSERVACIONES</label>
        : </strong></td>
 </tr>
 <tr class=xl2329424 height=74 style='mso-height-source:userset;height:55.5pt'>
  <td colspan=11 height=74 class=xl5329424 width=764 style='border-right:1.0pt solid black;
  height:80.5pt;width:574pt'><textarea cols="160" rows="5"  name="observaciones" style="background-color: #E5E5E5;font-family: Bookman Old Style, serif;">
  <%=Pro_Dato(ors("observaciones"))%></textarea></td>
 </tr>
 <tr class=xl2329424 height=20 style='mso-height-source:userset;height:height:22.5pt'>
  
  <td colspan=5 rowspan=4 class=xl10129424 width=232 style='width:175pt'><%Response.Write ucase(cstr(Pro_Dato(ors("ElaboradoPor"))))%></td>
   <td colspan=2 rowspan=4 class=xl10129424>&nbsp;</td>
  <td colspan=7 rowspan=4 class=xl10129424 width=313 style='border-right:1.0pt solid black;
  width:234pt'>&nbsp;</td>
 </tr>
 
 <tr style='mso-height-source:userset;height:10.5pt'> </tr>
 <tr> </tr>
 <tr > </tr>
 <tr class=xl2329424 height=15 style='height:20.25pt'>
  
 
      <td colspan=5 class=xl10229424 width=250 style='width:175pt;border-left:1.0pt solid black;'>ELABOR&Oacute;</td>
       <td colspan=2 class=xl10229424 width=232 >V° B° DIRECTOR OPERATIVO</td>
      <td colspan=7 class=xl10229424 width=313 style='border-right:1.0pt solid black;
  border-left:1.0pt solid black;width:234pt'> V&deg;B&deg; CLIENTE</td>
 </tr>
 
 <tr class=xl2329424 height=17 style='height:12.75pt'> </tr>
 
 <tr class=xl2329424 height=21 style='mso-height-source:userset;height:15.75pt;border-left:1.0pt solid black;'>
  <td colspan=11 height=21 class=xl9629424 width=613 style='height:15.75pt;
  width:461pt;border-right:1.0pt solid black;'><strong>
        <label languaje= javascript onClick="return test_onclick()">OBSERVACIONES 
        FACTURACI&Oacute;N:</label>
        </strong></td>
 </tr>
 <tr class=xl2329424 height=17 style='height:12.75pt'>
   <td colspan=11 rowspan=4 height=75 class=xl3329424 width=613 style='border-right:1.0pt solid black;height:56.25pt;width:461pt'><span class="xl33294241" style="border-right:1.0pt solid black;height:56.25pt;width:461pt;">
     <textarea cols="90" rows="5" style="overflow:auto;" name="modificaciones"><%=Pro_Dato(ors("modificaciones"))%></textarea>
   </span></td>
 </tr>
 <tr class=xl2329424 height=17 style='height:12.75pt'> </tr>
 <tr class=xl2329424 height=18 style='height:13.5pt'> </tr>
 <tr class=xl2329424 height=23 style='mso-height-source:userset;height:17.25pt'> </tr>
 <![if supportMisalignedColumns]>
 <tr height=0 style='display:none'>
  <td width=113 style='width:85pt'></td>
  <td width=92 style='width:69pt'></td>
  <td width=14 style='width:11pt'></td>
  <td width=45 style='width:34pt'></td>
  <td width=54 style='width:41pt'></td>
  <td width=69 style='width:52pt'></td>
  <td width=64 style='width:48pt'></td>
  <td width=95 style='width:71pt'></td>
  <td width=67 style='width:50pt'></td>
  <td width=63 style='width:47pt'></td>
  <td width=88 style='width:66pt'></td>
 </tr>
 <![endif]>
</table>
 
</div>
</form>
<%
codepto1 = Pro_Dato(ors("codepto1"))
codepto2 = Pro_Dato(ors("codepto2"))
if cstr(codepto1) = "" then
codepto1 = 200
end if
if cstr(codepto2) = "" then
codepto2 = 200
end if
end if ' de por alla arriba
%>
</div>
<%
 
if session("cedula") <> "" then ' cedula de julian 71516577'
    if session("cedula") = ucase(cstr(Pro_Dato(ors(2)))) or session("cedula") =1020393122  then  'ojo esto es nuevo orden de produccion'
    %>
    <a HREF="Modificar_Orden.asp?nroOrden=<%=cual%>,<%=codepto1%>,<%=codepto2%>">Modificar</a>   
    <%end if%>
    <%end if%>  
<%
set ors = nothing
set ors2 = nothing
set ors3 = nothing
set orsrepeso = nothing
%>
</body>
</html>
 
Aca esta el resto del cod, muchas gracias.

AlZuwaga · #5 (**permalink**) 08/04/2010, 11:31

Hola. Podrías probar con otro navegador, como firefox, y ver qué ocurre. Igual, no se debe tratar de un problema de ASP "en si" (aunque sí puede llegar a ser que alguna salida de tu código ASP genere algún inconveniente con el navegador... pero esa es otra historia).

Ahora... así, sin más datos, nadie va a leer esas más de 600 líneas de código.