Jeg tror nu mere at det er det her, han har brug for:
http://www.4guysfromrolla.com/webtech/110100-1.shtml<%
Response.Buffer = True
Dim objXMLHTTP, xml
' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Opens the connection to the remote server.
xml.Open "GET", "
http://www.4Guysfromrolla.com/", False
' Actually Sends the request and returns the data:
xml.Send
'Display the HTML both as HTML and as text
Response.Write "<h1>The HTML text</h1><xmp>"
Response.Write xml.responseText
Response.Write "</xmp><p><hr><p><h1>The HTML Output</h1>"
Response.Write xml.responseText
Set xml = Nothing
%>
Så skal det f.eks. være sådan her:
<%
Response.Buffer = True
Dim objXMLHTTP, xml
' Create an xmlhttp object:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Or, for version 3.0 of XMLHTTP, use:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Opens the connection to the remote server.
xml.Open "GET", "
http://www.4Guysfromrolla.com/", False
' Actually Sends the request and returns the data:
xml.Send
kildekode = xml.responseText
Set xml = Nothing
%>
<form>
<textarea style="width:300px;height:200px;"><%=kildekode%></textarea>
</form>