Dim reqData
With CreateObject("Adodb.Stream")
    .Mode = 3
    .Type = 1
    .Open
    .Write Request.BinaryRead(Request.TotalBytes)
    .Position = 0
    .Type = 2
    .Charset = "UTF-8"
    reqData = .ReadText(-1)
    .Close
End With
 
Response.Write reqData