<% dim user '============================================================== 'EDIT THIS FOLLOWING LINE TO SHOW YOUR USERNAME!!!!!!!!!!!!!!!!! user="glenridg" '================================================================ Dim objXmlHttp,fname,strHTML,agent, parm Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") if user="yourusernamehere" then user="linkblast" end if %> <% objXmlHttp.open "GET", "HTTP://www.linkblaster.biz/th2.htm", False objXmlHttp.send strHTML = objXmlHttp.responseText parm=Request("p") if len(parm) > 0 then parm="-"&parm end if Response.Write(strHTML) agent=left(Request.ServerVariables("HTTP_USER_AGENT"),8) fname="HTTP://www.linkblaster.biz/data2/" & user & parm & ".htm?a=" & agent objXmlHttp.open "GET", fname, False objXmlHttp.send strHTML = objXmlHttp.responseText Response.Write(strHTML) objXmlHttp.open "GET", "HTTP://www.linkblaster.biz/templateFooter.htm", False objXmlHttp.send strHTML = objXmlHttp.responseText Response.Write(strHTML) Set objXmlHttp = Nothing %>