<%OPTION EXPLICIT ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' sample implementation of a service that supports HTTP Response Bouncing ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' dim XML_RESPONSE, bounce_url XML_RESPONSE = "" & _ "" & _ " " & _ " " & _ " Bounce " & Second(Now) & "!" & _ " " & _ " " & _ "" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' bounce_url = request.serverVariables("HTTP_BOUNCE_TO") if not len(bounce_url) then bounce_url = request.queryString("__bounce_to") end if if len(bounce_url) then bounce_url = bounce_url & "?type=text/xml&status=200&content=" & server.UrlEncode(XML_RESPONSE) Response.Status = 303 Response.AddHeader "Location", bounce_url Response.Write(bounce_url) else Response.ContentType = "text/xml" Response.Write(XML_RESPONSE) end if %>