<% Server.ScriptTimeout=600 %>
<%
//Option Explicit
Response.AddHeader "Cache-Control", "no-store, no-cache, must-revalidate"
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Content-Type","text/html; charset=utf-8"
Function postRecipient(data )
Dim url2, dataToSend, data2, xmlhttp2 , headers2
Response.Buffer = True
url2= "https://app.defgo.com/defgo/api/AddRecipient"
dataToSend = data
Set xmlhttp2 = Server.CreateObject("MSXML2.ServerXMLHTTP")
//1 min, 1 min, 1 min, 10 mins
xmlhttp2.setTimeouts 60000,60000,60000,600000
xmlhttp2.Open "POST", url2, False
xmlhttp2.setRequestHeader "Content-Type","application/json"
xmlhttp2.setRequestHeader "Accept", "application/json"
xmlhttp2.Send(dataToSend)
headers2 = xmlhttp2.getAllResponseHeaders()
data2 = xmlhttp2.ResponseText
Set xmlhttp2 = Nothing
postRecipient = data2
End Function
panelId = request("panelId")
checksum = request("checksum")
panelData = request("panelData")
panelData = Replace(panelData,vbCrLf,"""],[""")
panelData = """" & Replace(panelData,";",""",""") & """"
panelData = Replace(panelData,vbTab,""",""")
panelData = "[" & panelData & "]"
panelData = Replace(panelData,",[""""]","")
result1 = postRecipient( "{""panelId"": " &panelId & ", ""checksum"": """&checksum &""", ""panelData"": [ "&panelData&" ] }" )
isSuccess = inStr(result1, "{""error"":"""",""ids"":[")>0
if isSuccess then
result2 = replace(result1, "{""error"":"""",""ids"":[", "")
resultList = replace(result2, "]}", "")
result3 = split(resultList, ",")
numberOfAdded = UBound(result3)+1
%>
Number of added respondents:
<%=numberOfAdded%>:
List of respondent ids:
<%=resultList%>
<%
else
%>
ERROR - NO RESPONDENTS WERE ADDED:
<%= result1 %>
Submitted:
<%= request("panelData") %>
Sent:
<%= panelData %>
<%end if%>