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