<% Server.ScriptTimeout=600 %><html>
<head><style>
* {
font-family:'Segoe UI','Trebuchet MS',tahoma,arial,helvetica,sans-serif;
font-size: 9pt;
margin: 0;
padding: 0;
}
</style></head>
<body>
<%
//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
%>
<b>Number of added respondents:</b><br><%=numberOfAdded%>:<br>
<b>List of respondent ids:</b><br><%=resultList%>
<%
else
%>
<b>ERROR - NO RESPONDENTS WERE ADDED:</b><br>
<pre><%= result1 %></pre>
<br>
Submitted:<br>
<pre>
<%= request("panelData") %>
</pre><br>
Sent:<br>
<pre>
<%= panelData %>
</pre>
<%end if%>
</body>