<% 'The Trilinks system will automatically check this 'page once a week. You may place your header and 'footer in the spaces provided. Your website will be removed 'from the network if you alter the code in any other way. siteid="" 'DONT EDIT THE FOLLOWING CODE Dim htmlCode Dim serverXMLHTTP Dim requestingHead Dim requestingPage cid=Request.QueryString("cid") pageID=Request.QueryString("pageID") sitehost=Request.ServerVariables("HTTP_HOST") requestingHead = "http://www.trilinks.com/directories/head.php?cid=" & cid & "&sid=" & siteid & "&ref=" & sitehost requestingPage = "http://www.trilinks.com/directories/f1/b.php?cid=" & cid & "&sid=" & siteid & "&pageID=" & pageID & "&ref=" & sitehost Set serverXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") serverXMLHTTP.Open "GET", requestingHead, False serverXMLHTTP.Send htmlCode = serverXMLHTTP.ResponseText Response.Write(htmlCode) %> <% 'You can place your header code below this line %> <% 'DONT EDIT THE FOLLOWING CODE %> <% Set serverXMLHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP") serverXMLHTTP.Open "GET", requestingPage, False serverXMLHTTP.Send htmlCode = serverXMLHTTP.ResponseText Response.Write(htmlCode) %> <% 'You can add your footer code below this line %>