  <%
    Server.ScriptTimeout = 360
    strRequest = Request.ServerVariables("QUERY_STRING")
    strURL = "http://www.bayfieldcounty.org/cgi-bin/mapserv.exe?map=d:\inetpub\wwwroot\LandRecords\ogc\wms2.map&" & strRequest
    Dim objHTTP
    Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
    objHTTP.open "GET", strURL, false
    objHTTP.send ""
    Response.ContentType = "text/xml"
    Response.BinaryWrite objHTTP.responseBody
    Set objHTTP = Nothing
  %>