<% 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>