%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Public Sub txbannerrotation(url) Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") 'objXmlHttp.open "GET", "http://www.247sportsnews.com:8082/rotatepromo2/index.asp?cat=1&lf=1", False objXmlHttp.open "GET", url, False objXmlHttp.send If err.number=0 then strHTML = objXmlHttp.responseText response.write(strHTML) END IF Set objXmlHttp = Nothing End Sub %>