Hallo Leute,
ich habe mir MSXML installiert und es geht auch, bis auf meine SaveFunktion.
Die html Datei wird zwar angelegt, ist aber leer.
Hat jemand eine Idee was an dem Script falsch ist ?
<%@Language="VBScript" %>
<%
Option Explicit
Const adTypeText = 2
Const adReadAll = -1
Dim objXmlHttp, objStream
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")
objXmlHttp.open "GET",
"http://www.ultradevextensions.de/welcome_inhalt.asp";, False
objXmlHttp.send
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeText
objStream.WriteText (objXmlHttp.responseBody)
objStream.Position = 0
objStream.Charset = "Latin1"
dim pagetext
pagetext=objStream.ReadText(adReadAll)
Dim objFile, objTStream, postPage
postPage="d:\kunden-webs\www.ultradevextensions.de/html/welcome_test_inhalt.
htm"
Set objFile = Server.CreateObject("Scripting.FileSystemObject")
Set objTStream = objFile.OpenTextFile(postPage, 2, True, 0)
objTStream.Write(pagetext)
Set objTStream = Nothing
Set objFile = Nothing
Response.Write objStream.ReadText(adReadAll)
objStream.close
Set objStream = Nothing
Set objXmlHttp = Nothing
%>
Danke !
J�rg Schwalenberg
_______________________________
Extensions and Basics for Macromedia
"Dreamweaver Ultradev"
..............................................................
www.ultradevextensions.de
www.udex.de
[EMAIL PROTECTED]
_______________________________
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
