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