Relay backend post in Classic ASP - vbscript

proxy.asp

<%

' Compile QueryStirng From POST

DataToSend = ""

For Each Item In Request.Form
    fieldName = Item
    fieldValue = Request.Form(Item)

    DataToSend = DataToSend & fieldName & "=" & fieldValue & "&"
Next

'Response.Write "DataToSend: " & DataToSend
'Response.End

dim xmlhttp 
set xmlhttp = server.Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST","https://example.com/api/post",false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send DataToSend
Response.ContentType = "text/json"
Response.Write xmlhttp.responseText
Set xmlhttp = nothing

%>