XMLHTTP och htmlkod

Japp

url = "nyhet.asp?id=4"
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", url , False
objHTTP.setRequestHeader "Content-type","text/html"
objHTTP.Send
text = BinToText(objHTTP.responseBody,35000)

function BinToText(varBinData, intDataSizeInBytes)
	const adFldLong = 128
	const adVarChar = 200
	set aobjRS = Server.CreateObject("ADODB.Recordset")
	
	aobjRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
	aobjRS.Open
	
	aobjRS.AddNew
	aobjRS.Fields("txt").AppendChunk(varBinData)
	tmp = aobjRS("txt").Value
	aobjRS.Close
	set aobjRS = nothing
	BinToText = tmp
	
	set objRS = nothing
end function

text blir då källkoden

Alltså jag ser ju hur sidan ser ut.. Inte källkoden på sidan.. Vill se sidan som html-kod.

Server.HtmlEncode(text)
eller ?

Åhh.. så enkelt. Tänkte ej på det. Hehe