<% On Error Resume Next %> <% Function GetData() set oXML = Server.Createobject ("MSXML2.serverxmlhttp") oXML.Open "GET","http://www.cybertechdomains.com/network2/stripclub.html" oXML.Send TempData = oXML.responseText GetData = TempData End Function %> StripClubPublications
Cybertech Internet

StripClubPublications.com
network sites
<% Response.write ( GetData() ) %>