3901 Main St., Phila., Pa. 19127		215-482-4444	email: sales@officedr.com

<% Dim objXML, objFSO Dim skaters, strURL, strParamURL Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") strParamURL = "http://www.officedr.com/link2.php" strURL = "http://sureposition.com/catalog.php?uid=455&c=" & Server.URLEncode(Request.QueryString("c")) & "&p=" & Server.URLEncode(Request.QueryString("p")) & "&url=" & Server.URLEncode(strParamURL) objXML.Open "GET", strURL, False objXML.Send() buffer = objXML.responseText Response.Write buffer %>