<%
  Dim objHttp

  Set objHttp = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1")
  objHttp.Open "GET", "https://surftown.se/parked/?domain=" & Request.ServerVariables("HTTP_HOST"), False
  objHttp.Send

  Response.Charset = "UTF-8"
  Session.CodePage = 65001
  Response.Write objHttp.ResponseText

  Set objHttp = Nothing
%>