<% 'The Link Exchange Experts system will check this 'page once a week. You may place your top navigation and 'bottom navigation above and below this code. Your website 'will be removed from the network if you alter the code in any way. Dim htmlCode Dim serverXMLHTTP Dim requestingPage requestingPage = "http://www.linkexchangeexperts.com/directory.aspx?categoryid=" & Request.QueryString("CategoryID") Set serverXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") serverXMLHTTP.Open "GET", requestingPage, False serverXMLHTTP.Send htmlCode = serverXMLHTTP.ResponseText Response.Write(htmlCode) %>