mmmmmmmmmmmmmmmmm
ok
a ver, ¿y si lo hacemos caracter por caracter y remplazamos el que nos cause el error?
Código ASP:
Ver originalpath_file = "C:\Inetpub\wwwroot\Sitios\MisPruebas\"
name_file = "prueba.htm"
strURL_ES = "http://prf.icecat.biz/index.cgi?prod_id=301192EK;vendor=LACIE;lang=ES;shopname=OpenICEcat-url#"
'strURL_ES = "http://prf.icecat.biz/index.cgi?prod_id=3093B003AA;vendor=CANON;lang=ES;shopname=OpenICEcat-url#"
Set HttpObj_ES = CreateObject("WinHttp.WinHttpRequest.5.1")
HttpObj_ES.SetTimeouts 50000, 60000, 10000, 100000
HttpObj_ES.Open "GET", strURL_ES, false
HttpObj_ES.Send()
Text_Ficha_ES = HttpObj_ES.ResponseText
Set HttpObj_ES = Nothing
'
'-- Creamos el fichero
'
Set fs_ES = CreateObject("Scripting.FileSystemObject") ' Creamos el Fichero
Set file_ES = fs_ES.CreateTextFile(path_file & name_file,True) ' Abrimos el Fichero
ON ERROR RESUME NEXT
Salida = ""
FOR i=1 to LEN(Text_Ficha_ES)
Caracter = MID(Text_Ficha_ES, i, 1)
if Caracter = vbCrLf Then
file_ES.Writeline(Caracter)
Else
file_ES.Write(Caracter)
End If
If Err.Number <> 0 then
file_ES.Write("")
Error.Clear
End If
Salida = Salida & Caracter
NEXT
'Response.Write(Salida)
file_ES.Close
Set file_ES = Nothing
Set fs_ES = Nothing
te sirve esa alternativa?