<% on error resume next data = "" includeURL = "http://www.vogelundnoot.com/Forms/Newsletter/UnSubscribe.aspx" if(InStr(includeURL,"?") = 0) then includeURL = includeURL & "?lang=pl-pl" else includeURL = includeURL & "&lang=pl-pl" end if set objXmlHttp = server.createobject("MSXML2.ServerXMLHTTP") if(Request.Form.Count > 0) then data = Request.Form end if if (len(request.querystring) > 0) then if(InStr(includeURL,"?") = 0) then includeURL = includeURL & "?" & request.querystring else includeURL = includeURL & "&" & request.querystring end if end if objXmlHttp.open "POST", includeURL, false objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send data response.CharSet = "UTF-8" response.CodePage = 65001 response.write(objXmlHttp.responseText) set objXmlHttp = nothing on error goto 0 %>