Respuesta: detalle gramatical ok mira creo q parte del codigo lo implica para el asp es esto
Código HTML:
Ver original'------------------------Funcion que Muestan la Seleccion de los------------------------- '-------------------------Registros Utlilizando los archivos pft------------------------- ................ r = IsisRecRead(H, 0, Mfn) r = IsisRecFormat(H, 0, area, 17000) s = area cadena = Replace(s, "‚", "é", , , vbTextCompare) cadena = Replace(cadena, "¡", "í", , , vbTextCompare) cadena = Replace(cadena, "¢", "ó", , , vbTextCompare) cadena = Replace(cadena, "£", "ú", , , vbTextCompare) cadena = Replace(cadena, "¥", "Ñ", , , vbTextCompare) cadena = Replace(cadena, "¤", "ñ", , , vbTextCompare) Response.Write cadena area = "" s = "" r = IsisAppDelete(A) End Function '------------------------Funcion que Crean los Archivos empleando---------------------- '-----------------------------------los archivos pft------------------------------------- ........ area = "" s = "" cadena = "" A = IsisAppNew() H = IsisSpaNew(A) r = IsisSpaMf(H, db) r = IsisSpaPft(H, pft) r = IsisRecRead(H, 0, Mfn) r = IsisRecFormat(H, 0, area, 17000) s = area cadena = Replace(s, "‚", "é", , , vbTextCompare) cadena = Replace(cadena, "¡", "í", , , vbTextCompare) cadena = Replace(cadena, "¢", "ó", , , vbTextCompare) cadena = Replace(cadena, "£", "ú", , , vbTextCompare) cadena = Replace(cadena, "¥", "Ñ", , , vbTextCompare) cadena = Replace(cadena, "¤", "ñ", , , vbTextCompare) Print #1, "<record " & conse & ">" Print #1, cadena Print #1, "===========================================================================" Print #1, saltalinea Close #1 ...................... cadena = Replace(s, "‚", "é", , , vbTextCompare) cadena = Replace(cadena, "¡", "í", , , vbTextCompare) cadena = Replace(cadena, "¢", "ó", , , vbTextCompare) cadena = Replace(cadena, "£", "ú", , , vbTextCompare) cadena = Replace(cadena, "¥", "Ñ", , , vbTextCompare) cadena = Replace(cadena, "¤", "ñ", , , vbTextCompare) Print #1, "<Record " + CStr(i) + ">" Print #1, cadena Print #1, "===========================================================================" Print #1, saltodelinea area = "" s = "" Next i End If End If Close #1 r = IsisAppDelete(A) End Function '.............................. cadena = Replace(s, "‚", "é", , , vbTextCompare) cadena = Replace(cadena, "¡", "í", , , vbTextCompare) cadena = Replace(cadena, "¢", "ó", , , vbTextCompare) cadena = Replace(cadena, "£", "ú", , , vbTextCompare) cadena = Replace(cadena, "¥", "Ñ", , , vbTextCompare) cadena = Replace(cadena, "¤", "ñ", , , vbTextCompare) Response.Write cadena area = "" s = "" Next i End If End If r = IsisAppDelete(A) End Function
y el asp es este
Código ASP:
Ver original<html> <% dim verifica, envia, cadena, mfns, valor, cade, valor2 verifica=request.cookies("seleccion") if verifica <> "" then cadena=Request.Cookies("seleccion") valor=split(cadena,";") cadena="" cadena=valor(0) valor2=split(cadena,"=") cadena="" cadena=valor2(0) mfns=split(cadena,"#") cade=mfns(1) if cade<>"ultimo" then envia="Arc"+mfns(1) %> <head> <title>Catálogos Bibliográficos - ACTEC - Gerencia de Información Tecnológica (GIT)</title> <script languaje="Javascript"> function descarga(archi) { window.location.href="/temp/"+archi+".doc"; } function correo(adjunto) { window.location.href="mails.asp?envia="+adjunto; } function imprimir() { document.archivo.imp.style.visibility="hidden"; document.archivo.cor.style.visibility="hidden"; document.archivo.dow.style.visibility="hidden"; document.archivo.reg.style.visibility="hidden"; window.print(); activa(); } function activa() { document.archivo.imp.style.visibility="visible"; document.archivo.cor.style.visibility="visible"; document.archivo.dow.style.visibility="visible"; document.archivo.reg.style.visibility="visible"; } </script> </head> <body BACKGROUND="/cgi-bin/WWWISIS/fondoGITazul.gif" bgcolor="#ffffff" text="#000080" link="#000080" vlink="#800080" alink="#ff0000" toolbar="no"> <table cellpadding=0 cellspacing=0 border=0 width=100%> <tr> <form name="archivo"><input type="hidden" name="files" value="<%Response.Write(envia)%>"> <td width=8%> <img src="/cgi-bin/WWWISIS/logoiie.gif" border=0 width=60 height=85></td> <td width=50%> <DIV ALIGN="left"><FONT SIZE=3 FACE="Trebuchet MS" COLOR="#0000FF"><BIG>Base de Datos Bibliográficas - GIT</FONT><br><font size=2 FACE="Trebuchet MS" COLOR="#0000FF">Instituto de Investigaciones Eléctricas (IIE)</font></big></DIV></td> <td align="right" width=42%> <button type="button" name="imp" onclick="javascript:imprimir();" style="cursor: hand; float: left; border: #60afff 0px double; font-family: verdana; font-size: 10px; text-align: left; width: 70; height: 60; background-color: #ffffff; font-weight: bold;" title="Imprimir"><center><img src="/cgi-bin/wwwisis/images/printx.jpg"></br><font SIZE=1 FACE="Trebuchet MS" COLOR="#000080"><b>Imprimir</b></font></center></button> <button type="button" name="cor" onclick="correo();" style="cursor: hand; float: left; border: #60afff 0px double; font-family: verdana; font-size: 10px; text-align: left; width: 100; height: 60; background-color: #ffffff; font-weight: bold;" title="Enviar por E-mail"><center><img src="/cgi-bin/wwwisis/images/mailx.jpg"></br><font SIZE=1 FACE="Trebuchet MS" COLOR="#000080"><b>Enviar por E-Mail</b></font></center></button> <button type="button" name="dow" onclick="descarga(this.form.files.value);" style="cursor: hand; float: left; border: #60afff 0px double; font-family: verdana; font-size: 10px; text-align: left; width: 70; height: 60; background-color: #ffffff; font-weight: bold;" title="Descargar"><center><img src="/cgi-bin/wwwisis/images/downx.jpg"></br><font SIZE=1 FACE="Trebuchet MS" COLOR="#000080"><b>Descargar</b></font></center></button> <button type="button" name="reg" onclick="javascript:window.close();" style="cursor: hand; float: left; border: #60afff 0px double; font-family: verdana; font-size: 10px; text-align: left; width: 70; height: 60; background-color: #ffffff; font-weight: bold;" title="Regresar"><center><img src="/cgi-bin/wwwisis/images/salir2.jpg"></br><font SIZE=1 FACE="Trebuchet MS" COLOR="#000080"><b>Regresar</b></font></center></button> </tr> </form> <tr><td width=52% colspan=3> <DIV ALIGN="left"><FONT SIZE=2 FACE="Trebuchet MS" COLOR="#0000FF"><b>Registros Seleccionados de la Base de Datos ACTEC</b></font></td><tr> </table> <hr size=4 color="#60afff"> <center> <% dim dlls, expresion, i, recibe,k set dlls=server.createobject("probando4.funciones4") expresion=request.form("expbool") criterio="" criterio=criterio+mfns(1)+"/(999) " for i=2 to Ubound(mfns)-1 criterio=criterio+" + "+mfns(i)+"/(999) " next if ubound(mfns)>1 then criterio=criterio+" + "+mfns(ubound(mfns))+"/(999)" end if dlls.vertodo (criterio),"\inetpub\wwwroot\cgi-bin\wwwisis\actec\actec","@\inetpub\wwwroot\cgi-bin\wwwisis\actec\actecs" dlls.todo (criterio), "\inetpub\wwwroot\cgi-bin\wwwisis\actec\actec",(envia),"@\inetpub\wwwroot\cgi-bin\wwwisis\actec\acteca" set dlls=nothing else %></center> <body BACKGROUND="/cgi-bin/WWWISIS/fondoGITazul.gif" text="#000080" link="#000080" vlink="#800080" alink="#ff0000"> <center><blockquote><table cellpadding=0 cellspacing=0 border=0 width=550> <tr> <td width=100> <img src="/cgi-bin/WWWISIS/logoiie.gif" border=0 width=60 height=85></td> <td width=500> <DIV ALIGN="left"><FONT FONT SIZE=4 FACE="Trebuchet MS" COLOR="#0000FF"><BIG>Servicios de Información Tecnológica</FONT><br><font size=2 FACE="Trebuchet MS" COLOR="#0000FF">Instituto de Investigaciones Eléctricas (IIE)</font></big></DIV></td> </tr> </table> <hr size=5 color="#a6caf0"> <hr size=3 color="#000080"></blockquote></center> <form name="email" action="/cgi-bin/wwwisis/wwwisis.exe/[in=actecprueba.in]" method="post"><br><br> <center><table border=7 width="400" bgcolor="#a6caf0" cellpadding="4" cellspacing="15" bordercolor="#000080"><tr><td><table border=0 width="400" > <tr><td colspan=2 align="center"><font face="Verdana" size="3" color="#000080">No hay elementos seleccionados</td></tr> <tr><td colspan=2 align="center"><br><input type="button" name="Enviar" value="Regresar" onclick="javascript:window.close()"></td></tr> </table></td></tr></table></center> </form> <% end if else %> <body BACKGROUND="/cgi-bin/WWWISIS/fondoGITazul.gif" text="#000000" link="#000080" vlink="#800080" alink="#ff0000"> <center><blockquote><table cellpadding=0 cellspacing=0 border=0 width=550> <tr> <td width=100> <img src="/cgi-bin/WWWISIS/logoiie.gif" border=0 width=60 height=85></td> <td width=500> <DIV ALIGN="left"><FONT FONT SIZE=4 FACE="Trebuchet MS" COLOR="#0000FF"><BIG>Servicios de Información Tecnológica</FONT><br><font size=2 FACE="Trebuchet MS" COLOR="#0000FF">Instituto de Investigaciones Eléctricas (IIE)</font></big></DIV></td> </tr> </table> <hr size=5 color="#a6caf0"> <hr size=3 color="#000080"></blockquote></center> <% end if %> </center> </body> </html>
|