フォームのように、別のサーバーから直接送信された JSON を読み取る方法を知りたいです。JSON を要求して処理する必要があります。
dim datos: set datos = json.parse(BodyJson)
dim key : for each key in datos.keys()
Status = datos.get(key).category
FechaHoraEnvio = datos.get(key).date
DireccionEmail = datos.get(key).recipient
InfoExtra = datos.get(key).tags
ID= 123
sSQL = "INSERT INTO EmailsStatus (Id, Status, FechaHoraEnvio, DireccionEmail, InfoExtra) VALUES ('"& ID &"', '"& Status &"', '"& FechaHoraEnvio &"', '"& DireccionEmail &"', '"& InfoExtra &"')"
Response.write sSql
objAccessDB.excecuteQuery(sSQL)
next