Grazie Grazie Grazie! Come sempre la gente migliore è sul forum HTML! Grazie
ho messo al posto di "ascii" "ISO-8859-1" e funziona perfettamente invece mettendo UTF-8 compariva un quadrato.
Lascio qui la pagina genera funzionante su server aruba ai posteri...
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%@ language = vbscript %>
<% option explicit %>
<%
dim idgen
idgen=request.querystring("id")
Function GetUrl(Url)
Dim Http
Set Http = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing
End Function
Function SaveFile(PathFile,Content)
dim ostream
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Open
oStream.Charset = "ISO-8859-1"
oStream.Type = adTypeText
oStream.WriteText content
oStream.SaveToFile Server.MapPath(PathFile), adSaveCreateOverWrite
oStream.Close
set oStream = Nothing
End Function
call SaveFile("/public/"&idgen&".html",geturl("http://www.miosito.it/News.asp?id="&idgen))
%>
Rispondi quotando
