Protected Sub send_request(ByVal request As String)
        Dim objSrvHTTP, objXMLDocument
        Dim navstring As String
        objList = Nothing
        objSrvHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
        objXMLDocument = Server.CreateObject("Msxml2.DOMDocument.3.0")
        objList = Server.CreateObject("Msxml2.DOMDocument.3.0")
        Me.XML_result.Text = request
        objXMLDocument.async = False
        objXMLDocument.loadXML(request)
        navstring = _
          "https://insertwebsitehere.com/rs.esp?id=118&scriptid=irgendwas"
        objSrvHTTP.open("POST", navstring, False)
        objSrvHTTP.send(objXMLDocument)
        Response.ContentType = "text/plain"
        st_Response = Trim(objSrvHTTP.responseText)
        objXMLDocument.loadXML(st_Response)
        objList = objXMLDocument.getElementsbyTagName("*")
        objXMLDocument = Nothing
        objSrvHTTP = Nothing
    End Sub