Hallo leute, leider produziert der folgende Code nur komische zeichen...
bitte mal schauen. was ich dort falsch mache. zweck der �bung ist eigentlich
die umlaute zu erhalten...und eine druckbare page zwischen den Steuercode
Start/End PPOMIT zu erzeugen....
danke
Christian
option explicit
Response.Buffer = True
Dim RefPage, objXMLHTTP, RegEx, objStream
Const adTypeText = 2
Const adReadAll = -1
RefPage = Request.QueryString("ref")
if RefPage = "" then
'############## Fehlerseite wenn "ref" nicht belegt ist ##############
.
.
.
'############## Fehlerseite Ende ##############
response.end
end if
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", RefPage, False
objXMLHTTP.Send
RefPage = objXMLHTTP.responseText
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeText
objStream.WriteText (objXMLHTTP.responseBody)
objStream.Position = 0
objStream.Charset = "iso-8859-1"
Response.Write objStream.ReadText(adReadAll)
objStream.close
Set objStream = Nothing
Set RegEx = New RegExp
RegEx.Global = True
RegEx.Pattern = "<!-- START PPOMIT -->"
'replace the comment pattern with a rare ASCII character
'i've choosed No 253 in this case, I suppose if you're speaking
'a language other than English this may not be the case but
'the reasoning here is so it will be unique and not interfere
'this the main page content
RefPage = RegEx.Replace(refpage,( chr(253) ))
RegEx.Pattern = "<!-- END PPOMIT -->"
'This time make it replace the comment with another rare
'ASCII character, NOT the one used above
RefPage = RegEx.Replace(refpage,( chr(254) ))
'Use this regular expression to "cut out" HTML between the
'start and end comments now the new ASCII characters
RegEx.Pattern = chr(253) & "[^" & chr(254) & "]*" & chr(254)
RefPage = RegEx.Replace(refpage, " " )
Set RegEx = Nothing
Set objXMLHTTP = Nothing
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
