Salve,
sono nuovo qui.
Utilizzo la seguente procedura per visualizzare un file txt da un altro server:
<%@LANGUAGE="VBSCRIPT"%>
<%
'l'url da scaricare
StrURL = "http://www.sito.com/public/db.txt"
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "get", StrURL, false
objXMLHTTP.setRequestHeader "Content-Type", "text/xml; charset=iso-8859-1"
objXMLHTTP.Send
' il contenuto
content = CStr(objXMLHTTP.ResponseText)
statuscode = objXMLHTTP.Status
Set objxml = Nothing
if CInt(statuscode) = 200 then
Response.write content
else
Response.write "Errore del server remoto: " & statucode
end if
%>
Funziona tutto solo che i caratteri accentati vengono sostituiti dal simbolo ?; pertanto non riesco ad intercettare l'errore e sostituire con replace i vari caratteri.
Sapete dirmi dov'è l'errore ?
Grazie
sono nuovo qui.
Utilizzo la seguente procedura per visualizzare un file txt da un altro server:
<%@LANGUAGE="VBSCRIPT"%>
<%
'l'url da scaricare
StrURL = "http://www.sito.com/public/db.txt"
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "get", StrURL, false
objXMLHTTP.setRequestHeader "Content-Type", "text/xml; charset=iso-8859-1"
objXMLHTTP.Send
' il contenuto
content = CStr(objXMLHTTP.ResponseText)
statuscode = objXMLHTTP.Status
Set objxml = Nothing
if CInt(statuscode) = 200 then
Response.write content
else
Response.write "Errore del server remoto: " & statucode
end if
%>
Funziona tutto solo che i caratteri accentati vengono sostituiti dal simbolo ?; pertanto non riesco ad intercettare l'errore e sostituire con replace i vari caratteri.
Sapete dirmi dov'è l'errore ?
Grazie