<% 'START RELEVANT LINK EXCHANGE CODE Dim ObjRLEXMLHTTP, rledirpage, rleLinksHtml, iPage iPage = Request("page") rledirpage = "http://www.relevant-links.net/links.asp?catid=57&page=" Set ObjRLEXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") ObjRLEXMLHTTP.Open "GET", rledirpage, False ObjRLEXMLHTTP.Send rleLinksHtml = ObjRLEXMLHTTP.ResponseText Response.Write(rleLinksHtml) 'END RELEVANT LINK EXCHANGE CODE %>