<% 'The One Way Text Links system will check this 'page once a week. Your website will be removed 'from the network if you alter this code in any way. Dim htmlCode Dim serverXMLHTTP Dim requestingPage requestingPage = "HTTP://www.onewaytextlinks.com/TopResources.aspx?CategoryID=" & Request.QueryString("CategoryID") Set serverXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") serverXMLHTTP.Open "GET", requestingPage, False serverXMLHTTP.Send htmlCode = serverXMLHTTP.ResponseText Response.Write(htmlCode) %>